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

如果是因为版本问题.装个2013吧.文件我好像已经删掉了.

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(出生年月)=" & 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

帮你贴出来了

 

<!--EndFragment-->

感谢感谢，谢谢BIN,XTY!

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

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

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