以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  复选组合框候选值问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8289)

--  作者:wqc360
--  发布时间: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:59:48编辑过]

--  作者:wqc360
--  发布时间:2010/9/28 21:37:00
--  
即“既满足姓名的筛选又满足姓名1的筛选作为候选值
--  作者:mr725
--  发布时间:2010/9/28 23:31:00
--  
看了n时,没理解过来~~~   , 愚顿啊``````
--  作者:wqc360
--  发布时间:2010/9/29
--  

窗口控件姓名才是我要的控件,只不过代码不全,姓名1控件只不过是我要表达的意思,比如:

输入日期和班别,姓名候选值为A,B,D,E,F,G,H.......姓名1候选值为A,B,C,D,其实我想要的姓名候选值为A,B,D,即姓名候选值和姓名1候选值都有的。谢谢


--  作者:mr725
--  发布时间:2010/9/29 1:20:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:复选组合框候选值问题.rar


--  作者:wqc360
--  发布时间:2010/9/29 8:25:00
--  
谢谢mr725兄,但是好像不对,表中24-27号已填写完毕,如果现在要填写28好的,控件日期输入28号,班别选择各班别,姓名按要求出现候选值,如班别选车床白班,姓名应出现候选值A,B;如班别选车床晚班,姓名应出现候选值DE,F;谢谢
[此贴子已经被作者于2010-9-29 8:24:59编辑过]

--  作者:czy
--  发布时间:2010/9/29 9:57:00
--  

看不懂。

[此贴子已经被作者于2010-9-29 10:14:06编辑过]

--  作者:mr725
--  发布时间:2010/9/29 12:18:00
--  

蒙一下看:

 选择日期和班别后,姓名2控件直接得出结果。(不需要再选择 姓名 和 姓名1 了)

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:复选组合框候选值问题 org .rar


--  作者:wqc360
--  发布时间: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 15:37:20编辑过]

--  作者:mr725
--  发布时间:2010/9/29 16:04:00
--  
以下是引用wqc360在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 15:37:20编辑过]

把你的窗口传上来吧,并说明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         ???????

[此贴子已经被作者于2010-9-29 16:28:49编辑过]