插入在数据库中添加额外的行

当我从我的datagridview向我的数据库插入数据时，在不包含数据的末尾插入额外的行。我怎样才能克服这个问题。每次我点击我的datagridview中的新行并开始输入数据时，下面都会启用一个新行。有没有什么办法可以阻止这个空行被插入到我的数据库？谢谢，这是我的代码...插入在数据库中添加额外的行

    Dim ds As New DataSet 
        ds.Tables.Add("Main") 

        Dim col As New DataColumn 

        Dim dgvCol As New DataGridViewColumn 
        For Each dgvCol In DataGridView1.Columns 
         col = New DataColumn(dgvCol.Name) 
         ds.Tables("Main").Columns.Add(col) 
        Next 
        Dim row As DataRow 
        Dim colcount As Integer = DataGridView1.Columns.Count - 1 

        For i As Integer = 0 To DataGridView1.Rows.Count - 1 
         row = ds.Tables("Main").Rows.Add 

         For Each column As DataGridViewColumn In DataGridView1.Columns 
          row.Item(column.Index) = DataGridView1.Rows.Item(i).Cells(column.Index).Value 
         Next 

        Next 


        Dim con As New SqlClient.SqlConnection 
        Dim myCommand As New SqlClient.SqlCommand 

        Dim dt As New DataTable() 
        dt = ds.Tables("Main") 

        For i As Integer = 0 To dt.Rows.Count - 1 

         Dim myAdapter As New SqlClient.SqlDataAdapter 
         Dim sql As String = "Insert into details (company, division, date, supplier, material_group, cost, dsc, email, userID, fullName, marketingCode, hccNumber, wbs, qty, currency, timestamp) VALUES ('" & DataGridView1.Rows(i).Cells(company.Name).Value & "', '" & DataGridView1.Rows(i).Cells(division.Name).Value & "','" & calendar & "', '" & DataGridView1.Rows(i).Cells(supplier.Name).Value & "', '" & DataGridView1.Rows(i).Cells(materialGroup.Name).Value & "', '" & DataGridView1.Rows(i).Cells(netprice.Name).Value & "', '" & DataGridView1.Rows(i).Cells(description.Name).Value & "', '" & cmbEmail.SelectedValue & "', '" & id & "', '" & newName & "', '" & DataGridView1.Rows(0).Cells(markCodes.Name).Value & "', '" & DataGridView1.Rows(0).Cells(hccNumber.Name).Value & "', '" & DataGridView1.Rows(i).Cells(wba.Name).Value & "', '" & DataGridView1.Rows(i).Cells(quantity.Name).Value & "', '" & DataGridView1.Rows(i).Cells(currency.Name).Value & "', '" & nowDate & "')" 
         myCommand.Connection = con 
         myCommand.CommandText = sql 
         myAdapter.InsertCommand = myCommand 
         myCommand.Connection.Open() 
         myCommand.ExecuteNonQuery() 
         myCommand.Connection.Close() 

        Next.

来源

2011-11-09 user765942

你将需要你检查你的价值排在循环尝试在保存前检查DBNull.Value每个单元格（或特定的细胞）。或者，您可以将AllowUsersToAddRows设置为false以防止显示空白行。

来源

2011-11-09 11:13:18 Simon

由于示例代码，我已经试过了'AllowUserToAddRows = FALSE'但是当我这样做，我不能添加任何行可言，留给我一个空白的gridview。 – user765942

好的，你需要DBNull检查。 – Simon

添加循环内进行检查见下文

For Each rw As DataGridViewRow In Form1.DataGridView1.Rows 

      If rw.Cells("Column2").Value <> Nothing Then 

       ITM_ID = rw.Cells("Column1").Value 
       DSPL_RCT = rw.Cells("Column2").Value 
       SLS_QTY = rw.Cells("Column3").Value 
       SLS_PRC = rw.Cells("Column4").Value 
       SLS_AMT = rw.Cells("Column5").Value 
       TAX_CODE = rw.Cells("Column6").Value 

       'INSERT A RECORD INTO THE DATABASE 

       Dim cmd As New SqlCommand("INSERT INTO DAY_PLUSALES (DT,ITM_ID,DSPL_RCT,SLS_QTY,SLS_PRC,SLS_AMT,TAX_CODE) values ('" & Form1.TextBox6.Text & "','" & ITM_ID & "','" & DSPL_RCT & "','" & SLS_QTY & "','" & SLS_PRC & "','" & SLS_AMT & "','" & TAX_CODE & "')", con) 

       cmd.ExecuteNonQuery() 

End If 

     Next

来源

2016-11-03 07:49:47

插入在数据库中添加额外的行

回答

相关问题