以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多表通用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194009)
--  作者：1234567
--  发布时间：2024/11/2 8:46:00
--  多表通用

If e.form.controls("checkbox1").checked = False Then
    Dim tbl As Table = Tables("设计_Table1")
    If tbl.Current IsNot Nothing Then
        Tables("生产管理_Table01").Current("设计") = tbl.Current("设计")  希望跟帮助文件《编写通用的下拉目录树》 一样， 用哪个属性参数可以知道是什么表的什么列打开了Forms("设计").窗口，并给与赋值？

 End If
    Forms("设计").Close()
End If
--  作者：有点蓝
--  发布时间：2024/11/2 9:10:00
--  
Forms("设计")在什么事件使用什么代码打开的？
--  作者：1234567
--  发布时间：2024/11/2 9:17:00
--  

CellButtonClick

If e.Col.Name = "设计" Then
    e.Cancel = True
    Forms("设计").Open()
End If
--  作者：有点蓝
--  发布时间：2024/11/2 9:35:00
--  
用全局变量

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编辑过]
--  作者：1234567
--  发布时间：2024/11/2 9:45:00
--  

改为DropDownForm窗口

Tables("设计_Table1")的表事件Click

Dim tbl As Table = Tables("设计_Table1")
Dim tr As Row
tr = e.Form.DropTable.Current \'获取此表的当前行
If tbl.Current IsNot Nothing Then      
    tr("设计") = tbl.Current("设计")   为什么没有执行
End If
e.Form.DropDownBox.CloseDropdown()
--  作者：有点蓝
--  发布时间：2024/11/2 9:52:00
--  
学会调试

……
tr = e.Form.DropTable.Current \'获取此表的当前行
msgbox(tbl.Current IsNot Nothing)
If tbl.Current IsNot Nothing Then      
msgbox(tbl.Current("设计") )
    tr("设计") = tbl.Current("设计")   为什么没有执行
msgbox(tr("设计"))
End If
……
[此贴子已经被作者于2024/11/2 9:52:43编辑过]
--  作者：1234567
--  发布时间：2024/11/2 9:57:00
--  
msgbox(tbl.Current IsNot Nothing)  显示True
--  作者：1234567
--  发布时间：2024/11/2 10:04:00
--  
e.Form.DropDownBox.CloseDropdown()
Dim tbl As Table = Tables("设计_Table1")
Dim tr As Row
tr = e.Form.DropTable.Current \'获取此表的当前行
msgbox(tbl.Current IsNot Nothing)   显示True
msgbox(tbl.Current("设计"))              显示张三
If tbl.Current IsNot Nothing Then
    tr("设计") = tbl.Current("设计")
    msgbox(tr("设计"))                       显示张三，但实际表格中未显示
End If
e.Form.DropDownBox.CloseDropdown()
--  作者：1234567
--  发布时间：2024/11/2 10:11:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目9.table
--  作者：有点蓝
--  发布时间：2024/11/2 10:22:00
--  
Dim tbl As Table = Tables("设计_Table1")
If tbl.Current IsNot Nothing Then      
    e.Form.DropDownBox.value = tbl.Current("设计")   为什么没有执行
End If
e.Form.DropDownBox.CloseDropdown()