以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]将列内容去除重复值后显示在窗口组合框中的代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=134010)

--  作者:hanzhang98
--  发布时间:2019/4/25 11:20:00
--  [求助]将列内容去除重复值后显示在窗口组合框中的代码
老师好。想将窗口副本“窗口1_Table1”表的“所属期间”列去除重复后的值显示在窗口组合框中,但下面的代码错误。请老师帮助指导。谢谢。

e.Form.Controls("ComboBox1_Page13_Cx").Text = Tables("系统管理_Table1_Page13").RepeatFilter("所属期间", 1)    


[此贴子已经被作者于2019/4/25 11:45:55编辑过]

--  作者:有点甜
--  发布时间:2019/4/25 13:20:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/1435.htm

 

 


--  作者:hanzhang98
--  发布时间:2019/4/25 15:39:00
--  
老师好。按老师的指导,已经获取到列表的值,但如何用代码将获取到的值变为组合框的自定义列表项。

[此贴子已经被作者于2019/4/25 16:27:42编辑过]

--  作者:有点蓝
--  发布时间:2019/4/25 15:48:00
--  
参考:http://www.foxtable.com/webhelp/scr/0925.htm
--  作者:hanzhang98
--  发布时间:2019/4/25 16:27:00
--  
老师好。上面的问题已解决,谢谢老师指导。

再请教老师,下面的代码是对窗口表【Tables("窗口1_Table1")】的全表进行筛选。现在想变为只对其当前加载(或显示)的内容进行筛选。也就是当前内容是已经用筛选目录树筛选出来的,下面的代码想修改为只对现在显示的内容进行筛选而不是对全表进行筛选。请老师帮助。谢谢。

Dim Ssqj As WinForm.ComboBox = e.Form.Controls("ComboBox1_Page13_Cx")
Dim txt As String = Ssqj.value
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'*" & txt & "*\'"
    tbl.Filter = "所属期间 Like " & txt
End If

--  作者:有点蓝
--  发布时间:2019/4/25 16:51:00
--  
tbl.Filter = IIF(tbl.Filter > "",tbl.Filter & " and ","") & "所属期间 Like " & txt
--  作者:hanzhang98
--  发布时间:2019/4/25 17:21:00
--  
谢谢老师指导。