共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：EXWEUI 标签页 Tabs 能加载表格吗？
1楼
户国兴 发表于：2023/12/29 15:30:00
2楼
有点蓝 发表于：2023/12/29 15:31:00里面可以放任意内容
3楼
户国兴 发表于：2023/12/29 22:27:00With ExWeUI.WebUI.AddTabsGroup("", "tg03", True)
With .AddPage("tab013", "标签一", True)
With wb.AddTable("form1", "Table1")
.Primarykey = "序号" '设置主键
.ActiveSheet = "menu" '设置菜单
.CreateFromDataTable(dtmm, False, "", "序号 desc", "项", "条码", "储位", "料号", "数量")
hjqty = dtmm.compute("sum(数量)")
.Body.AddRow("", "合计:", "", "", hjqty).Attribute = "style='background-color:#98FB98'"
End With
End With
form1 要改成什么？？？
4楼
户国兴 发表于：2023/12/29 22:42:00
表格在标签外了5楼
有点蓝 发表于：2023/12/30 9:01:00With ExWeUI.WebUI.AddTabsGroup("", "tg03", True) With .AddPage("tab013", "标签一", True) Dim wb1 As New weui With wb1.AddTable("", "Table1") .Primarykey = "序号" '设置主键 .ActiveSheet = "menu" '设置菜单 .CreateFromDataTable(dtmm, False, "", "序号 desc", "项", "条码", "储位", "料号", "数量") hjqty = dtmm.compute("sum(数量)") .Body.AddRow("", "合计:", "", "", hjqty).Attribute = "style='background-color:#98FB98'" End With .Content = wb1.buildhtml("Table1") wb1=nothing End With |
6楼
户国兴 发表于：2023/12/30 10:23:00OK了，感谢！
共6 条记录, 每页显示 10 条, 页签:
[1]