主题：表达式列是否不能用sql筛选加载

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