甜老师帮忙看看这代码有什么问题
Dim xm As WinForm.TextBox = e.Form.Controls("员工姓名")
Dim nf As WinForm.ComboBox = e.Form.Controls("年份")
Dim yf As WinForm.ComboBox = e.Form.Controls("月份")
If xm.value="" Then
MessageBox.show("请选择员工!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Return
End If
If nf.value="" Then
MessageBox.show("请选择年份!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Return
End If
If yf.value="" Then
MessageBox.show("请选择月份!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Return
End If
Dim d1 As Integer=nf.value
Dim d2 As Integer=yf.value
Dim dw As String =xm.value
Dim d As new Date(d1,d2,1)
DataTables("考勤管理").LoadFilter = "[姓名]= '" & dw & "' And [日期] >= '" & d & "' And [日期]< '" & d.AddMonths(1) & "'" '加载
DataTables("考勤管理").Load
错误提示：标准表达式中数据类型不匹配。
加好友 
发短信
Post By：2015/1/26 17:42:00 [只看该作者]
