Foxtable(狐表)用户栏目专家坐堂 → 复选组合框候选值问题


  共有11667人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
wqc360
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:790 积分:5677 威望:0 精华:0 注册:2009/4/17 18:42:00
复选组合框候选值问题  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:790 积分:5677 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/9/28 21:37:00 [显示全部帖子]

即“既满足姓名的筛选又满足姓名1的筛选作为候选值

 回到顶部
帅哥哟,离线,有人找我吗?
wqc360
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:790 积分:5677 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/9/29 [显示全部帖子]

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
wqc360
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:790 积分:5677 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/9/29 8:25:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
wqc360
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:790 积分:5677 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
wqc360
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:790 积分:5677 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/9/29 16:16:00 [显示全部帖子]

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


 回到顶部
帅哥哟,离线,有人找我吗?
wqc360
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:790 积分:5677 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/9/29 16:20:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
wqc360
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:790 积分:5677 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/9/29 16:54:00 [显示全部帖子]

如果:

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同时有的值,谢谢


 回到顶部
帅哥哟,离线,有人找我吗?
wqc360
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:790 积分:5677 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/9/29 17:16:00 [显示全部帖子]

谢谢C版,正确,辛苦了

 回到顶部
帅哥哟,离线,有人找我吗?
wqc360
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:790 积分:5677 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/9/29 17:38:00 [显示全部帖子]

谢谢mr725

 回到顶部
总数 11 1 2 下一页