以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]下拉列表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=122236) |
-- 作者:seal51 -- 发布时间: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中代码一起作用, 代码二不起作用, 哪里不对呢, 如果再关联表中如何写?
|
-- 作者:有点蓝 -- 发布时间:2018/7/21 11:22:00 -- 代码没有问题,写到子表中即可 |
-- 作者:seal51 -- 发布时间:2018/7/21 11:26:00 -- 子表中账目名称那一列没有出现下拉列表, 而且窗口表中付款方式和账目名称也没有出现下拉列表 |
-- 作者:seal51 -- 发布时间:2018/7/21 11:28:00 -- Tables("wubocmx7").Cols("付款方式").Combolist = DataTables("wubocmx7").GetComboListString("付款方式", "[收支] = \'" & e.Row("付款方式") & "\'") Tables("wubocmx7").Cols("账目名称").Combolist = DataTables("wubocmx7").GetComboListString("账目名称", "[收支] = \'" & e.Row("账目名称") & "\'") 写成这样对吗?
|
-- 作者:有点蓝 -- 发布时间:2018/7/21 11:43:00 -- 你是根据单元格的内容作为条件取值的,如果没有输入,导入就不会有值了。逻辑搞错了吧 |
-- 作者:seal51 -- 发布时间:2018/7/21 11:51:00 -- 都有数值 |
-- 作者:有点蓝 -- 发布时间:2018/7/21 11:56:00 -- 上传实例测试 |
-- 作者:seal51 -- 发布时间: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编辑过]
|
-- 作者:有点蓝 -- 发布时间:2018/7/21 14:07:00 -- 根据什么条件筛选? |
-- 作者:seal51 -- 发布时间:2018/7/21 14:49:00 -- 和一楼一样的筛选 |