Dim dtb As New DataTableBuilder("人员清点月汇总")
dtb.AddDef("清点日期", Gettype(Date))
dtb.AddDef("合计_批次", Gettype(Integer))
dtb.AddDef("合计_平均用时", Gettype(Integer))
dtb.AddDef("合计_平均用时2", Gettype(Date))
Dim qddws As List(of String) = DataTables("人员清点日志").GetValues("清点单位")
For Each qddw As String In qddws
dtb.AddDef(qddw & "_批次", Gettype(Integer))
dtb.AddDef(qddw & "_平均用时", Gettype(Integer))
dtb.AddDef(qddw & "_平均用时2", Gettype(Date))
Next
dtb.Build()
For Each dc As DataCol In DataTables("人员清点月汇总").DataCols
If dc.Name.Contains("平均用时2") Then
dc.SetDateTimeFormat(DateTimeFormatEnum.LongTime)
End If
Next
……
加好友 
发短信
Post By：2017/12/18 20:46:00 [显示全部帖子]
