主题：[求助]各位高手，代码有错？

设置下拉框，选择月份后，点击查询命令按钮，执行代码如下：

 

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月的名单，错在哪里？

另：代码是不是繁琐了点？

 

不好意思，没讲清楚。

是只选择12月份和1月份的时候有结果且结果是错的，

选择12月份得到1月份生日的人

选择1月份得到12月份的人。

选择其他月份均无显示。

 

怎么做例子？

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

点击浏览该文件:管理项目1.zip

弄了一个，帮忙看看，谢谢。

还个个情况，出生年月是根据身份证号码取值的，有没有影响？

收到！谢谢！

不好意思，打不开，能不能把代码复制出来

感谢感谢，谢谢BIN,XTY!

与原代码比较在where month(出生年月)=" & m上有出入，能不能解说一下？！

我原来写的是 where month(出生年月)=month("& m &")"

在其他地方where year(劳动合同终止时间)="&  y &" And month(劳动合同终止时间)="&  m &")没有问题啊？