主题：窗口列表项目问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目23.table

打开窗口1、窗口3，切换表A行，表C数据会变化，但是窗口3设备和姓名控件列表项目能正常筛选。表C数据与表D一样，变化后可对比。
把窗口3设备组和班组控件的代码去掉，变成窗口2.
打开窗口1、窗口2，切换表A行，表C数据不会变化，但是窗口2设备和姓名控件列表项目不能正常筛选。
求教如用窗口2，列表项目不用窗口控件班组和设备组的变化筛选，而用窗口表“表A。表C”光标所在行进行筛选，代码应怎么写。
这就是我昨天提出的保存问题，其实是窗口控件问题，谢谢

实在不太明白你在说什么?我在三个窗口中没有看见筛选的代码呀?

放在 窗口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

谢谢mr725 兄

请问mr725 兄 ，要排除重复值，代码应该怎么改写，谢谢

用contains判断吧～

好人做到底，我不会，请帮帮忙写一下代码，插在3楼什么位置，谢谢

没弄懂你要排除什么？  是dr("设备") 的重复值吗 ?

这样吗？：
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

谢谢