Dim t As Table = Tables("订单管理_table_骨架计划")

Dim sc As new SQLCommand

Dim dp As WinForm.DateTimePicker = Forms("订单管理").Controls("DateTimePicker_骨架计划")

Dim i_count As Integer

sc.ConnectionName = Vars("str_dataname1")

If t.rows.Count > 0 Then

    t.DataTable.DeleteFor("产品名称 Is null")

End If

If t.DataTable.DataRows.Count > 0 Then

    i_count = t.DataTable.DataRows.Count - 1

    For i As Integer = 0 To i_count

            If t.DataTable.DataRows(i).RowState = DataRowState.Added Then

                sc.CommandText = "insert into gjjh(aprq,cpmc,ggjh,bcsm,apsl,bz) values(\'" & dp.Value & "\',\'" & t.Rows(i)("产品名称") & "\',\'" & t.Rows(i)("规格件号") & "\',\'" & t.Rows(i)("补充说明") & "\'," & t.Rows(i)("安排数量") & ",\'" & t.Rows(i)("备注") & "\')"

                sc.ExecuteNonQuery

            End If

            If t.DataTable.DataRows(i).RowState = DataRowState.Modified Then

                sc.CommandText = "update gjjh set cpmc=\'" & t.Rows(i)("产品名称") & "\',ggjh=\'" & t.Rows(i)("规格件号") & "\',bcsm=\'" & t.Rows(i)("补充说明") & "\',apsl=" & t.Rows(i)("安排数量") & ",bz=\'" & t.Rows(i)("备注") & "\' where id=" & t.Current("编号")

                sc.ExecuteNonQuery

            End If 

    Next

    MessageBox.Show("保存成功")

   Functions.Execute("骨架计划查询")

Else

    MessageBox.Show("无任何数据")

End If

点击 增行 按钮 ,在新增加的行里面编辑好之后再点击 保存 按钮 就会出现这个错误,如果新增行后不作任何编辑直接点击保存则不会出现这种错误
此主题相关图片如下：1.jpg

此主题相关图片如下：2.jpg