标题：[求助]关于按钮代码加载数据(已解决)
一段按钮代码，用于生成当月的车间名册，代码存在两个问题：1、当组合框空白时，为什么应出现“请选择部门”的提示而没有出现提示；2、人员数据表中，符合条件但离厂日期列为空白的数据如何能够加载到车间名册表中。请各位老师指教，谢谢！！
Dim mydate As Date = Forms("车间名册").Controls("DateTimePicker1").Text
Dim bm As String = Forms("车间名册").Controls("ComboBox1").Text
Dim y As Integer = mydate.Year
Dim m As Integer = mydate.Month
Dim Days As Integer = Date.DaysInMonth(y,m)
Dim yd As Date = New Date(y,m,Days) '月底日期
Dim yc As Date = New Date(y,m,1) '月初日期
Dim ny As String = format( mydate,"yyyy-MM")
'删除所有行
DataTables("车间名册").DeleteFor("[编号] Is Not Null ")
'加载表
Dim f As New Filler
f.SourceTable = DataTables("人员数据") '指定数据来源
f.SourceCols = "编号,姓名,当前部门" '指定数据来源列
f.DataTable = DataTables("车间名册") '指定数据接收表
f.DataCols = "编号,姓名,部门" '指定数据接收列
If bm IsNot Nothing Then
f.Filter="[当前部门]= '"& bm & "'and [离厂日期]>= '"& yc & "' and [进厂日期]<= '"& yd &"'"
Else
MessageBox.Show("请选择部门","提示")
Return
End If
f.Fill() '填充数据
Tables("车间名册").AutoSizeCols()
Tables("车间名册").Sort = "编号"
DataTables("车间名册").DataCols("编号").RaiseDataColChanged()
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目177.table |
Dim bm As String = Forms("车间名册").Controls("ComboBox1").Text
Dim y As Integer = mydate.Year
Dim m As Integer = mydate.Month
Dim Days As Integer = Date.DaysInMonth(y,m)
Dim yd As Date = New Date(y,m,Days) '月底日期
Dim yc As Date = New Date(y,m,1) '月初日期
Dim ny As String = format( mydate,"yyyy-MM")
'删除所有行
DataTables("车间名册").DeleteFor("[编号] Is Not Null ")
'加载表
Dim f As New Filler
f.SourceTable = DataTables("人员数据") '指定数据来源
f.SourceCols = "编号,姓名,当前部门" '指定数据来源列
f.DataTable = DataTables("车间名册") '指定数据接收表
f.DataCols = "编号,姓名,部门" '指定数据接收列
If bm > ""
f.Filter="[当前部门]= '"& bm & "'and [离厂日期]>= '"& yc & "' and [进厂日期]<= '"& yd &"' And [离厂日期] Is Not NuLL"
Else
MessageBox.Show("请选择部门","提示")
Return
End If
f.Fill() '填充数据
Tables("车间名册").AutoSizeCols()
Tables("车间名册").Sort = "编号"
DataTables("车间名册").DataCols("编号").RaiseDataColChanged()
应该自己琢磨的：
f.Filter="[当前部门]= '"& bm & "' and ([离厂日期]>= '" & yc & "' Or [离厂日期] Is NuLL) and [进厂日期]<= '" & yd & “‘”