以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  EXWEUI 标签页 Tabs 能加载表格吗?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189841)

--  作者:户国兴
--  发布时间:2023/12/29 15:30:00
--  EXWEUI 标签页 Tabs 能加载表格吗?
图片点击可在新窗口打开查看
--  作者:有点蓝
--  发布时间:2023/12/29 15:31:00
--  
里面可以放任意内容
--  作者:户国兴
--  发布时间:2023/12/29 22:27:00
--  
With 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 要改成什么???

--  作者:户国兴
--  发布时间:2023/12/29 22:42:00
--  
图片点击可在新窗口打开查看表格在标签外了


--  作者:有点蓝
--  发布时间:2023/12/30 9:01:00
--  
With 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

--  作者:户国兴
--  发布时间:2023/12/30 10:23:00
--  
OK了,感谢!