以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  基于数据库里面的数据生成目录树  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124204)
--  作者：susu312
--  发布时间：2018/9/1 19:25:00
--  基于数据库里面的数据生成目录树

老师，下面这个是基于已经加载的数据生成目录树，如何基于后台这个表的所有数据生成目录树？因为有权限控制，又不希望它真的在表里都加载？

DataTables("organList").load
     Dim dt1 As DataTable = DataTables("organList")
     For Each dr1 As DataRow In dt1.datarows
        If dr1.IsNull("superName") Then
             dr1("fuZhu") = format(dr1("_Identify"), "000")
             Functions.Execute("AddChildren1",dr1,dt1)
        End If
     Next
--  作者：有点甜
--  发布时间：2018/9/2 11:29:00
--  

For Each dr1 As DataRow In dt1.datarows

 

改成

 

For Each dr1 As DataRow In dt1.sqlSelect("")

 

对应的AddChildren1函数，也要对应修改成后台查询
--  作者：susu312
--  发布时间：2018/9/2 21:54:00
--  
以下是引用有点甜在2018/9/2 11:29:00的发言：

For Each dr1 As DataRow In dt1.datarows

 

改成

 

For Each dr1 As DataRow In dt1.sqlSelect("")

 

对应的AddChildren1函数，也要对应修改成后台查询

\'If dr.IsNull("superName") Then
   \'If dr("organName") = _UserOrgan Then
    If dr("superName")="" Then

 

老师，红色的和橙色的这两句代码有啥区别呀？

 

这个是用递归方法生成登录时的那个单位目录树的判定条件

 

1、我用橙色的生成的目录树为空

2、改成红色的条件后，就生成目录树了？

 

我理解上觉的是一样的？
--  作者：有点甜
--  发布时间：2018/9/2 23:12:00
--  
现在你遇到什么问题？具体做一个例子发上来测试。
--  作者：susu312
--  发布时间：2018/9/2 23:25:00
--  
以下是引用有点甜在2018/9/2 23:12:00的发言：
现在你遇到什么问题？具体做一个例子发上来测试。 
  那个从 isnull 改成 =""后，就正常了，我就不知道这俩有啥区别，之前 is null也好好的
--  作者：有点甜
--  发布时间：2018/9/2 23:35:00
--  
以下是引用susu312在2018/9/2 23:25:00的发言：
  那个从 isnull 改成 =""后，就正常了，我就不知道这俩有啥区别，之前 is null也好好的

 

我测试没问题。

 

那你改成 If dr("superName")=nothing Then 或者 If dr("superName")="" Then 吧。