Dim dr As DataRow = DataTables("人工时台账").Find("[Date] >= #" & Date.Today & "#")
If dr Is Nothing 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/31 9:30:00 [显示全部帖子]
