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

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

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

1234567

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

加好友

发短信

等级：三尾狐帖子：796 积分：6262 威望：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

有点蓝

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

加好友

发短信

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/11/2 9:10:00 [只看该作者]

Forms("设计")在什么事件使用什么代码打开的？

1234567

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

加好友

发短信

等级：三尾狐帖子：796 积分：6262 威望：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

有点蓝

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

加好友

发短信

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

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

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

加好友

发短信

等级：三尾狐帖子：796 积分：6262 威望：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()

有点蓝

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

加好友

发短信

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

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

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

加好友

发短信

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

Post By：2024/11/2 9:57:00 [只看该作者]

msgbox(tbl.Current IsNot Nothing) 显示True

1234567

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

加好友

发短信

等级：三尾狐帖子：796 积分：6262 威望：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

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

加好友

发短信

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

Post By：2024/11/2 10:11:00 [只看该作者]

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

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

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

总数 12 1 2 下一页

主题：多表通用