第归求树,请帮我debug,谢谢

cquptkd 2004-04-29 05:03:15
Private Sub getH(ByVal rootID As Integer, ByRef intArray As Integer())
Dim tb As New DataTable
cmd.CommandText = "select id from orgnodeandrelation where parentdepartmentid=" & rootID
Dim sda As New SqlDataAdapter
sda.SelectCommand = cmd
sda.Fill(tb)
Dim i As Integer
For i = 0 To tb.Rows.Count - 1
If intArray Is Nothing Then
ReDim Preserve intArray(0)
intArray(0) = tb.Rows(0)(0)
Else
Dim l As Integer = intArray.Length
ReDim Preserve intArray(l)
intArray(l) = tb.Rows(0)(0)
End If
getH(tb.Rows(0)(0), intArray)
Next
tb.Clear()
End Sub
...全文
32 2 点赞 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
vzxq 2004-04-29
不太明白,帮你UP 来高手
  • 打赏
  • 举报
回复
cquptkd 2004-04-29
该code的目的是得到当前节点的所有字节点id
  • 打赏
  • 举报
回复
相关推荐
发帖
.NET社区
加入

5.9w+

社区成员

.NET技术交流专区
申请成为版主
帖子事件
创建了帖子
2004-04-29 05:03
社区公告
暂无公告