多表通用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多表通用

共有199人关注过本帖树形打印复制链接主题：多表通用

1234567

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：788 积分：6217 威望：0 精华：0 注册：2013/2/18 17:46:00

多表通用

Post By：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

1234567

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：788 积分：6217 威望：0 精华：0 注册：2013/2/18 17:46:00

Post By：2024/11/2 9:17:00 [显示全部帖子]

CellButtonClick

If e.Col.Name = "设计" Then
e.Cancel = True
Forms("设计").Open()
End If

1234567

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：788 积分：6217 威望：0 精华：0 注册：2013/2/18 17:46:00

Post By：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()

1234567

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：788 积分：6217 威望：0 精华：0 注册：2013/2/18 17:46:00

Post By：2024/11/2 9:57:00 [显示全部帖子]

msgbox(tbl.Current IsNot Nothing) 显示True

1234567

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：788 积分：6217 威望：0 精华：0 注册：2013/2/18 17:46:00

Post By：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

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：788 积分：6217 威望：0 精华：0 注册：2013/2/18 17:46:00

Post By：2024/11/2 10:11:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目9.table

1234567

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：788 积分：6217 威望：0 精华：0 注册：2013/2/18 17:46:00

Post By：2024/11/2 13:32:00 [显示全部帖子]

Dim tr As Row
Dim tbl As Table = Tables("申请人_Table1")
tr = e.Form.DropTable.Current
tr("申请单位") = tbl.Current("申请单位")
tr("申请人") = tbl.Current("申请人") 为什么上一行可以执行，这一行必须要用 e.Form.DropDownBox.value = tbl.Current("申请人")
e.Form.DropDownBox.CloseDropdown()

下一主题 >> << 上一主题

主题：多表通用