主题：目录树明细为不同的图标,总是搞不定

  a="fnumber= '"& stockfnumber & "' And fdetail=True"
                          dr = dt.Find(a)  '看代码在表里是否是最明细
         
 'a=dr("fnumber")          
                     'messagebox.Show(dr)
           If dr IsNot Nothing Then
             messagebox.Show(dr("fname"))
                nd.Ic
                     Else
                     nd.Ic

                   '    MessageBox.Show ( stockfnumber )
            End If

大家帮我看一下这段代码,我的目录总不执行    nd.Ic这一段,是我的dr没有记录吗?

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