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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → SQLGroupTableBuilder中AddExp的条件表达式

共有4903人关注过本帖树形打印复制链接主题：SQLGroupTableBuilder中AddExp的条件表达式

lfz123

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：530 积分：4613 威望：0 精华：0 注册：2018/3/24 18:04:00

SQLGroupTableBuilder中AddExp的条件表达式 发帖心情

Post By：2020/4/11 10:15:00 [显示全部帖子]

老师,黄色条件部分应该怎么写啊,数据源是access,表达式里面的红色背景是新生成的统计列

Dim bd1 As New SQLGroupTableBuilder("统计表1","会计科目")

bd1.C

bd1.AddTable("会计科目","一级码","凭证明细","一级码")

bd1.Groups.AddDef("{会计科目}.一级码")

bd1.Groups.AddDef("科目名称")

bd1.Groups.AddDef("方向")

bd1.Groups.AddDef("期初余额")

bd1.Totals.AddDef("借方金额","借方累计")

bd1.Totals.AddDef("贷方金额","贷方累计")

'bd1.Totals.AddExp("期末余额","方向 = '借',IsNull([期初余额],0) + ISNULL([借方累计],0) - ISNULL([贷方累计],0),IsNull([期初余额],0) + ISNULL([贷方累计],0) - ISNULL([借方累计],0))")

Tables("窗口1_table2").DataSource = bd1.BuildDataSource

[此贴子已经被作者于2020/4/11 10:25:54编辑过]

lfz123

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：530 积分：4613 威望：0 精华：0 注册：2018/3/24 18:04:00

回复：（有点蓝）bd1.Totals.AddExp("期末余额","IIF(... 发帖心情

Post By：2020/4/11 10:36:00 [显示全部帖子]

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

lfz123

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：530 积分：4613 威望：0 精华：0 注册：2018/3/24 18:04:00

回复：（有点蓝）如果是SqlServer，改为case whe... 发帖心情

Post By：2020/4/11 12:10:00 [显示全部帖子]

老师是access数据源喔

lfz123

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：530 积分：4613 威望：0 精华：0 注册：2018/3/24 18:04:00

Post By：2020/4/11 14:26:00 [显示全部帖子]

老师,此段代码的另外一个问题:我希望统计表能显示父表(会计科目)里面所有的一级码,子表(凭证明细)里面没有的也显示出来,目前此段代码只能显示子表(凭证明细)里面有的一级码

Dim bd1 As New SQLGroupTableBuilder("统计表1","会计科目")

bd1.C

bd1.AddTable("凭证明细","一级码","会计科目","一级码")

bd1.Groups.AddDef("{会计科目}.一级码")

bd1.Groups.AddDef("科目名称")

bd1.Groups.AddDef("方向")

bd1.Groups.AddDef("期初余额")

bd1.Totals.AddDef("借方金额","借方累计")

bd1.Totals.AddDef("贷方金额","贷方累计")

Tables("窗口1_table2").DataSource = bd1.BuildDataSource

DataTables("窗口1_table2").DataCols.Add("期末余额",Gettype(Double),""IIF(方向 = '借',IsNull([期初余额],0) + ISNULL([借方累计],0) - ISNULL([贷方累计],0),IsNull([期初余额],0) + ISNULL([贷方累计],0) - ISNULL([借方累计],0))"")

lfz123

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：530 积分：4613 威望：0 精华：0 注册：2018/3/24 18:04:00

回复：（有点蓝）Dim bd1 As New SQLGroupTableBuilde... 发帖心情

Post By：2020/4/11 14:52:00 [显示全部帖子]

错误提示如下

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

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

完整代码如下:

Dim cnt As WinForm.ComboBox = e.Form.Controls("ComboBox1")

If cnt.Text > "" Then

Dim d As Date = cdate(cnt.Text)

Dim bd1 As New SQLGroupTableBuilder("统计表1","会计科目")

bd1.C

bd1.AddTable("凭证明细","一级码","会计科目","一级码",JoinModeEnum.Right)

bd1.filter = "{凭证明细}.月份 <= " & d.month

bd1.Groups.AddDef("{会计科目}.一级码") '

bd1.Groups.AddDef("科目名称")

bd1.Groups.AddDef("方向")

bd1.Groups.AddDef("期初余额")

bd1.Totals.AddDef("借方金额","借方累计")

bd1.Totals.AddDef("贷方金额","贷方累计")

Tables("窗口1_table2").DataSource = bd1.BuildDataSource

With DataTables("窗口1_table2").DataCols

.Add("期末余额",Gettype(Double), "iif(方向 = '借',IsNull([期初余额],0) + ISNULL([借方累计],0) - ISNULL([贷方累计],0),IsNull([期初余额],0) + ISNULL([贷方累计],0) - ISNULL([借方累计],0))")

End With

End If