Foxtable(狐表)用户栏目专家坐堂 → 我想做一个页面集合的通用会计科目目录树,结果没有目录树显示


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

主题:我想做一个页面集合的通用会计科目目录树,结果没有目录树显示

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


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/15 9:03:00 [只看该作者]

科目编码长度问题,代码里统一使用3来判断;If km.StartsWith(nd.Name) AndAlso km.Length = nd.Name.Length + 3 Then

那么每一级子级的编码长度应该都是上级编码长度+3位编号,如:
1122 应收账款
1122001
1122001001
1122001001001

实际上,4级却是:11220010010001,长度不一致自然就无法获取了

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/3/15 11:04:00 [只看该作者]

我没看你的回复之前就知是这问题了,已经全调为4位了,有点长,这问题暂时解决,现在的问题是录入问题,在收、付、转、记账凭证中为打印方便二级科目及以下的都用“_”连接显示在明细科目里,不显示科目代码,如:
 一级科目      明细科目
1122应收账款 巷_号_房_车牌号码
1122应收账款 广东省_江门市_某某单位

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


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/15 11:16:00 [只看该作者]

录入有啥问题,没看懂

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/3/15 13:13:00 [只看该作者]

我解决了:
Dim Vals() As String = e.Node.FullPath.Split("\")
Dim tr As Row
If e.Form.DropTable IsNot Nothing Then '如果下拉窗口是从表中打开
    tr = e.Form.DropTable.Current '获取此表的当前行
Else '如果下拉窗口是通过DropdownBox打开
    Dim nm As String = e.Form.DropDownBox.BindingField '获取绑定的字段
    nm = nm.Split(".")(0) '获取绑定的表名
    tr = Tables(nm).Current '获取此表的当前行
End If
If e.Form.DropTable IsNot Nothing Then
    Select Case e.Form.DropTable.Name
        Case "财务数据源"
            Select Case e.Node.Level
                Case 0
                    tr("会计科目") = Vals(0)
                    e.Form.DropDownBox.Value = tr("会计科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 1
                    tr("会计科目") = Vals(0)
                    tr("二级科目") = Vals(1)
                    e.Form.DropDownBox.Value = tr("会计科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 2
                    tr("会计科目") = Vals(0)
                    tr("二级科目") = Vals(1)
                    tr("三级科目") = Vals(2)
                    e.Form.DropDownBox.Value = tr("会计科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 3
                    tr("会计科目") = Vals(0)
                    tr("二级科目") = Vals(1)
                    tr("三级科目") = Vals(2)
                    tr("四级科目") = Vals(3)
                    e.Form.DropDownBox.Value = tr("会计科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 4
                    tr("会计科目") = Vals(0)
                    tr("二级科目") = Vals(1)
                    tr("三级科目") = Vals(2)
                    tr("四级科目") = Vals(3)
                    tr("五级科目") = Vals(4)
                    e.Form.DropDownBox.Value = tr("会计科目")
                    e.Form.DropDownBox.CloseDropdown()
            End Select
        Case "记账凭证","转账凭证"
            Select Case e.Node.Level
                Case 0
                    tr("会计科目") = Vals(0)
                    e.Form.DropDownBox.Value = tr("会计科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 1
                    tr("会计科目") = Vals(0)
                    tr("明细科目") = Vals(1).SubString(8,Vals(1).Length - 8)
                    e.Form.DropDownBox.Value = tr("会计科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 2
                    tr("会计科目") = Vals(0)
                    tr("明细科目") = Vals(1).SubString(8,Vals(1).Length - 8) & "-" & Vals(2).SubString(12,Vals(2).Length - 12)
                    e.Form.DropDownBox.Value = tr("会计科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 3
                    tr("会计科目") = Vals(0)
                    tr("明细科目") = Vals(1).SubString(8,Vals(1).Length - 8) & "-" & Vals(2).SubString(12,Vals(2).Length - 12) & "-" & Vals(3).SubString(16,Vals(3).Length - 16)
                    e.Form.DropDownBox.Value = tr("会计科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 4
                    tr("会计科目") = Vals(0)
                    tr("明细科目") = Vals(1).SubString(8,Vals(1).Length - 8) & "-" & Vals(2).SubString(12,Vals(2).Length - 12) & "-" & Vals(3).SubString(16,Vals(3).Length - 16) & "-" & Vals(4).SubString(20,Vals(4).Length - 20)
                    e.Form.DropDownBox.Value = tr("会计科目")
                    e.Form.DropDownBox.CloseDropdown()
            End Select
[此贴子已经被作者于2021/3/15 13:29:33编辑过]

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/3/15 13:14:00 [只看该作者]

        Case "收款凭证"
            Select Case e.Node.Level
                Case 0
                    tr("贷方科目") = Vals(0)
                    e.Form.DropDownBox.Value = tr("贷方科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 1
                    tr("贷方科目") = Vals(0)
                    tr("明细科目") = Vals(1).SubString(8,Vals(1).Length - 8)
                    e.Form.DropDownBox.Value = tr("贷方科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 2
                    tr("贷方科目") = Vals(0)
                    tr("明细科目") = Vals(1).SubString(8,Vals(1).Length - 8) & "-" & Vals(2).SubString(12,Vals(2).Length - 12)
                    e.Form.DropDownBox.Value = tr("贷方科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 3
                    tr("贷方科目") = Vals(0)
                    tr("明细科目") = Vals(1).SubString(8,Vals(1).Length - 8) & "-" & Vals(2).SubString(12,Vals(2).Length - 12) & "-" & Vals(3).SubString(16,Vals(3).Length - 16)
                    e.Form.DropDownBox.Value = tr("贷方科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 4
                    tr("贷方科目") = Vals(0)
                    tr("明细科目") = Vals(1).SubString(8,Vals(1).Length - 8) & "-" & Vals(2).SubString(12,Vals(2).Length - 12) & "-" & Vals(3).SubString(16,Vals(3).Length - 16) & "-" & Vals(4).SubString(20,Vals(4).Length - 20)
                    e.Form.DropDownBox.Value = tr("贷方科目")
                    e.Form.DropDownBox.CloseDropdown()
            End Select
        Case "付款凭证"
            Select Case e.Node.Level
                Case 0
                    tr("借方科目") = Vals(0)
                    e.Form.DropDownBox.Value = tr("借方科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 1
                    tr("借方科目") = Vals(0)
                    tr("明细科目") = Vals(1).SubString(8,Vals(1).Length - 8)
                    e.Form.DropDownBox.Value = tr("借方科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 2
                    tr("借方科目")= Vals(0)
                    tr("明细科目") = Vals(1).SubString(8,Vals(1).Length - 8) & "-" & Vals(2).SubString(12,Vals(2).Length - 12)
                    e.Form.DropDownBox.Value = tr("借方科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 3
                    tr("借方科目") = Vals(0)
                    tr("明细科目") = Vals(1).SubString(8,Vals(1).Length - 8) & "-" & Vals(2).SubString(12,Vals(2).Length - 12) & "-" & Vals(3).SubString(16,Vals(3).Length - 16)
                    e.Form.DropDownBox.Value = tr("借方科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 4
                    tr("借方科目") = Vals(0)
                    tr("明细科目") = Vals(1).SubString(8,Vals(1).Length - 8) & "-" & Vals(2).SubString(12,Vals(2).Length - 12) & "-" & Vals(3).SubString(16,Vals(3).Length - 16) & "-" & Vals(4).SubString(20,Vals(4).Length - 20)
                    e.Form.DropDownBox.Value = tr("借方科目")
                    e.Form.DropDownBox.CloseDropdown()
            End Select
    End Select
End If

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/3/15 15:00:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:小区车辆管理(新2).foxdb

密码:888888
目录树没错了,更新目录树按钮报错。

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


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/15 15:05:00 [只看该作者]

参考button3的用法

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/4/13 16:18:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:小区车辆管理(发到会计科目的帖下).rar

密码:888888
科目窗口的科目输入很乱:
一、在财务数据源表会计科目列下的科目目录树中点资产类科目录入正常,点负债、所有者权益、损益类科目录入到收付转财务数据源表中的一级以下科目全多了科目代码显示;
二、在记账凭证窗口会计科目列下的科目目录树中点资产类科目录入正常,点负债、所有者权益、损益类科目一级科目,二级科目不显示,这是对的,但只要点取过一级以下科目重新点一级科目,一级以下科目没为空,这就不对了,应点一级科目时,一级以下科目自动全为空,点目录树哪级科目记账凭证窗口中的明细科目组合到哪级科目为止。
三、在收付转财务数据源表会计科目列下的科目目录树中点资产类科目录入正常,点负债、所有者权益、损益类科目全部无法录入到收付转财务数据源表中,这样不正常;
四、在收款凭证、付款凭证、转账凭证窗口中分别的贷方科目、借方科目、会计科目目录树情况跟上面第二点一样。

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


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/13 20:38:00 [只看该作者]

1、2、4:和资产类科目录入一样,清空其它数据,自己看回资产类科目录入的点击代码

                Case 0
                    tr("会计科目") = Vals(0)
                    tr("二级科目") = Nothing
                    tr("三级科目") = Nothing
                    tr("四级科目") = Nothing
                    tr("五级科目") = Nothing
3、Case 没有对收付转财务数据源表进行处理,同样看回资产类科目录入的点击代码
    Select Case e.Form.DropTable.Name
        Case "财务数据源"

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/4/14 12:18:00 [只看该作者]

收付转凭证中根本不存在二级、三级、四级科目、五级科目的,只有在保存凭证时用代码把凭证中的科目再分列保存到收付转财务数据源的中,因此收、付、转的科目目录树只去到二级节字,各级的科目用连接线相隔。

 回到顶部
总数 50 上一页 1 2 3 4 5 下一页