以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口中的表调用高级筛选的系统命令的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74700)

--  作者:huangfanzi
--  发布时间:2015/9/16 22:55:00
--  [求助]窗口中的表调用高级筛选的系统命令的问题
用以下代码调用高级筛选后,发现个问题:筛选界面中的“内容”列没有下拉内容。
如果在maintable下使用系统菜单中的高级筛选,例如“列”选择了“客户”,在“内容”中会有所有客户的下拉列表。
窗口中调用高级筛选后是这个情况吗?
Forms("窗口1").Select
Forms("窗口1").Controls("Table1").Select
Syscmd.Filter.Advanced()

--  作者:大红袍
--  发布时间:2015/9/16 23:53:00
--  

我测试一样有下拉内容


--  作者:huangfanzi
--  发布时间:2015/9/17 8:14:00
--  
难道问题出在窗口中的表是SQL表?附上表的生成代码与截图,老师帮我看看。
Tables("销售合同生产过程查询_Table1").Fill("S elect Distinct  {产品销售合同}.执行状态 As [合同状态],销售类型,合同主号,合同号,简称,签订日期,交货期,{产品销售合同}.牌号,规格,状态,[硬度_MIN],[硬度_MAX],重量,编制时间,生产计划主号,生产计划目标,产品特征,投料卷号,项目状态,目标单卷重 As [产出重量] From {生产计划} Right JOIN {产品销售合同} ON {产品销售合同}.[合同号] = {生产计划}.[配属合同号] Where " & flt,"ShcsErpSql",True)



图片点击可在新窗口打开查看此主题相关图片如下:高级筛选.gif
图片点击可在新窗口打开查看


--  作者:大红袍
--  发布时间:2015/9/17 9:02:00
--  

汗,你这个是查询表。

 

你没有给表设置下拉,自然就没有下拉。

 

http://www.foxtable.com/help/topics/0578.htm

 


--  作者:huangfanzi
--  发布时间:2015/9/17 11:56:00
--  
测试下,懂了,原来系统调用的高级筛选用在查询表上时,要设置好查询表的ComboList才能在“内容”中出现下拉内容。

[此贴子已经被作者于2015/9/17 12:06:20编辑过]

--  作者:大红袍
--  发布时间:2015/9/17 12:05:00
--  
窗口表不能直接用,要自己实现那个功能。
--  作者:huangfanzi
--  发布时间:2015/9/17 12:06:00
--  
但现在有个小问题,想偷懒一下,我不想把这张查询中的每个列全设置一次ComboList,老师能帮我写段代码,可以循环生成查询表中所有列的ComboList,谢谢!
--  作者:大红袍
--  发布时间:2015/9/17 12:12:00
--  

循环设置,参考

 

For Each c As Col In Tables("销售合同生产过程查询_Table1").cols
    c.ComboList = c.Table.DataTable.GetComboListString(c.Name)
Next