比如
Dim wb As New WeUI
With wb.AddTable("","Table1")
Dim nms() As String = {"产品","客户","数量","单价","日期"}
.Head.AddRow(nms)
For Each r As DataRow In DataTables("订单").DataRows
With .Body.AddRow(r("产品"),r("客户"),r("数量"))
.Attribute = "onclick=""alert( '主键:'+ table1.primarykey)"""
.Primarykey = r("_Identify") '设置主键
.AddCell(Format(r("单价"),"#0.00"))
.AddCell(Format(r("日期"),"MM月dd日"))
End With
Next
End With
e.WriteString(wb.Build)
[此贴子已经被作者于2017/9/23 15:59:50编辑过]
加好友 
发短信
Post By：2017/9/23 15:59:00 [显示全部帖子]
