窗口中有2个表 表A（beforeSaveDatarow 事件）和表B 如果currentTable是表A，正常提示，如果currentTable是表B，不提示。
beforeSaveDatarow 部分代码
Dim 测试 As String = e.DataRow("测试")
If 测试.Length>0 Then
If e.DataRow.Isnull("列1") Then
Dim wz As Integer = Tables("表A").FindRow(e.DataRow) '位置
If wz >= 0 Then
Tables("表A").Position = wz
End If
messagebox.show("第" & CurrentTable.Position +1 " ,"信息系统提示:", MessageBoxButtons.OK, MessageBoxIcon.Information)
Tables("表A").Select (Tables("表A").Position,Tables("表A").Cols("列1").Index)
e.Cancel=True
End If
End If
加好友 
发短信
Post By：2024/1/5 10:19:00 [只看该作者]
