可以直接取数据库表：
http://www.foxtable.com/mobilehelp/topics/0128.htm
'获取该页数据
Dim cmd As New SQLCommand
cmd.ConnectionName = "orders" '记得设置数据源名称
cmd.CommandText = "Select Count(*) From {订单}"
Dim Count As Integer = cmd.ExecuteScalar() '获取总的行数
Dim Pages As Integer = Math.Ceiling(Count/PageRows) '计算出总页数
cmd.CommandText = "Select * From (Select Row_Number() Over(Order by 订单.订单编号 desc ) As RowNum,订单.订单编号,日期,客户,Sum(数量) As 数量,sum(数量*单价) As 金额"
cmd.CommandText = cmd.CommandText & " From 订单 Left JOIN 订单明细 ON 订单明细.订单编号 = 订单.订单编号 Group By {订单}.订单编号,日期,客户) As a "
cmd.CommandText = cmd.CommandText & " Where RowNum >= " & StartRow & " And RowNum <= " & EndRow
Dim dt As DataTable = cmd.ExecuteReader
'根据此页数据生成表格
Dim wb As New WeUI
With wb.AddTable("","Table1")
.PageNumber = page '设置页码
.ActiveSheet = "menu" '指定菜单
.Primarykey = "订单编号" '指定主键,只要是能唯一区分行的列即可,并非一定要表的实际主键.
.CreateFromDataTable(dt, False,"","","订单编号","客户","日期","数量","金额")
End With
加好友 
发短信
Post By：2021/8/5 17:42:00 [显示全部帖子]
