从数据表中删除一行

Question

我有一个程序向用户询问一系列问题，这些问题从数据库中收集并存储在数据表中。

我有一个系统，它选择两个随机数，一个用于确定哪个问题，一个用于确定答案的显示顺序。我希望问题保留在数据表中，直到用户正确为止，之后该问题就不能再出现了。

我的数据表叫DT，有一行代码：

DT.Rows.RemoveAt(QNumber)

听起来应该删除选定的行。但是我对此有疑问。

例如，如果 QNumber 为 2，则删除第 2 行。然后这会将所有内容从第 3 行移到第 2 行，然后将所有内容从第 4 行移到第 3 行，依此类推，还是只会使第 2 行空白，从而破坏我的代码？

Answer 1

由于您没有发布任何上下文，因此是一些测试 sn-ps：

Button1_Click 加载表格

Button2_Click “处理”每一行并可选择删除该行。

在你的情况下，“过程”意味着：显示问题并循环，直到你得到答案。

在您的情况下，Button2 代码将确定要加载的记录，可能在返回要询问的“问题”的数据表上使用 .Select()，并最终删除。

Dim da As SqlDataAdapter
Dim ds As DataSet
Dim dt As DataTable
Dim con As New System.Data.SqlClient.SqlConnection()

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Try
        Using con As New System.Data.SqlClient.SqlConnection()
            con.ConnectionString = "Data Source=APCD03;Initial Catalog=OIStest;Integrated Security=True"
            Dim rdr As Data.SqlClient.SqlDataReader
            con.Open()
            Dim cmd As New SqlCommand("SELECT  [DBLinked] as PK ,[TEBackupDate] FROM [OISTest].[dbo].[_DBLink]", con)
            rdr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
            dt = New DataTable
            dt.Load(rdr)
            rdr.Close()
        End Using
    Catch ex As Exception
        MsgBox(ex, ex.Message)
    End Try
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    For Each row As DataRow In dt.Rows
        If Not row.RowState = DataRowState.Deleted Then
            If MsgBox("Delete this row, PK: " & row("PK"), vbYesNo) = MsgBoxResult.Yes Then
                row.Delete()
            End If
        End If
    Next
End Sub

Button3 演示选择要处理和删除的特定行：

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    Dim rows() As DataRow = dt.Select("PK='test row'")
    If rows.Length = 0 Then
        MsgBox("row was deleted already")
    Else
        MsgBox(rows(0)(0)) ' display PK
        If MsgBox("Delete " & rows(0)(0), vbYesNo) = MsgBoxResult.Yes Then
            rows(0).Delete()
        End If
    End If
End Sub

请注意，rows(0) 是选择结果的第一条记录，而不是整个表中的记录索引。