| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]日期条件 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101383) |
| -- 作者：huhuyq -- 发布时间：2017/5/29 20:38:00 -- [求助]日期条件 日期条件写不来，请大神帮忙，要求如果“人工时台账”的“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 |
| -- 作者：有点蓝 -- 发布时间：2017/5/31 9:30:00 -- 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
|