Foxtable(狐表)用户栏目专家坐堂 → 用帮助里面的代码 网页页面不显示数据


  共有2639人关注过本帖树形打印复制链接

主题:用帮助里面的代码 网页页面不显示数据

帅哥哟,离线,有人找我吗?
wangweizf
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:65 积分:1031 威望:0 精华:0 注册:2018/10/4 11:51:00
用帮助里面的代码 网页页面不显示数据  发帖心情 Post By: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("日期"), "MMdd"))

                End With

            Next

        End With

        e.WriteString(wb.Build)

End Select


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110790 积分:563882 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/4/10 10:04:00 [只看该作者]

For Each r As DataRow In DataTables("订单").SqlSelect("数量 > 100", "日期 Desc")


 回到顶部