- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 复选组合框候选值问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=8289)
-- 发布时间：2010/9/28 21:13:00
-- 复选组合框候选值问题
请问如示范文件表A窗口1，窗口姓名候选值代码：
Dim cmb As WinForm.CheckedComboBox = e.Sender
Dim str1 As Date = e.Form.Controls("日期").Value
cmb.ComboList = DataTables("表A").GetComboListString("姓名", " 日期 = #" & str1 & "# and 出勤工时 Is Null ")
窗口控件姓名1的候选值代码：
Dim cmb As WinForm.CheckedComboBox = e.Sender
Dim str1 As Date = e.Form.Controls("日期").Value
Dim str2 As String = e.Form.Controls("班别").Value
cmb.ComboList = DataTables("表A").GetComboListString("姓名", " 日期 > #" & str1.AddDays(-5) & "# and 班别 = \'" & str2 & "\' ")
怎样实现两个代码候选值筛选条件和在一起，即在控件姓名筛选以后，再筛选出符合控件姓名1的值作为最后候选值。谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目27.table |
-- 发布时间：2010/9/28 21:37:00
--
即“既满足姓名的筛选又满足姓名1的筛选作为候选值
-- 发布时间：2010/9/28 23:31:00
--
看了n时,没理解过来~~~ , 愚顿啊``````
-- 发布时间：2010/9/29
--
窗口控件姓名才是我要的控件，只不过代码不全，姓名1控件只不过是我要表达的意思，比如：
输入日期和班别，姓名候选值为A,B,D,E,F,G,H.......姓名1候选值为A,B,C,D，其实我想要的姓名候选值为A,B,D,即姓名候选值和姓名1候选值都有的。谢谢
-- 发布时间：2010/9/29 1:20:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:复选组合框候选值问题.rar |
-- 发布时间：2010/9/29 8:25:00
--
谢谢mr725兄，但是好像不对，表中24-27号已填写完毕，如果现在要填写28好的，控件日期输入28号，班别选择各班别，姓名按要求出现候选值，如班别选车床白班，姓名应出现候选值A,B;如班别选车床晚班，姓名应出现候选值DE,F;谢谢
-- 发布时间：2010/9/29 9:57:00
--
看不懂。
-- 发布时间：2010/9/29 12:18:00
--
蒙一下看：
选择日期和班别后，姓名2控件直接得出结果。（不需要再选择 姓名 和 姓名1 了）
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:复选组合框候选值问题 org .rar |
-- 发布时间：2010/9/29 15:34:00
--
还是不行，
思路对了。
请帮我完善窗口控件姓名Enter事件代码：谢谢
Dim m1,m2 As String
Dim cmb As WinForm.CheckedComboBox = e.Sender
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 & "\'")
cmb.ComboList = \'m1有并且m2也有的值作为候选值
-- 发布时间：2010/9/29 16:04:00
--
还是不行，
思路对了。
请帮我完善窗口控件姓名Enter事件代码：谢谢
Dim m1,m2 As String
Dim cmb As WinForm.CheckedComboBox = e.Sender
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 & "\'")
cmb.ComboList = \'m1有并且m2也有的值作为候选值
把你的窗口传上来吧，并说明1、2、3、。。。。。 别叫咱总是猜想～
这是m1的 这是m2的 你要的结果是什么
A|B|D|E|F|H|L|N|P|Q|R|S|T|U|V|X|Y F|G|H ？？？？？？？
A|B|D|E|F|H|L|N|P|Q|R|S|T|U|V|X|Y K|L|M|N|O ??????????????
A|B|D|E|F|H|L|N|P|Q|R|S|T|U|V|X|Y Q|T|U|V|W|Y ？？？？？？？