目录树图标设定求解 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是一段窗口加载语句

Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree("vw_stocktree", "a0|a1|a2|a3|a4|a5")

Dim ndname As String '节点名称
Dim stockfnumber As String '仓库代码
Dim dt As DataTable = DataTables("vw_stock") '仓库表
Dim dr As DataRow '数据行
Dim a As String

For Each nd As WinForm.TreeNode In tv.AllNodes
       ndname=nd.text

    If ndname="仓库" Then
         nd.Ic

    Else
          stockfnumber = ndname.SubString(1, ndname.IndexOf("(")-1 ) '取仓库代码出来
           a="fnumber= '"& stockfnumber & "' And fdetail=True"
                          dr = dt.Find(a) '看仓库代码在表里是否有最明细的记录

'a=dr("fnumber")
                               If dr IsNot Nothing Then
                            nd.Ic   '如果有则一种图标
                     Else
                     nd.Ic        ' 否则另一种图标

End If
End If
Next

大家帮我看一下这段代码,我的目录树总不执行 nd.Ic '如果有则一种图标
这一段,是我的dr没有记录吗?

我的查找语句那样写对吗?

主题：目录树图标设定求解