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


  共有682人关注过本帖树形打印复制链接

主题:多表通用

帅哥哟,离线,有人找我吗?
1234567
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:827 积分:6488 威望: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


加好友 发短信
等级:四尾狐 帖子:827 积分:6488 威望: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


加好友 发短信
等级:四尾狐 帖子:827 积分:6488 威望: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


加好友 发短信
等级:四尾狐 帖子:827 积分:6488 威望: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


加好友 发短信
等级:四尾狐 帖子:827 积分:6488 威望: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


加好友 发短信
等级:四尾狐 帖子:827 积分:6488 威望:0 精华:0 注册:2013/2/18 17:46:00
  发帖心情 Post By:2024/11/2 10:11:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目9.table


 回到顶部
帅哥哟,离线,有人找我吗?
1234567
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:827 积分:6488 威望: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()

 回到顶部