各位大侠,请帮忙分析一下以下代码,想在DropDownList中用递归法生成仿树型菜单
lyjsd 2008-01-14 08:30:32 代码如下:
Sub myTree(ByVal ddl As DropDownList, ByVal tmpDataTable As DataTable, ByVal tmpFilterColumn As String, ByVal tmpFilterValue As String, Optional ByVal Space As String = "")
Dim tmpDataView As DataView = tmpDataTable.DefaultView
tmpDataView.RowFilter = tmpFilterColumn & "='" & tmpFilterValue & "'"
Response.Write(tmpFilterValue & " ")
Dim s As Integer = tmpDataView.Count
If s > 0 Then
For i As Integer = 0 To s - 1
ddl.Items.Add(New ListItem(Space & tmpDataView(i)("Name").ToString, tmpDataView(i)("ID").ToString))
myTree(ddl, tmpDataTable, tmpFilterColumn, tmpDataView(i)("ID").ToString, Space & " ")
Next
End If
End Sub
其中tmpDataTable用数据表,里面字段为ID,ParentID,Name
运行时老是出现“索引 1 不是非负数且小于总行数。”的错误
请各位高手帮忙分析一下,谢了!