单元格编辑的时候弹出提示还可以，raisedatacolchanged的时候就不要弹出提示了，没有多大作用
vars("show") = false
DataTables("PurchaseN_Table2").DataCols("采购单状态").raisedatacolchanged()
vars("show") = true
MessageBox.show("已完成采购单将锁定")
-----------
If e.DataCol.Name = "采购单状态" OrElse e.DataCol.Name = "未支付金额" Then
If (e.DataRow("采购单状态") = "直邮签收" OrElse e.DataRow("采购单状态") = "已入库") AndAlso e.DataRow("未支付金额") = 0 Then
if vars("show")= ture
MessageBox.show("采购单已完成,该采购单将锁定")
end if
e.DataRow.Locked = True
e.Form.Controls("js").Visible = True
DataTables("PurchaseN_Table1").AllowEdit = False
End If
End If
加好友 
发短信
Post By：2020/2/24 14:25:00 [显示全部帖子]
