标题：双击节点，选定应该节点所处的行

1楼

kevin 发表于：2011/9/15 14:16:00

以下是打开窗口时，目录树加载“往来企业”表

Dim tv As WinForm.TreeView
tv = e.Form.Controls("TreeView1")
tv.BuildTree("往来企业","企业类别|企业名称")

希望得到如题效果，双击节点，选定所处的行，

2楼

狐狸爸爸 发表于：2011/9/15 14:49:00

合成条件，然后再找，例如:

Dim Value()As String
Dim flt As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        flt ="[企业类别] = '" & Value(0) & "'"
    Case 1
        flt ="[企业类别] = '" & Value(0) & "' And [企业名称] = '" & Value(1) & "'"
End Select
Dim i As Integer = Tables("往来企业").FindRow(flt,0,True)
If i > 0 Then
   Tables("往来企业").Position = i
End If

参考：

http://www.foxtable.com/help/topics/0553.htm

共2 条记录, 每页显示 10 条, 页签: [1]