[求助]关于按钮代码加载数据(已解决) - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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 > ""
    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()

主题：[求助]关于按钮代码加载数据(已解决)