- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]各位高手，代码有错？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=31618)
-- 发布时间：2013/4/18 10:05:00
-- [求助]各位高手，代码有错？
设置下拉框，选择月份后，点击查询命令按钮，执行代码如下：
Dim dt As DataTable
Dim cmd As new SQLCommand
Dim ids As String
Dim box2 As WinForm.ComboBox= e.Form.Controls("ComboBox2")
Dim m As Byte = cbyte (box2.text)
cmd.CommandText = "Select [_Identify],部门,姓名,出生年月 From {基本信息} where month(出生年月)=month("& m &")"
dt = cmd.ExecuteReader
For Each dr As DataRow In dt.dataRows
ids = ids & "," & dr("_identify")
Next
ids = "(" & ids.trim(",") & ")"
ids = "Select [_Identify],部门,姓名,出生年月 From {基本信息} Where [_Identify] in " & ids
Tables("本月生日员工_Table1").Fill(ids,"",False)
Tables("本月生日员工_Table1").AllowEdit = False
但只得到12月、1月的名单，错在哪里？
另：代码是不是繁琐了点？
-- 发布时间：2013/4/18 10:12:00
--
什么意思? 你代码不是要获得某一个月出生的员工吗? 怎么会同时获得12月1月?
还是说只有选择12月,1月有效,选择其他月份无法获得结果? 发个例子出来看看吧.便于帮助你找到问题.
还有问题最好描述清楚一些.
-- 发布时间：2013/4/18 10:13:00
--
而且你这个其实一句SQL就能实现的了.拼接IDS属于多余的.
-- 发布时间：2013/4/18 10:34:00
--
不好意思，没讲清楚。
是只选择12月份和1月份的时候有结果且结果是错的，
选择12月份得到1月份生日的人
选择1月份得到12月份的人。
选择其他月份均无显示。
怎么做例子？
-- 发布时间：2013/4/18 10:35:00
--
那你直接把你项目文件发上来好了.
-- 发布时间：2013/4/18 10:54:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
弄了一个，帮忙看看，谢谢。
-- 发布时间：2013/4/18 10:55:00
--
还个个情况，出生年月是根据身份证号码取值的，有没有影响？
-- 发布时间：2013/4/18 11:02:00
--
好了
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目.zip |
-- 发布时间：2013/4/18 11:09:00
--
收到！谢谢！
-- 发布时间：2013/4/18 15:13:00
--
不好意思，打不开，能不能把代码复制出来