wb.AppendHTML("<div id='p1' style='margin:0.1em'></div>") '插入一个div,用于显示服务器返回的 页面
With wb.AddTable("", "Table1")
.Alternate = 1
.Head.AddRow("序号", "日期", "备注", "商品", "品名", "对账", "对账", "数量", "金重", "金重", "标签", "标签", "标签", "标签", "打签", "盘点" ) '第一层标题
.Head.AddRow("序号", "日期", "备注", "条码", "名称", "品名", "品类", "数量", "工费", "重量", "品名", "价格", "单价", "重量", "备注", "姓名") '第二层标题
For Each dr As DataRow In dt.Select("", "序号")
With .Body.AddRow(dr("序号"), dr("日期"), dr("备注"), dr("商品条码"), dr("品名商品名称"), dr("对账品名"), dr("对账品类"), dr("数量"), dr("精品工费"), dr("金重"), dr("标签价格品名"), dr("标签价格"), Format(dr("标签价格") / dr("总重量"),"#0"), dr("总重量"), dr("标签备注"), dr("扫码姓名"))
End With
Next
wb.AppendHTML("<style>table.fox_table {min-width: 100%;float: left;text-align: center;}</style>", True)
.ActiveSheet = "menu" '指定菜单
End With
With wb.AddActionSheet("", "menu") '设计菜单
.Add("mnudAdd", "增加订单")
.Add("mnuEdit", "编辑订单")
.Add("mnuDelete", "删除订单")
.Add("mnuCancel", "取消", "", True)
End With