Foxtable(狐表) → 用户栏目 → 专家坐堂 → 从“级码”中提取“单位编码”


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

主题：从“级码”中提取“单位编码”
帅哥，在线噢！
有点蓝
 小大  41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107864 积分：548683 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/27 17:33:00 [只看该作者]

把拼音的帮助认真看一看，看看帮助里是怎么用的

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


加好友 发短信
等级：超级版主 帖子：107864 积分：548683 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/27 17:39:00 [只看该作者]

Dim txt As String = PY.GetNamePY(e.Form.DropDownBox.Text)
MsgBox(txt)
If txt = "" Then '如果下拉框没有输入内容,则无需查询
    Return
End If
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim Start As Integer
Dim idx As Integer = - 1
If trv.SelectedNode IsNot Nothing Then '获取当前节点位置.
    Dim FullName As String = PY.GetNamePY(trv.SelectedNode.FullName)
    MsgBox(FullName)
    For i As Integer = 0 To trv.AllNodes.count - 1
        If PY.GetNamePY(trv.AllNodes(i).FullName) = FullName Then
            Start = i
            Exit For
        End If
    Next
End If
For i As Integer = Start + 1 To trv.AllNodes.count - 1 '从当前节点的下一个节点开始查找
    Dim nd As WinForm.TreeNode = trv.AllNodes(i)
    If PY.GetNamePY(nd.Text).IndexOf(txt) >= 0 Then
        trv.SelectedNode = nd

……
 回到顶部
帅哥，在线噢！
jhxb8821
 小大  43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：707 积分：5039 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2023/7/28 11:01:00 [只看该作者]

带查找功能的下拉目录树，

TreeView控件的NodeMouseClick事件代码设置为：

If e.Node.Level = 1 Then '如果单击的是第二层节点
    Dim tr As Row = Tables("客户").Current
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    tr("省市") = dr("省市")
    tr("县市") = dr("县市")
    tr("区号") = dr("区号")
    tr("邮编") = dr("邮编")
    e.Form.DropDownBox.Value = tr("县市")
    e.Form.DropDownBox.CloseDropdown()
End If

窗口下拉目录树，待选定后，节点自动收缩目录。请教老师如何实现？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107864 积分：548683 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/28 11:11:00 [只看该作者]


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


加好友 发短信
等级：三尾狐 帖子：707 积分：5039 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2023/7/28 13:55:00 [只看该作者]

If e.Node.Level = 3 Then '如果单击的是第4层节点
    Dim tr As Row
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    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 
    tr("地区") = dr("地区") '前列名为当前表的，后一列名为“行政区划代码8321”的
    tr("省简称") = dr("省简称")
    tr("地级市") = dr("地级市")
    tr("区划简称") = dr("区划简称") 
    e.Form.DropDownBox.Value = tr("区划简称") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.   
    Forms("行政区划目录树输入202307带查找").Controls("TreeView1").CollapseAll '关闭目录树所有节点    
    e.Form.DropDownBox.CloseDropdown() 
End If
蓝老师，请帮我看看，是这样的吗？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107864 积分：548683 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/28 14:05:00 [只看该作者]

测试有什么问题

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


加好友 发短信
等级：三尾狐 帖子：707 积分：5039 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2023/7/28 14:08:00 [只看该作者]

看不出问题

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


加好友 发短信
等级：三尾狐 帖子：707 积分：5039 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2023/11/1 20:13:00 [只看该作者]

蓝老师，请问一下，会计科目示例中，我想在有科目代码那个表中加一逻辑列启动，在递归函数写代码，筛选条件为启用=true，目录树列表为选中的数据，可以实现吗，代码加在哪

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


加好友 发短信
等级：超级版主 帖子：107864 积分：548683 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/2 8:56:00 [只看该作者]

哪个会计科目示例？

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


加好友 发短信
等级：三尾狐 帖子：707 积分：5039 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2023/11/2 9:44:00 [只看该作者]

加上这个限定条件[启用]=true，好像还是有点问题
 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:会计科目11.foxdb

 回到顶部
总数 64 上一页 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.16016 秒, 5 次数据查询