大神帮忙看看异常报错啊

        Dim result(10)‘有n列定义n-1个,从0开始的
        dim STRstr as String=DataGridView1.Item(2, DataGridView1.CurrentCell.RowIndex).Value.ToString.Trim'将关键值字段值给全局变量,这里我将产品编号做为关键字段
        dim i as integer
        for i=0 to n-1 'n是多少列
         result(i) = DataGridView1.Item(i, DataGridView1.CurrentCell.RowIndex).Value.ToString.Trim
        next
        Dim updatastr As String = "update 卓艺标准工时 set "  'set 后留一空格
        if result(0)<>"" then
              updatastr=updatastr &  "序号='" & result(0) & "',"
        else
              updatastr=updatastr &  "序号='',"          '如果不设此值，更新时会出错
        endif
        if result(1)<>"" then
              updatastr=updatastr &  "产品编号='" & result(1) & "',"
        else
              updatastr=updatastr &  "产品编号='',"
        endif
...........................最后一项后面不要加逗号
        updataStr = updataStr & " where 产品编号='" & STRstr "'"    ’where 前留一空格
        cn.Open()
        Dim da As New oledbommand(updataStr, cn)
         = CommandType.Text
       da.ExecuteNonQuery()
此方法比较笨，应该有更好的办法，不过能实现你要的结果。。。。

我试验了一下，如果用SQl语句和数据库的话，可以把dt定义成dataset,你的这些语句完全成立。
在这个程序里你把dim cb as new oledbcommandbuilder(da）放在button2_click事件里
因为更新以后要重新构造，你放在上面直接构造了，再改是以后的了
dim cb as new oledbcommandbuilder(da)
da.update(dt)
msgbox("更新成功")

统计记录
Dim Ston As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\vb1\KScount.mdb;Persist Security Info=False"
        Dim myConn As New OleDbConnection(Ston)
        myConn.Open()
        Dim Strcom As String = "select * from Tcount"
        Dim myComd As New OleDb.OleDbDataAdapter(Strcom, myConn)
        Dim mydataset As New DataSet
        myComd.Fill(mydataset, "Tcount")
        Dim consum1 As Single
        Dim consum2 As Single
        If mydataset.Tables(0).Rows.Count > 0 Then
            Dim strcom1 As String = "select sum(val(西药费)),sum(val(中草药)) from Tcount"  '这两个字段是字符型的，要转换下
            Dim myCommand As New OleDb.OleDbCommand(strcom1, myConn)
            Dim rd As OleDbDataReader = myCommand.ExecuteReader
            Do While rd.Read
                Try
                    consum1 = rd.GetValue(0)
                    consum2 = rd.GetValue(1)
                Catch
                    MsgBox(Err.Description)
                End Try
            Loop
        End If
        myConn.Close()
        myComd.Dispose()
        TextBox24.Text = consum1
        TextBox25.Text = consum2

[此贴子已经被作者于2017-8-18 08:56编辑过]