以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 用帮助里面的代码 网页页面不显示数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186158) |
-- 作者:wangweizf -- 发布时间:2023/4/10 9:57:00 -- 用帮助里面的代码 网页页面不显示数据 系统已经手动增加了 订单 这个外部表,外部表默认加载全部数据 网页会显示数据。用 _identify is null设置了筛选不加载任何数据,用帮助里面的代码,网页不显示数据。如何外部表不加载数据,用下述代码 网页也可以显示数据? Select Case e.Path Case "table.htm" Dim wb As New WeUI With wb.AddTable("","Table1") .Alternate = 3 .RowHead = 1 .ColWidth = "12px" Dim nms() As String = {"","产品","客户","数量","单价","日期"} .Head.AddRow(nms) Dim cnt As Integer For Each r As DataRow In DataTables("订单").Select("数量 > 100", "日期 Desc") cnt = cnt + 1 With .Body.AddRow(cnt, r("产品"), r("客户"), r("数量")) .AddCell(Format(r("单价"), "#0.00")) .AddCell(Format(r("日期"), "MM月dd日")) End With Next End With e.WriteString(wb.Build) End Select |
-- 作者:有点蓝 -- 发布时间:2023/4/10 10:04:00 -- For Each r As DataRow In DataTables("订单").SqlSelect("数量 > 100", "日期 Desc") |