2

我有一个通过 VS 2010（本地数据库文件选项）创建的 SQL Server Compact 数据库。在表单加载（CategoryForm）上，我将数据库中的值加载到DataGridView1. ButtonColumn我还以编程方式添加了一个用于该Delete部件的额外内容。问题是这样的：

  • 在初始表单加载时，我第一次在任何行上按删除时，它都会起作用。如果我再按一次它就不起作用了。
  • 我第二次单击按钮时，我得到的打印文本Msgbox是按钮的文本！（删除）（包括截图） ps 如下所述，当我注释掉多余的东西时，我得到了正确的返回值。

我尝试了什么：

  • 注释掉所有与 SQL 相关的内容，只留下我得到的部分RowIndex以及该索引处特定单元格的值。我将它们都打印在MsgBox. 我得到的值是正确的。例如，带有 text 的第一行的0索引和值。testtest

以下是我的进度和截图：

CellContentClick方法：

Private Sub DataGridView1_CellContectClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

    Dim i As String

    'If e.ColumnIndex = 1 Then
    'If e.RowIndex >= 0 And e.RowIndex <= DataGridView1.Rows.Count - 1 Then

    i = DataGridView1.Rows(e.RowIndex).Cells(0).Value.ToString
    MsgBox(e.RowIndex)
    MsgBox(i)
    SQLStringDelete = "DELETE FROM Category WHERE categoryname = '" & i & "'"
    SQLConn.ConnectionString = ConnString 'Set the Connection String
    SQLConn.Open() 'Open the connection
    SQLCmd.Connection = SQLConn 'Sets the Connection to use with the SQL Command
    SQLCmd.CommandText = SQLStringDelete 'Sets the SQL String
    SQLCmd.ExecuteNonQuery() 'Executes SQL Command

    'Create Adapter
    Dim DataAdapter As SqlCeDataAdapter = New SqlCeDataAdapter("SELECT categoryname FROM Category", SQLConn)
    'Create DataSet
    Dim Dataset As New DataSet
    'fill the datset
    DataAdapter.Fill(Dataset)
    'attach dataset to the datagrid
    With DataGridView1
        .DataSource = Dataset.Tables(0)
        .Columns(0).HeaderText = ""
        .Columns(0).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    End With

    DataAdapter = Nothing
    Dataset = Nothing

    SQLConn.Close() 'Close the connection



End Sub

Form_Load方法：

 Private Sub CategoryForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SQLConn.ConnectionString = ConnString 'Set the Connection String
        SQLConn.Open() 'Open the connection

        'Create Adapter
        Dim DataAdapter As SqlCeDataAdapter = New SqlCeDataAdapter("SELECT categoryname FROM Category", SQLConn)
        'Create DataSet
        Dim Dataset As New DataSet
        'fill the datset
        DataAdapter.Fill(Dataset)
        'attach dataset to the datagrid
        With DataGridView1
            .DataSource = Dataset.Tables(0)
            .Columns(0).HeaderText = ""
            .Columns(0).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
        End With

        DataAdapter = Nothing
        Dataset = Nothing
        SQLConn.Close()

        With buttonColumn
            .Name = "DeleteButtonColumn"
            .HeaderText = ""
            .Text = "Delete"
            .UseColumnTextForButtonValue = True
            .AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            .Width = 50
        End With

        If DataGridView1.Columns.Count = 1 Then
            DataGridView1.Columns.Add(buttonColumn)
        End If

    End Sub

截图：

返回按钮文本而不是单元格值

几次点击后仍然存在:)

4

1 回答 1

0

事实证明，自动重新生成的列会在第二次单击时导致列重新排列。只需DataGridView1.AutoGenerateColumns = false在表单加载和事件中设置它就可以了。

于 2013-05-14T18:01:13.633 回答