- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 窗口列表项目问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=6169)
-- 发布时间：2010/3/13 10:50:00
-- 窗口列表项目问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目23.table |
打开窗口1、窗口3，切换表A行，表C数据会变化，但是窗口3设备和姓名控件列表项目能正常筛选。表C数据与表D一样，变化后可对比。
把窗口3设备组和班组控件的代码去掉，变成窗口2.
打开窗口1、窗口2，切换表A行，表C数据不会变化，但是窗口2设备和姓名控件列表项目不能正常筛选。
求教如用窗口2，列表项目不用窗口控件班组和设备组的变化筛选，而用窗口表“表A。表C”光标所在行进行筛选，代码应怎么写。
这就是我昨天提出的保存问题，其实是窗口控件问题，谢谢
-- 发布时间：2010/3/13 13:47:00
--
实在不太明白你在说什么?我在三个窗口中没有看见筛选的代码呀?
-- 发布时间：2010/3/13 14:05:00
--
放在 窗口2 的 MouseEnter事件中：
Dim drs As List(Of DataRow)
drs = DataTables("表B").Select("[设备组] = \'" & tables("表A.表C").current("设备组") & "\'")
dim sb as string
for each dr as datarow in drs
if sb = ""
sb = dr("设备")
else
sb = sb & "|" & dr("设备")
end if
next
Dim sb11 As WinForm.ComboBox = Forms("窗口2").Controls("设备11")
sb11.ComboList= sb
-- 发布时间：2010/3/13 19:17:00
--
谢谢mr725 兄
-- 发布时间：2010/3/16 20:31:00
--
请问mr725 兄 ，要排除重复值，代码应该怎么改写，谢谢
-- 发布时间：2010/3/16 20:53:00
--
用contains判断吧～
-- 发布时间：2010/3/16 20:57:00
--
好人做到底，我不会，请帮帮忙写一下代码，插在3楼什么位置，谢谢
-- 发布时间：2010/3/16 21:02:00
--
没弄懂你要排除什么？ 是dr("设备") 的重复值吗 ?
[此贴子已经被作者于2010-3-16 21:03:39编辑过]
-- 发布时间：2010/3/16 21:19:00
--
这样吗？：
Dim drs As List(Of DataRow)
drs = DataTables("表B").Select("[设备组] = \'" & tables("表A.表C").current("设备组") & "\'")
dim sb as string
for each dr as datarow in drs
if sb = ""
sb = dr("设备")
else
if sb.contains(dr("设备")) = false
sb = sb & "|" & dr("设备")
end if
end if
next
Dim sb11 As WinForm.ComboBox = Forms("窗口2").Controls("设备11")
sb11.ComboList= sb
-- 发布时间：2010/3/17 1:19:00
--
谢谢