以文本方式查看主题

-  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
--  
和一楼一样的筛选