Foxtable(狐表) → 用户栏目 → 专家坐堂 → 可通用下拉目录树


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

主题：可通用下拉目录树
帅哥哟，离线，有人找我吗？
1234567
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：806 积分：6312 威望：0 精华：0 注册：2013/2/18 17:46:00 		可通用下拉目录树  发帖心情 Post By：2023/11/10 13:00:00 [只看该作者]

采用可通用下拉目录树，当我不同的表的对应的列名是不一样的，
比如
表1    tr("邮编") = dr("邮编")
表2    tr("邮政编码") = dr("邮编")
如果做到通用？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/10 13:39:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/2112.htm

e.Form.DropDownBox.value = dr("邮编")
 回到顶部
帅哥哟，离线，有人找我吗？
1234567
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：806 积分：6312 威望：0 精华：0 注册：2013/2/18 17:46:00 		  发帖心情 Post By：2023/11/10 14:41:00 [只看该作者]

 错哪里了？
If Tables("窗口1_Table1").Current("外协") = True Then
Tables("窗口1_Table1").Cols("加工人").DropForm = "外协"
ElseIf Tables("窗口1_Table1").Current("外协") = False Then
    Tables("窗口1_Table1").Cols("加工人").DropForm = "本公司"
End If
 回到顶部
帅哥哟，离线，有人找我吗？
1234567
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：806 积分：6312 威望：0 精华：0 注册：2013/2/18 17:46:00 		  发帖心情 Post By：2023/11/10 14:44:00 [只看该作者]

AfterLoad事件下

 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2023/11/10 14:45:00 [只看该作者]

变量代替列名，什么表都可以！

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/10 14:46:00 [只看该作者]

全错。prepareedit事件

if e.col.name = "加工人" then
if e.row("外协") then
e.col.DropForm = "外协"
else
e.col.DropForm = "本公司"
end if
end if
 回到顶部
帅哥哟，离线，有人找我吗？
1234567
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：806 积分：6312 威望：0 精华：0 注册：2013/2/18 17:46:00 		  发帖心情 Post By：2023/11/10 15:14:00 [只看该作者]

蓝老师，“外协”是逻辑列，下列代码中 = True 为什么可以省略？

If e.Row("外协") = True  Then

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/10 15:18:00 [只看该作者]

先理解一下if的用法就明白了：http://www.foxtable.com/webhelp/topics/0223.htm

单分支形式：

If 条件表达式 Then
    代码
End If

如果条件表达式的计算结果为True，也就是条件成立的话，则执行代码。
例如在命令窗口输入下面的代码：


如果勾选了，那么e.Row("外协")的值就是true，符合条件【If true Then】。


【If e.Row("外协") = True  Then】其实等于【If true = True  Then】，也就是等于【If true Then】
 回到顶部
帅哥哟，离线，有人找我吗？
1234567
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：806 积分：6312 威望：0 精华：0 注册：2013/2/18 17:46:00 		  发帖心情 Post By：2023/11/10 15:20:00 [只看该作者]

谢谢老师

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询