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


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

主题：我想做一个页面集合的通用会计科目目录树，结果没有目录树显示
美女呀，离线，留言给我吧！
采菊东篱下
 小大  41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

        Case "收款凭证_Table1"
            Select Case e.Node.Level
                Case 0
                    tr("贷方科目") = Vals(0)
                    Vals(1) = Nothing
                    Vals(2) = Nothing
                    Vals(3) = Nothing
                    Vals(4) = Nothing
                    tr("明细科目") = Nothing
                    e.Form.DropDownBox.Value = tr("贷方科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 1
                    tr("贷方科目") = Vals(0)
                    Vals(2) = Nothing
                    Vals(3) = Nothing
                    Vals(4) = Nothing
                    tr("明细科目") = Vals(1).SubString(9,Vals(1).Length - 9)
                    e.Form.DropDownBox.Value = tr("贷方科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 2
                    tr("贷方科目") = Vals(0)
                    Vals(3) = Nothing
                    Vals(4) = Nothing
                    tr("明细科目") = Vals(1).SubString(8,Vals(1).Length - 8) & "-" & Vals(2).SubString(13,Vals(2).Length - 13)
                    e.Form.DropDownBox.Value = tr("贷方科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 3
                    tr("贷方科目") = Vals(0)
                    Vals(4) = Nothing
                    tr("明细科目") = Vals(1).SubString(8,Vals(1).Length - 8) & "-" & Vals(2).SubString(12,Vals(2).Length - 12) & "-" & Vals(3).SubString(17,Vals(3).Length - 17)
                    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(21,Vals(4).Length - 21)
                    e.Form.DropDownBox.Value = tr("贷方科目")
                    e.Form.DropDownBox.CloseDropdown()
            End Select
凭证中只去到明细科目，红色代码不是把明细科目赋为空值？操作后不行我再加上绿色代码，还是不行，哪该怎么写？
[此贴子已经被作者于2021/4/14 14:43:38编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/4/14 14:31: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
e.Form.DropDownBox.Value = Vals(0)
If e.Form.DropTable IsNot Nothing Then
    Select Case e.Form.DropTable.Name
        Case "财务数据源","收付转财务数据源"
            Select Case e.Node.Level
                Case 0
                    tr("会计科目") = Vals(0)
                    tr("二级科目") = Nothing
                    tr("三级科目") = Nothing
                    tr("四级科目") = Nothing
                    tr("五级科目") = Nothing
                    e.Form.DropDownBox.Value = tr("会计科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 1
                    tr("会计科目") = Vals(0)
                    tr("二级科目") = Vals(1).SubString(9,Vals(1).Length - 9)
                    tr("三级科目") = Nothing
                    tr("四级科目") = Nothing
                    tr("五级科目") = Nothing
                    e.Form.DropDownBox.Value = tr("会计科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 2
                    tr("会计科目") = Vals(0)
                    tr("二级科目") = Vals(1).SubString(8,Vals(1).Length - 8)
                    tr("三级科目") = Vals(2).SubString(13,Vals(2).Length - 13)
                    tr("四级科目") = Nothing
                    tr("五级科目") = Nothing
                    e.Form.DropDownBox.Value = tr("会计科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 3
                    tr("会计科目") = Vals(0)
                    tr("二级科目") = Vals(1).SubString(8,Vals(1).Length - 8)
                    tr("三级科目") = Vals(2).SubString(12,Vals(2).Length - 12)
                    tr("四级科目") = Vals(3).SubString(17,Vals(3).Length - 17)
                    tr("五级科目") = Nothing
                    e.Form.DropDownBox.Value = tr("会计科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 4
                    tr("会计科目") = Vals(0)
                    tr("二级科目") = Vals(1).SubString(8,Vals(1).Length - 8)
                    tr("三级科目") = Vals(2).SubString(12,Vals(2).Length - 12)
                    tr("四级科目") = Vals(3).SubString(16,Vals(3).Length - 16)
                    tr("五级科目") = Vals(4).SubString(21,Vals(4).Length - 21)
                    e.Form.DropDownBox.Value = tr("会计科目")
                    e.Form.DropDownBox.CloseDropdown()
            End Select
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

连写的，一个表行，一个表不行。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

如果是收款凭证窗口，这样就可以了，我测试没有问题

        Case "收款凭证_Table1"
            Select Case e.Node.Level
                Case 0
                    tr("贷方科目") = Vals(0)
                    tr("明细科目") = Nothing
                    e.Form.DropDownBox.Value = tr("贷方科目")
                    e.Form.DropDownBox.CloseDropdown()
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  45楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

选一次有明细科目的字点，再重选一级科目，原有的明细科目不为空，我的代码也是
        Case "收款凭证_Table1"
            Select Case e.Node.Level
                Case 0
                    tr("贷方科目") = Vals(0)
　　　　　　　tr("明细科目") = Nothing
                    e.Form.DropDownBox.Value = tr("贷方科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 1
                    tr("贷方科目") = Vals(0)
                    tr("明细科目") = Vals(1).SubString(9,Vals(1).Length - 9)
                    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(13,Vals(2).Length - 13)
                    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(17,Vals(3).Length - 17)
                    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(21,Vals(4).Length - 21)
                    e.Form.DropDownBox.Value = tr("贷方科目")
                    e.Form.DropDownBox.CloseDropdown()
            End Select
[此贴子已经被作者于2021/4/14 15:06:37编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

不要在资产类科目试，它没问题，在负债、所有者权益、损益类科目中试。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  47楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

测试没有问题，负债、所有者权益、损益类3个目录树都改了吗

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  48楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

一、在财务数据源表点负债、所有者权益、损益类科目录入到收付转财务数据源表中的一级以下科目全多了科目代码显示；
二、在收付转财务数据源表点负债、所有者权益、损益类科目无法录入数据；
三、负债、所有者权益、损益类科目目录树在窗口中无法清空明细科目内容。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  49楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

说这么多全白说了。简单一点，把资产类目录树的点击代码直接复制到负债、所有者权益、损益类目录树点击代码里

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  50楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

哦，我终于明白了，这目录树是上月弄的，忘了后面的目录树点击代码没改，难怪没反应。图片点击可在新窗口打开查看

 回到顶部
总数 50 上一页 1 2 3 4 5
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 4 次数据查询