主题：[求助]求各位老大看看,这代码怎么不行??

参照自动输入示例,假如县市下还有细分,比如镇村,如何实现?我写了半天不是代码出错就是实现不了....

我的示例文件有:类别/项目/规格3个级别...
选择类别后该类别项目作为列表项目,选择了项目后该项目规格作为列表项目.下面代码怎么不行啊?

If e.Col.Name = "项目" Then
    If e.Row.IsNull("类别") Then
        e.Col.Combolist = ""
    Else
        e.Col.Combolist = DataTables("价表").GetComboListString("项目", "[类别] = '" & e.Row("类别") & "'") 
If e.Col.Name = "规格" Then
    If e.Row.IsNull("项目") Then
        e.Col.Combolist = ""
    Else
        e.Col.Combolist = DataTables("价表").GetComboListString("规格", "[项目] = '" & e.Row("项目") & "'")     
     End If
End If
     End If
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:菜鸟项目.table

顶起

原来代码可以这样写,举一反三,就算再多一级都不是问题了.谢谢老大指点.

If e.Col.Name = "项目" Then
    If e.Row.IsNull("类别") Then
        e.Col.Combolist = ""
    Else '否则
        Dim drs As New List(Of DataRow)
        Dim Val AS String
        drs = DataTables("价表").Select("[类别] = '" & e.Row("类别") & "'")
        For Each dr As DataRow In drs
            Val = Val & "|" & dr("项目")
        Next
        e.Col.Combolist = Val
    End If
End If

If e.Col.Name = "规格" Then
    If e.Row.IsNull("类别") OrElse e.Row.IsNull("项目") Then
        e.Col.Combolist = ""
    Else '否则
        Dim drs As New List(Of DataRow)
        Dim Val AS String
        drs = DataTables("价表").Select("[类别] = '" & e.Row("类别") & "'" & " and [项目]='" & e.Row("项目") & "'")
        For Each dr As DataRow In drs
            Val = Val & "|" & dr("规格")
        Next
        e.Col.Combolist = Val
    End If
End If