Case "cxsx"
Dim dh1 As String = e.Values("dh1")
Dim ft As String = "运输人员='" & dh1 & "'"
wb.AddTable("","t1").CreateFromDataTable(DataTables("一类疫苗入库单"),True,ft,"","冷藏方式","供货单位","运输车牌","采购员")
e.WriteString(wb.Build)
CreateFromDataTable
CreateFromDataTable用于根据Foxtable的DataTable自动生成网页，语法：
CreateFromDataTable(DataTable)
CreateFromDataTable(DataTable, RowNum)
CreateFromDataTable(DataTable, RowNum, Filter)
CreateFromDataTable(DataTable, RowNum, Filter)
CreateFromDataTable(DataTable, RowNum, Filter, Sort)
CreateFromDataTable(DataTable, RowNum, Filter, Sort, DataCols)
CreateFromDataTable(DataTable, RowNum, Filter, Sort, DataCol1, DataCol2, DataCol3...)
加好友 
发短信
Post By：2018/6/16 9:03:00 [显示全部帖子]
