Dim Filter,p,s,fl As String
Dim d,td As Date
Dim t1,t2,t3,t4 As Date
Dim tp1,tp2,tp3 As TimeSpan
t1 = Date.Now
Dim dt1 As Date = Date.Today.AddDays(-183) '半年内录入的订单
'Dim Filter As String
'Filter = "录入日期 >= #" & dt1 & "#"
systemready = False
DataTables("订单明细表").StopRedraw
DataTables("订单明细表").DataCols("订单客户").Expression = ""
DataTables("订单明细表").DataCols("用料规格").Expression = ""
DataTables("订单明细表").DataCols("型号规格").Expression = ""
DataTables("订单明细表").DataCols("已交数量").Expression = ""
DataTables("订单明细表").DataCols("是否核销").Expression = ""
DataTables("订单明细表").DataCols("未交数量").Expression = ""
DataTables("订单明细表").DataCols("订单交期").Expression = ""
DataTables("订单明细表").DataCols("金额").Expression = ""
DataTables("订单明细表").DataCols("常用客户").Expression = ""
DataTables("订单明细表").DataCols("单位").Expression = ""
DataTables("订单明细表").DataCols("品名").Expression = ""
DataTables("产品信息表").DataCols("订单数量").Expression = ""
DataTables("订单主表").DataCols("总金额").Expression = ""
DataTables("出库明细表").DataCols("订单数量").Expression = ""
DataTables("出库明细表").DataCols("已送数量").Expression = ""
t2 = Date.Now
tp1 = t2 - t1
DataTables("订单明细表").LoadFilter = Filter
DataTables("订单明细表").Load
t3 = Date.Now
'DataTables("订单明细表").DataCols("订单客户").Expression = "Parent(订单明细).订单客户"
'DataTables("订单明细表").DataCols("用料规格").Expression = "Parent(产品信息).用料规格"
'DataTables("订单明细表").DataCols("型号规格").Expression = "Parent(产品信息).用料规格"
'DataTables("订单明细表").DataCols("已交数量").Expression = "IsNull(Sum(Child(订单_出库).实交数量),0)"
'DataTables("订单明细表").DataCols("是否核销").Expression = "Parent(订单明细).是否核销"
'DataTables("订单明细表").DataCols("未交数量").Expression = "[订单数量] - [已交数量]"
'DataTables("订单明细表").DataCols("订单交期").Expression = "Parent(订单明细).订单交期"
'DataTables("订单明细表").DataCols("金额").Expression = "[订单数量] * [单价]"
'DataTables("订单明细表").DataCols("常用客户").Expression = "Parent(订单明细).常用客户"
'DataTables("订单明细表").DataCols("单位").Expression = "Parent(产品信息).单位"
'DataTables("订单明细表").DataCols("品名").Expression = "Parent(产品信息).备注2"
DataTables("订单明细表").ResumeRedraw
systemready = True
t4 = Date.Now
tp2= t3-t2
MessageBox.Show("本次设置用时:" & tp1.TotalSeconds() & "秒. 数据加载用时:" & tp2.TotalSeconds() & "秒")
MessageBox.Show("共加载订单明细表记录数:" & Tables("订单明细表").Rows.Count)