If e.DataTableName = "报价单" Then
Dim StartDate As Date = Date.Today().AddDays(-10)
e.SelectString = "Select * F rom {报价单} Where [业务部_申请日期] > \'" & StartDate & "\'"
End If
If e.DataTableName = "报价申请" Then
Dim StartDate As Date = Date.Today().AddDays(-10)
e.SelectString = "Select * F rom {报价明细} Where [日期] > \'" & StartDate & "\'"
End If