Select Case e.DataCol.Name
Case "是否开piao" Then '如果是已结帐列的内容变动
systemready = False
If e.NewValue = True Then '而且变动后的值是True(已勾选)
e.DataRow("已开piao金额") = e.DataRow("加工费") '那么锁定此行
e.DataRow("未开piao金额") =0 '那么锁定此行
Else If e.NewValue = False Then '而且变动后的值是True(已勾选)
e.DataRow("未开piao金额") =e.DataRow("加工费") '那么锁定此行
e.DataRow("已开piao金额") = 0
End If
systemready = True
Case "已开piao金额"
If e.NewValue > 0 Then
systemready = False
e.DataRow("是否开piao") = True
e.DataRow("未开piao金额") =0
systemready = True
End If
Case "已未开piao金额"
If e.NewValue > 0 Then
systemready = False
e.DataRow("是否开piao") = False
e.DataRow("已开piao金额") = 0
systemready = True
End If
End Select
[此贴子已经被作者于2020/7/31 10:46:47编辑过]