以文本方式查看主题

-  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=19126)
--  作者：today_ok
--  发布时间：2012/4/28 8:25:00
--  目录树图标设定求解

 

以下是一段窗口加载语句

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没有记录吗?

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