第归求树,请帮我debug,谢谢
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