With wb.AddTable("","Table1")
'按日期顺序列出客户CS01的订单,仅显示产品/数量/单价/日期/审核等五列
Dim d1 As Date = Date.Today.AddDays(0)
Dim d2 As Date = Date.Today.AddDays(1)
.CreateFromDataTable(DataTables("CLSXJCJFD"),True," JFSJ < '"& d2 & "' and JFSJ > '"& d1 & "' " , "jfsj desc","hphm","dehj","yhje","ssje")
End With