Foxtable(狐表)用户栏目专家坐堂 → 页面代码排错请教,第一次执行没有问题,第二次执行出错!


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

主题:页面代码排错请教,第一次执行没有问题,第二次执行出错!

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


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/25 11:26:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=138199

 回到顶部
帅哥哟,离线,有人找我吗?
有点酸
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By:2019/7/25 11:27:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:页面测试.foxdb



 回到顶部
帅哥哟,离线,有人找我吗?
chen_sheng
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:692 积分:6101 威望:0 精华:0 注册:2018/5/10 9:05:00
  发帖心情 Post By:2019/7/25 11:34:00 [只看该作者]

Dim dt As DataTable
    DataTables("zzmjcomtxmxhz").LoadFilter = "[单号] = '" & dth & "' "
    DataTables("zzmjcomtxmxhz").Load()
    dt=DataTables("zzmjcomtxmxhz")
    Dim g As New CrossTableBuilder("统计表10", dt)
    g.HGroups.AddDef("MGBH")
    g.VGroups.AddDef("xd")
    g.Totals.AddDef("sl", "sl")
    g.HorizontalTotal = True
    g.VerticalTotal = True
    g.Decimals = 0
    g.Subtotal = True
    'g.FromServer = True
    g.Build()
    'Tables.(  = Tables("统计表10")

    e.Form.Controls("Table6").Table.DataSource =g.BuildDataSource
    Tables("线条下料计划_Table6").AutoSizeCols
    Tables("线条下料计划_Table6").Cols.Frozen = 1
这里代码有问题   我为了获取当前zzmjcomtxmxzb.zzmjcomtxmxhz子表数据把子表 DataTables("zzmjcomtxmxhz")从新按照条件加载了
代码应该是需要优化一下  麻烦指导一下

 回到顶部
帅哥哟,离线,有人找我吗?
chen_sheng
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:692 积分:6101 威望:0 精华:0 注册:2018/5/10 9:05:00
  发帖心情 Post By:2019/7/25 11:43:00 [只看该作者]

顶贴  依旧没有达到想要的效果  zzmjcomtxmxzb.zzmjcomtxmxhz 应该在("zzmjcomtxmxhz")选择新单号自动加载嘛

 回到顶部
帅哥哟,离线,有人找我吗?
有点酸
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By:2019/7/25 11:49:00 [只看该作者]

我只是帮你排错,我不知道你的设计逻辑是什么,无法回复,其他问题,请另外发帖提问。

 回到顶部
总数 15 上一页 1 2