我这样生成是不行的：
With wb.AddTable("","Table1")
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText= "s elect spbm as 商品编码,录入时间,sl as 数量,创建人,mdbm as 门店编码 From 商品盘点"
If flt > "" Then
cmd.CommandText = cmd.CommandText & " where " & flt & " order by 录入时间 desc,_Identify desc "
End If
Dim dt = cmd.ExecuteReader
.PageNumber = page '设置页码
.Primarykey = "_Identify" '设置主键
.ActiveSheet = "menu" '设置菜单
.CreateFromDataTable(dt)
End With
With wb.AddActionSheet("","menu") '设计菜单
.Add("mnudAdd", "增加订单")
.Add("mnuEdit", "编辑订单")
.Add("mnuDelete", "删除订单")
.Add("mnuCancel","取消","",True)
End With
加好友 
发短信
Post By：2017/12/8 9:36:00 [显示全部帖子]
