Foxtable(狐表)用户栏目专家坐堂 → 请老师看一下下面的递归函数有什么问题?


  共有1881人关注过本帖树形打印复制链接

主题:请老师看一下下面的递归函数有什么问题?

帅哥哟,离线,有人找我吗?
有点色
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/2 10:20:00 [显示全部帖子]

 你可以定义一个vars("str")变量,接收 vars("str") = str

 

 否则,你获取不到最后的结果的

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/2 10:25:00 [显示全部帖子]

或者改成

 

MessageBox.Show(Functions.Execute("部门路径","109",""))

'函数------------------------------------------------------
Dim bmbh As String = Args(0)
Dim cmd As new SQLCommand
cmd.ConnectionName = gs_strActiveConn
cmd.CommandText="sel ect 部门编号,部门名称,上级部门编号,上级部门名称 from {公司部门表} where 部门编号 = '" & bmbh & "'"
Dim dt As DataTable = cmd.ExecuteReader
If dt.DataRows.Count > 0 Then
    Dim dr As DataRow = dt.DataRows(0)
    If dr("上级部门编号").length > 0 Then
        str = dr("部门名称") & "\" & Functions.Execute("部门路径",dr("上级部门编号"))
        str = str.trim("\")
    End If
End If
Return str
'----------------------------------------------------------


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/2 10:49:00 [显示全部帖子]

顶级你在掉用函数的时候获取啊。

 

MessageBox.Show(Functions.Execute("部门路径","109",""))

'函数------------------------------------------------------
Dim bmbh As String = Args(0)
Dim cmd As new SQLCommand
cmd.ConnectionName = gs_strActiveConn
cmd.CommandText="sel ect 部门编号,部门名称,上级部门编号,上级部门名称 from {公司部门表} where 部门编号 = '" & bmbh & "'"
Dim dt As DataTable = cmd.ExecuteReader
If dt.DataRows.Count > 0 Then
    Dim dr As DataRow = dt.DataRows(0)
    If dr("上级部门编号").length > 0 Then
        str = Functions.Execute("部门路径",dr("上级部门编号")) "\" & dr("部门名称") 
        str = str.trim("\")
    End If
End If
Return str


 回到顶部