|
with e.Form
Dim query As New QueryBuilder
Dim dt As DataTable
Dim cmb1 As WinForm.ComboBox
Dim cmb2 As WinForm.ComboBox
cmb1 = .Controls("ComboBox1")
cmb2 = .Controls("ComboBox2")
If DataTables("员工资料").DataCols(cmb2.Value). IsDate Then
If .Controls("DateTimePicker1").Value Is Nothing Orelse .Controls("DateTimePicker2").Value Is Nothing Then
Messagebox.Show("请输入完整日期","提示")
Return
End If
query.SelectString = "Select * from {员工资料} where " & cmb2.Value & " BETWEEN #" & .Controls("DateTimePicker1").Value & "# AND #" & .Controls("DateTimePicker2").Value & "#" ''
Else
query.SelectString = "Select * from {员工资料} where " & cmb2.Value & " = '" & cmb1.Value & "'"
End If
query.Build
end with
|
加好友 
发短信
Post By：2008/11/10 17:56:00 [显示全部帖子]
