Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共16 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:组合框的问题

1楼
blackzhu 发表于:2009/2/16 17:42:00
  组合框的列表项目内容取自某表,我想排除重复内容,代码怎么写?
2楼
ybil 发表于:2009/2/16 17:49:00
GetComboListString
     or
GetUniqueValues
3楼
blackzhu 发表于:2009/2/17 8:46:00
以下是引用ybil在2009-2-16 17:49:00的发言:
GetComboListString
     or
GetUniqueValues

   昨日看了半天我还是不知道怎么弄?如:我在A表中有一个订单为555,这个订单有两个颜色分别为E.F,我想在B表中输入订单555时,颜色列可以自动形成下拉列表项目"E,F"可以选择,在表中我根据狐爸的帮助早就做出来了,但是在窗口我做不出来,每次输订单555时,颜色列的组合框下拉列表项目只能将A表中的颜色列所有的颜色列了出来.并不是对应这个555订单的E,F两个颜色.(这一个我认为能不能改进一下,居然绑定表和列那么窗口中列表项目应该也跟着表中的数据自动生成)
请帮忙解决一下.

4楼
狐狸爸爸 发表于:2009/2/17 8:53:00
控件不是有Enter事件吗,在这个事件设置代码,每次进入这个组合框就动态生成列表项目。
5楼
blackzhu 发表于:2009/2/17 9:27:00
以下是引用狐狸爸爸在2009-2-17 8:53:00的发言:
控件不是有Enter事件吗,在这个事件设置代码,每次进入这个组合框就动态生成列表项目。

  我知道在ENTER中设置代码,但没有做出来!

6楼
狐狸爸爸 发表于:2009/2/17 9:31:00
代码完全一样:

Dim cmb As WinForm.ComboBox = e.Sender
cmb.ComboList = DataTables("表名").GetComboListString("列名","条件")
7楼
blackzhu 发表于: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("口岸") & "'"


就这句代码,我想加一个去除重复内容的代码?
8楼
狐狸爸爸 发表于:2009/2/17 9:42:00
GetComboListString 本来就是自动排除重复内同的。

图片点击可在新窗口打开查看
9楼
blackzhu 发表于:2009/2/17 10:29:00
以下是引用狐狸爸爸在2009-2-17 9:42:00的发言:
GetComboListString 本来就是自动排除重复内同的。

图片点击可在新窗口打开查看

搞定!

10楼
blackzhu 发表于: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
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


一直出错,我不知道是什么原因?望指教!


共16 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.