多层列表项目问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

合在一起什么意思？
这样？

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
ElseIf 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

主题：多层列表项目问题