If e.DataCol.Name = "提交"

    If e.DataRow("提交") = True Then

        Dim nma() As String = { "采购编号" , "项目名称","申购人" }

        Dim nmb() As String = { "采购编号" , "项目名称","申购人" }

        e.DataRow.save

        Dim dr As DataRow = DataTables("采购审核表").AddNew

        For i As Integer = 0 To nma.Length - 1

            dr(nmb(i)) = e.DataRow(nma(i))

        Next

    Else

        DataTables("采购审核表").deletefor("采购编号 = \'" & e.DataRow("采购编号") & "\'")

    End If

End If

此主题相关图片如下：qq截图20160316154127.png

报错，实在看不出哪里错了~

这段代码没问题。

看看表 采购审核表 的dataRowAdded事件和dataColChanged事件

http://www.foxtable.com/help/topics/1485.htm