用全局变量
If e.Col.Name = "设计" Then
e.Cancel = True
vars("表列") = e.table.name & "|" & e.Col.Name
Forms("设计").Open()
End If
---------------------
If e.form.controls("checkbox1").checked = False Then
Dim tbl As Table = Tables("设计_Table1")
If tbl.Current IsNot Nothing andalso vars("表列") > "" Then
dim ss() as string = vars("表列").split("|")
Tables(ss(0)).Current(ss(1)) = tbl.Current("设计") 希望跟帮助文件《编写通用的下拉目录树》 一样， 用哪个属性参数可以知道是什么表的什么列打开了Forms("设计").窗口，并给与赋值？
End If
Forms("设计").Close()
End If
[此贴子已经被作者于2024/11/2 9:51:07编辑过]
加好友 
发短信
Post By：2024/11/2 9:10:00 [显示全部帖子]
