Foxtable(狐表)用户栏目专家坐堂 → SQLJionTableBuilder中TableVisible = false不起作用,为什么?


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

主题:SQLJionTableBuilder中TableVisible = false不起作用,为什么?

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


加好友 发短信
等级:小狐 帖子:381 积分:3456 威望:0 精华:0 注册:2011/5/9 12:45:00
SQLJionTableBuilder中TableVisible = false不起作用,为什么?  发帖心情 Post By:2019/3/14 10:47:00 [只看该作者]

'''SQLJionTableBuilder,查询表生成器
If Tables.Contains("产品订单") Then
    MainTable = Tables("产品订单")
    syscmd.Table.delete
    MessageBox.Show("已删除‘产品总订单表’")
Else
    Dim sjtb As New SQLJoinTableBuilder("产品订单","订单")
    sjtb.C
    sjtb.AddTable("订单","产品ID","产品","产品ID")
    sjtb.AddTable("订单","客户ID","客户","客户ID")
    sjtb.AddCols("产品名称","客户名称","单价","折扣","数量","日期")
    sjtb.AddExp("金额","单价 * 数量")
    sjtb.Caption = "产品总订单"
    sjtb.Filter = "{订单}.产品ID <> 'P02'"
    sjtb.Order = "日期"
    sjtb.TableVisible = False
    sjtb.Top = "10 percent"
    sjtb.Build
If Tables.Contains("产品订单") Then
    MainTable = Tables("产品订单")
End If
End If

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/14 10:53:00 [只看该作者]

改成

 

sjtb.Build

Tables("产品订单").visible = False


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


加好友 发短信
等级:小狐 帖子:381 积分:3456 威望:0 精华:0 注册:2011/5/9 12:45:00
  发帖心情 Post By:2019/3/14 11:10:00 [只看该作者]

.TableVisible有什么用呢?或者说用在何处何时呢?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/14 11:14:00 [只看该作者]

我测试下面代码,没问题

 

Dim sjtb As New SQLJoinTableBuilder("产品订单","表A")
sjtb.AddTable("表A","第一列","表B","第一列")
sjtb.AddCols("{表A}.第二列")
sjtb.TableVisible = False
sjtb.Build()


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


加好友 发短信
等级:小狐 帖子:381 积分:3456 威望:0 精华:0 注册:2011/5/9 12:45:00
  发帖心情 Post By:2019/3/14 11:20:00 [只看该作者]

我也试了下,这次没问题了。

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


加好友 发短信
等级:小狐 帖子:381 积分:3456 威望:0 精华:0 注册:2011/5/9 12:45:00
  发帖心情 Post By:2019/3/14 11:23:00 [只看该作者]

找到问题了!!!
添加了红色部分,.TableVisible就不起作用了
'''SQLJionTableBuilder,查询表生成器
If Tables.Contains("产品订单") Then
    MainTable = Tables("产品订单")
    syscmd.Table.delete
    MessageBox.Show("已删除‘产品总订单表’")
Else
    Dim sjtb As New SQLJoinTableBuilder("产品订单","订单")
    sjtb.C
    sjtb.AddTable("订单","产品ID","产品","产品ID")
    sjtb.AddTable("订单","客户ID","客户","客户ID")
    sjtb.AddCols("产品名称","客户名称","单价","折扣","数量","日期")
    sjtb.AddExp("金额","单价 * 数量")
    sjtb.Caption = "产品总订单"
    sjtb.Filter = "{订单}.产品ID <> 'P02'"
    sjtb.Order = "日期"
    sjtb.TableVisible = False
    sjtb.Top = "10 percent"
    sjtb.Build
    
    If Tables.Contains("产品订单") Then
        MainTable = Tables("产品订单")
    End If
output.show(Tables("产品订单").Rows.Count)
End If


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/14 11:33:00 [只看该作者]

 

那你就删除对应的代码。你又隐藏又显示,是什么逻辑?

 


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


加好友 发短信
等级:小狐 帖子:381 积分:3456 威望:0 精华:0 注册:2011/5/9 12:45:00
  发帖心情 Post By:2019/3/14 14:17:00 [只看该作者]

图片点击可在新窗口打开查看,学习嘛,各种搞

 回到顶部