高手解答 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim jb As new SQLJoinTableBuilder("查询表1","销售明细") jb.C 'jb.AddTable("订单","产品ID","产品","产品ID") jb.AddExp("店名","店名") jb.AddExp("对账品名","对账品名") jb.AddExp("对账品类","对账品类") jb.AddExp("价格分析列","价格分析列") jb.AddCols( "数量","标签价格") jb.AddExp("金额", "[数量] * [标签价格]") jb.Filter = "店名 = '" & e.Form.Controls("ComboBox1").value & "'" jb.Filter = "对账品名 = '" & e.Form.Controls("ComboBox2").value & "'" 这两个什么关联 jb.Filter = "店名 = '" & e.Form.Controls("ComboBox1").value & "'" jb.Filter = "对账品名 = '" & e.Form.Controls("ComboBox2").value & "'"

什么两个ComboBox必須全部输入内容才可以筛选内容如果只输入一个ComboBox就是空白

jb.AddExp("500元以下","Case When 标签价格 > 500 Then 数量 Else 0 End")

什么合计数量不显示0的那行

jb.AddExp("500元以下","Case When 标签价格 > 500 Then 数量 Else 0 End"

什么样sum（数量）不显示0的那行

jb.AddExp("500元以下","Case When 标签价格 > 500 Then 数量 Else 0 End"

什么样sum（数量）不显示0的那行
dvubb

此主题相关图片如下：2345截图20171212194403.png

不是，我要O那行不显示出来，这样还是会显示出来，只是行是空的，我要第一行和第二行合在一起，如果500元以下有2个1就合计成2不要显示两行

此主题相关图片如下：2017121219381472311.png

?jb.AddExp("500元以下","Case When 标签价格 > 500 Then 数量 Else 0 End

我要下面名称内容一样：然后500元以下就合计：他现在是一行一行显示：我要合计数量然后名称内容一样只显示一行

[此贴子已经被作者于2017/12/12 23:53:36编辑过]

Dim jb As new SQLJoinTableBuilder("查询表1","销售明细")

jb.C

'jb.AddTable("订单","产品ID","产品","产品ID")

jb.AddExp("店名","店名")

jb.AddExp("对账品名","对账品名")

jb.AddExp("对账品类","对账品类")

jb.AddExp("价格分析列","价格分析列")

jb.AddExp("500元以下","Case When 标签价格 > 500 Then 1 Else 0 End")

jb.AddExp("500元以上","Case When 标签价格 < 500 Then 1 Else 0 End")

'jb.AddCols( "数量","标签价格")

'jb.AddExp("金额", "[数量] * [标签价格]")

'jb.Filter = "店名 = '" & e.Form.Controls("ComboBox1").value & "' and 对账品名 = '" & e.Form.Controls("ComboBox2").value & "'"

Dim filter As String = "1=1"

If e.Form.Controls("ComboBox1").text > "" Then

filter &= " and 店名 = '" & e.Form.Controls("ComboBox1").value & "'"

End If

If e.Form.Controls("ComboBox2").text > "" Then

filter &= " and 对账品名 = '" & e.Form.Controls("ComboBox2").value & "'"

End If

If e.Form.Controls("ComboBox3").text > "" Then

filter &= " and 对账品类 = '" & e.Form.Controls("ComboBox3").value & "'"

End If

jb.Filter = filter

Dim cb As new CrossTableBuilder("统计表1",jb.BuildSQL,"zlfzm")

cb.HGroups.AddDef("店名")

cb.HGroups.AddDef("对账品名")

cb.HGroups.AddDef("对账品类")

cb.HGroups.AddDef("500元以下")

cb.HGroups.AddDef("500元以上")

'cb.VGroups.AddDef("价格分析列","{0}")

'cb.Totals.Adddef("数量")

'cb.Totals.AddDef("金额")

cb.Build()

Forms("窗口1").Controls("Table1").Table.DataSource = cb.BuildDataSource()
图片点击可在新窗口打开查看

此主题相关图片如下：2345截图20171212194403.png

Dim jb As new SQLJoinTableBuilder("查询表1","数据表")

jb.C

jb.AddTable("数据表","正列内容一","销售明细","价格分析列")

'jb.Filter = "名称 = '价格分析列'"

jb.AddExp("店名","店名")

什么设置左连接

主题：高手解答