日期条件写不来，请大神帮忙，要求如果“人工时台账”的“Date”列有大于或等于今天日期则不自动填充，如果没有则进行填充。
Dim d1 As List(Of Date)
d1 = DataTables("人工时台账").GetValues("Date","[Date] >= #" & Date.Today & "#")
If d1 IsNull Then
Dim f As New Filler
f.SourceTable = DataTables("员工") '指定数据来源
f.SourceCols = "Chinese_Name,English_Name,Passport_No,Company,Personnel_Classify_Position" '指定数据来源列
f.DataTable = DataTables("人工时台账") '指定数据接收表
f.DataCols = "Chinese_Name,English_Name,Passport,Company,Position" '指定数据接收列
f.filter="Mobilization_to_Kuwait_From_Boarding Is not Null"
f.Fill() '填充数据
End If
加好友 
发短信
Post By：2017/5/29 20:38:00 [显示全部帖子]
