- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 组合框的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1837)
-- 发布时间：2009/2/16 17:42:00
-- 组合框的问题
组合框的列表项目内容取自某表,我想排除重复内容,代码怎么写?
-- 发布时间：2009/2/16 17:49:00
--
GetComboListString
or
GetUniqueValues
-- 发布时间：2009/2/17 8:46:00
--
以下是引用ybil在2009-2-16 17:49:00的发言：
GetComboListString
or
GetUniqueValues
GetComboListString
or
GetUniqueValues
昨日看了半天我还是不知道怎么弄?如:我在A表中有一个订单为555,这个订单有两个颜色分别为E.F,我想在B表中输入订单555时,颜色列可以自动形成下拉列表项目"E,F"可以选择,在表中我根据狐爸的帮助早就做出来了,但是在窗口我做不出来,每次输订单555时,颜色列的组合框下拉列表项目只能将A表中的颜色列所有的颜色列了出来.并不是对应这个555订单的E,F两个颜色.(这一个我认为能不能改进一下,居然绑定表和列那么窗口中列表项目应该也跟着表中的数据自动生成)
请帮忙解决一下.
-- 发布时间：2009/2/17 8:53:00
--
控件不是有Enter事件吗，在这个事件设置代码，每次进入这个组合框就动态生成列表项目。
-- 发布时间：2009/2/17 9:27:00
--
以下是引用狐狸爸爸在2009-2-17 8:53:00的发言：
控件不是有Enter事件吗，在这个事件设置代码，每次进入这个组合框就动态生成列表项目。
控件不是有Enter事件吗，在这个事件设置代码，每次进入这个组合框就动态生成列表项目。
我知道在ENTER中设置代码,但没有做出来!
-- 发布时间：2009/2/17 9:31:00
--
代码完全一样：
Dim cmb As WinForm.ComboBox = e.Sender
cmb.ComboList = DataTables("表名").GetComboListString("列名"，"条件")
-- 发布时间：2009/2/17 9:35:00
--
Dim cmb As WinForm.Combobox = e.Sender
Dim r As Row = CurrentTable.Current
cmb.DataFilter = "IO = \'" & r("IO") & "\' And 色号 = \'" & r("口岸") & "\'"
就这句代码,我想加一个去除重复内容的代码?
-- 发布时间：2009/2/17 9:42:00
--
GetComboListString 本来就是自动排除重复内同的。
-- 发布时间：2009/2/17 10:29:00
--
以下是引用狐狸爸爸在2009-2-17 9:42:00的发言：
GetComboListString 本来就是自动排除重复内同的。
GetComboListString 本来就是自动排除重复内同的。
搞定!
-- 发布时间：2009/2/17 14:06:00
--
以下是引用狐狸爸爸在2009-2-17 9:31:00的发言：
代码完全一样：
Dim cmb As WinForm.ComboBox = e.Sender
cmb.ComboList = DataTables("表名").GetComboListString("列名"，"条件")
代码完全一样：
Dim cmb As WinForm.ComboBox = e.Sender
cmb.ComboList = DataTables("表名").GetComboListString("列名"，"条件")
Dim cmb As WinForm.Combobox = e.Sender
Dim r As Row = CurrentTable.Current
cmb.ComboList = DataTables("装箱单").GetComboListString("口岸","IO = \'" & r("IO") & "\'")
我的代码是这样的,我在窗口的IO文本框输入555,那么口岸的组合框中可以显示口岸,如上海.我选择上海后,后面一个订单号文本框可以显示相对应的订单号,我在窗口的SelectedIndexChanged事件中加入代码:
Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim dr As DataRow = cm.SelectedItem
If dr IsNot Nothing Then
e.Form.Controls("textbox1").Value = dr("订单号")
End If
一直出错,我不知道是什么原因?望指教!