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
报错,实在看不出哪里错了~