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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]下拉列表

共有2082人关注过本帖树形打印复制链接主题：[求助]下拉列表

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

[求助]下拉列表 发帖心情

Post By：2018/7/21 11:12:00 [只看该作者]

代码一

If e.Col.Name = "付款方式" Then '如果正在编辑的是付款方式

'从wubocmx7表提取该收支的付款方式作为列表项目

e.Col.Combolist = DataTables("wubocmx7").GetComboListString("付款方式", "[收支] = '" & e.Row("付款方式") & "'")

End If

代码二

If e.Col.Name = "账目名称" Then '如果正在编辑的是账目名称

'从wubocmx7表提取该收支的账目名称作为列表项目

e.Col.Combolist = DataTables("wubocmx7").GetComboListString("账目名称", "[收支] = '" & e.Row("账目名称") & "'")

End If

同一个表的PrepareEdit中代码一起作用，代码二不起作用，哪里不对呢，如果再关联表中如何写？

有点蓝

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

加好友

发短信

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

Post By：2018/7/21 11:22:00 [只看该作者]

代码没有问题，写到子表中即可

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2018/7/21 11:26:00 [只看该作者]

子表中账目名称那一列没有出现下拉列表，而且窗口表中付款方式和账目名称也没有出现下拉列表

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2018/7/21 11:28:00 [只看该作者]

Tables("wubocmx7").Cols("付款方式").Combolist = DataTables("wubocmx7").GetComboListString("付款方式", "[收支] = '" & e.Row("付款方式") & "'")

Tables("wubocmx7").Cols("账目名称").Combolist = DataTables("wubocmx7").GetComboListString("账目名称", "[收支] = '" & e.Row("账目名称") & "'")

写成这样对吗？

有点蓝

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

加好友

发短信

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

Post By：2018/7/21 11:43:00 [只看该作者]

你是根据单元格的内容作为条件取值的，如果没有输入，导入就不会有值了。逻辑搞错了吧

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2018/7/21 11:51:00 [只看该作者]

都有数值

有点蓝

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

加好友

发短信

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

Post By：2018/7/21 11:56:00 [只看该作者]

上传实例测试

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2018/7/21 11:59:00 [只看该作者]

换个方式：

Tables("wubocmx7").Cols("付款方式").Combolist = DataTables("wubocmx7").SQLGetComboListString("付款方式")

Tables("wubocmx7").Cols("账目名称").Combolist = DataTables("wubocmx7").SQLGetComboListString("账目名称")

Tables("wuboc7.wubocmx7").Cols("付款方式").Combolist = DataTables("wubocmx7").SQLGetComboListString("付款方式")

Tables("wuboc7.wubocmx7").Cols("账目名称").Combolist = DataTables("wubocmx7").SQLGetComboListString("账目名称")

这样就行，如何加筛选？

[此贴子已经被作者于2018/7/21 11:59:44编辑过]

有点蓝

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

加好友

发短信

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

Post By：2018/7/21 14:07:00 [只看该作者]

根据什么条件筛选？

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2018/7/21 14:49:00 [只看该作者]

和一楼一样的筛选

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

总数 17 1 2 下一页

主题：[求助]下拉列表