以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  双击节点，选定应该节点所处的行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=12796)
--  作者：kevin
--  发布时间：2011/9/15 14:16:00
--  双击节点，选定应该节点所处的行

 

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

 

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

 

 

希望得到如题效果，双击节点，选定所处的行，
--  作者：狐狸爸爸
--  发布时间：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