以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教一个列表的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127119)
--  作者：zjyhsf320
--  发布时间：2018/11/6 10:36:00
--  请教一个列表的问题
设列表在某表中取一列作为列表数据来源，在当下的列中，以列表作为数据输入方式。目的：在下一行的输入中，列表只有没有输入过的选项，请教怎样实现？
--  作者：有点甜
--  发布时间：2018/11/6 10:41:00
--  

1、用代码设置下拉内容

 

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

 

2、修改prepareEdit事件代码

 

If e.Col.name = "第三列" Then
    Dim s As String = e.Table.DataTable.GetComboListString("第三列").replace("|", "\',\'")
    Dim str As String = DataTables("表B").GetComboListString("第一列", "第一列 not in (\'" & s & "\')")
    e.Col.ComboList = str
End If