主题：[求助]目录树与表 交互选择的问题！！

 界面如下

此主题相关图片如下：未命名.jpg



目录树afterselectnode里代码如下

If e.Node.text <> "全部" Then
    Dim dr As DataRow
    Dim s As String = e.Node.Text
    Dim i As Integer = s.IndexOf(" ")
    s = s.SubString(0,i)
   
    dr = DataTables("综合部物品分类设置_综合部物品分类设置Table1").Find("分类编号 = '" & s & "'")
    Dim wz As Integer = Tables("综合部物品分类设置_综合部物品分类设置Table1").FindRow(dr)
    If wz >= 0 Then
        Tables("综合部物品分类设置_综合部物品分类设置Table1").Position = wz
    End If
End If

功能为：单击左边目录树 右边的table就能自动定位到相应的行


但是反过来我就不会了  就是在table中选择不同的行  目录树也到对应到相应节点，请教怎么弄？（PS.还有个功能就是：如果table当前选中的行是目录树中未展开的，则目录树保持当前展开状态，并展开选中行的节点）

 又遇到一个问题

我把代码放在 sql型table的 positionchanged里的  结果出现这个错误

此主题相关图片如下：未命名23232.jpg





If Tables("综合部物品分类设置_综合部物品分类设置table1").Focused Then
    StatusBar.Message1 = "第" & (e.Table.Position + 1) & "行,共" & e.Table.Rows.Count & "行"
    Dim trv As WinForm.TreeView = forms("ERP界面").Controls("综合部物品分类设置TreeView1")
    Dim t As Integer = trv.SelectedNode.Text.LastIndexOf(" ")

    If mytree Is Nothing Then Return

    Dim tv As WinForm.TreeView = mytree
    For Each node As WinForm.TreeNode In tv.AllNodes
        If e.Table.Rows(e.Table.Position)("分类编号") = node.text.SubString(0,t)
            tv.SelectedNode = node
            Exit For
        End If
    Next
End If

也就是 这个forms("ERP界面").Controls("综合部物品分类设置TreeView1")  找不到

但是我在命令窗口里 进行测试 forms("综合部物品分类设置").Controls("综合部物品分类设置TreeView1").Height = 0

没有出现错误  证明可以找到的 奇怪了

做个例子还是？？

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:目录树与表交互1.rar

麻烦了

 多谢您啦~~~~ 狐神！   学了一招 Split(" ")(0)