找到问题了!!!
添加了红色部分,.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