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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 控件赋值出错

共有2504人关注过本帖树形打印复制链接主题：控件赋值出错

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/22 12:30:00 [显示全部帖子]

比如

bd2.Groups.AddDef(BMHZ,"{责任中心档案}.部门名称") '根据型号分组

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/22 14:41:00 [显示全部帖子]

下面地方都要处理

jb1.AddCols("科目编码","科目名称","一级科目","二级科目","科目汇总","成本大类","部门名称","上级汇总","一级汇总","公司汇总","部门属性","会计期间")

jb2.AddCols("科目编码","科目名称","一级科目","二级科目","科目汇总","成本大类","部门名称","上级汇总","一级汇总","公司汇总","部门属性","会计期间")

如果还有问题，做一个对应实例发上来测试。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/22 15:39:00 [显示全部帖子]

比如

MessageBox.Show(4)
Dim bd2 As New SQLGroupTableBuilder("统计表2","同期预算")
Dim dt2 As fxDataSource
bd2.AddTable("同期预算","部门名称","责任中心档案","部门名称") '添加统计表
bd2.AddTable("同期预算","科目名称","费用科目档案","科目名称") '添加统计表
If tj21.Checked=True And tj22.Checked=False Then
    bd2.Groups.AddDef(KMHZ) '根据型号分组
ElseIf tj22.Checked=True And tj21.Checked=False Then
    bd2.Groups.AddDef(BMHZ) '根据型号分组
Else
    bd2.Groups.AddDef("{同期预算}." & BMHZ, BMHZ) '根据型号分组
    bd2.Groups.AddDef("{同期预算}." & KMHZ, KMHZ) '根据型号分组
End If
bd2.Totals.AddDef("同期金额","同期") '对数量进行统计
bd2.Filter = filter1
dt2 = bd2.BuildDataSource()

MessageBox.Show(5)

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/22 15:56:00 [显示全部帖子]

请说明测试步骤？

我这样测试没问题：选择【部门名称】、【科目名称】，勾选【分科目】【分部门】，点击按钮测试。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/22 16:18:00 [显示全部帖子]

请说明测试步骤？

我这样测试没问题：选择【部门名称】、【科目名称】，勾选【分科目】【分部门】，点击按钮测试。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/22 16:45:00 [显示全部帖子]

勾选【分科目】【分部门】，勾选两个。

不勾选，这样改代码

    bd2.Groups.AddDef("{同期预算}." & KMHZ, KMHZ) '根据型号分组
ElseIf tj22.Checked=True And tj21.Checked=False Then
    bd2.Groups.AddDef("{同期预算}." & BMHZ, BMHZ) '根据型号分组
Else
    bd2.Groups.AddDef("{同期预算}." & BMHZ, BMHZ) '根据型号分组
    bd2.Groups.AddDef("{同期预算}." & KMHZ, KMHZ) '根据型号分组
End If
bd2.Totals.AddDef("同期金额","同期") '对数量进行统计
bd2.Filter = filter1
dt2 = bd2.BuildDataSource()

MessageBox.Show(5)

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/22 17:33:00 [显示全部帖子]

MessageBox.Show(5)
Dim nms As String()
If tj21.Checked=True And tj22.Checked=False Then
    nms = new String() {kmhz}
ElseIf tj22.Checked=True And tj21.Checked=False Then
    nms = new String() {bmhz}
Else
    nms = new String() {kmhz, bmhz}
End If
dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据

MessageBox.Show(6)

下一主题 >> << 上一主题

主题：控件赋值出错