Foxtable(狐表) → 用户栏目 → 专家坐堂 → 目录树


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

主题：目录树
美女呀，离线，留言给我吧！
采菊东篱下
 小大  51楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/4/25 15:21: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
        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
    End Select
Else
    Select Case e.Form.DropDownBox.Form.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) & "-" & Vals(1).SubString(9,Vals(1).Length - 9)
                    e.Form.DropDownBox.Value = tr("会计科目")
                    e.Form.DropDownBox.CloseDropdown()
                Case 2
                    tr("会计科目") = Vals(0) & "-" & 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(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) & "-" & 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
    End Select
End If
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  52楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/4/25 15:47:00 [显示全部帖子]

加入你的代码看见弹出提示三栏式账，

图片点击可在新窗口打开查看此主题相关图片如下：402501.png
图片点击可在新窗口打开查看

也看见有科目填进控件里，只是关闭报错提示点一下窗口里任意一处，控件里的内容消失。
[此贴子已经被作者于2021/4/25 16:02:02编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  53楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/4/25 16:28:00 [显示全部帖子]

我是看了错误提示指向TreeView1,NodeMouseClick才在这里找问题，我已经尽了我的能力找错了，不知道问题在哪，你反复让我看那些错误提示没用！

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


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/4/25 16:31:00 [显示全部帖子]

在控件里已经看到科目出现了，怎么点任意处又消失了！

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


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/4/25 16:45:00 [显示全部帖子]

截图里已有提示了。

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


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/4/25 16:56:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:小区车辆管理（0413修改）.rar

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


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/4/25 16:59:00 [显示全部帖子]

不是说了把你的代码写进去弹出三栏式账吗。

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


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/4/25 17:14:00 [显示全部帖子]

没弹出

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


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/4/25 21:00:00 [显示全部帖子]

你让我自己想，我凭自己的理解弄了一晚上，现在连控件上的科目都没有了！
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  60楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/4/25 21:05:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:小区车辆管理（041325修改）.rar
 回到顶部
总数 65 上一页 1 2 3 4 5 6 7 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07813 秒, 7 次数据查询