共2 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：表属性事件 beforeSaveDatarow
1楼
puma 发表于：2024/1/5 10:19:00窗口中有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
2楼
有点蓝 发表于：2024/1/5 10:33:00if CurrentTable.name = "表A" then
提示
共2 条记录, 每页显示 10 条, 页签:
[1]