主题：复选组合框候选值问题

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

点击浏览该文件:复选组合框候选值问题11.rar

昨天的窗口控件姓名、姓名1、姓名2只是为了让老师们比较清楚我的目的，现在我想应该表达的比昨天更清楚一点，望前辈帮帮忙。我的表中主要试填28号的数据，看看候选值时候正确，谢谢

呵呵 你拐的弯太离谱了···· 

28号的数据，这是个什么东东

 

m1 ： A|B|D|E|F|H|L|N|P|Q|R|S|T|U|V|X|Y  

m2 ： A|B|C|D|E|F

 

结果：？？？

如果：

m1 ： A|B|D|E|F|H|L|N|P|Q|R|S|T|U|V|X|Y  

m2 ： A|B|C|D|E|F

 

结果：A|B|D|E|F   应为m1和m2同时有的值，谢谢

Dim m1,m2,m3 As String
Dim str1 As Date = e.Form.Controls("日期").Value
Dim str2 As String = e.Form.Controls("班别").Value
m1 = DataTables("表A").GetComboListString("姓名", "日期 = #" & str1 & "# And 出勤工时 Is Null")
m2 = DataTables("表A").GetComboListString("姓名", "日期 > #" & str1.AddDays(-5) & "# And 班别 = '" & str2 & "'")
Dim Values() As String
Values = m1.split("|")
For Index As Integer = 0 To Values.Length - 1
    If m2.Contains(Values(Index)) Then
        m3 = m3 & "|" & Values(Index)
    End If
Next
e.Sender.ComboList = m3

应该是你要的：

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

点击浏览该文件:复选组合框候选值问题 结果.rar

如果窗口中姓名下拉列表中每个名字都可以勾选，请将m3 = m3 & "," & m1.split("|")(i)  改为：

m3 = m3 & "|" & m1.split("|")(i) 

 

呵呵，还是C版的简洁，少了一个For .... Next ，效果也一样～ 

谢谢C版，正确，辛苦了

你要是能表达清楚你的问题，早就解决了···   呵呵

谢谢mr725兄