审核按钮
Dim tbl As DataTable=Tables("采购需求计算_table5").DataTable
Dim tb1 As Table=Tables("采购需求计算_table1") '大货用量表
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
If tbl.Find("款号ID = '" & tb1.current("款号ID") & "' and 审核 = true ") Is Nothing Then
cmd.CommandText = cmd.CommandText & " up date {大货用量表} set 审核='True' where 款号ID = " & tb1.current("款号ID")
cmd.ExecuteNonQuery
End If
大货用量表DataColChanged:
If e.DataCol.Name = "审核" Then '如果是已结帐列的内容变动
If e.NewValue = True Then '而且变动后的值是True(已勾选)
e.DataRow.Locked = True '那么锁定此行
Else
e.DataRow.Locked = False
End If
End If