如下复制代码
e.DataRow("审核")= True
Dim nma() As String = { "订单号","部门", "编号","品名", "单价","日期","数量","金额"}
Dim nmb() As String = { "订单号","部门", "编号","品名", "单价","日期","数量","积分"}
For Each nm As String In nma
If e.DataRow.Isnull(nm) Then
messagebox.Show("请输入" & nm & "!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Return
End If
Next
Dim dr As DataRow = DataTables("积分").Find("订单号 = '" & e.DataRow("订单号") & "'")
If dr Is Nothing Then
dr = DataTables("积分").AddNew
End If
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
加好友 
发短信
Post By：2014/2/19 23:23:00 [只看该作者]
