- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 表属性事件 beforeSaveDatarow (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189929)
-- 发布时间：2024/1/5 10:19:00
-- 表属性事件 beforeSaveDatarow
窗口中有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
-- 发布时间：2024/1/5 10:33:00
--
if CurrentTable.name = "表A" then
提示