主题：如何实现这样的输入？

If e.IsFocusCell Then

    If e.Col.Name = "型号" Then

        e.Col.ComboList = DataTables("表A").GetComboListString("型号", "型号 is not null")

    Else If e.Col.Name = "规格" Then

        e.Col.ComboList = DataTables("表A").GetComboListString("规格", "型号 = '" & e.Row("型号") & "'")

    Else If e.Col.name = "颜色" Then

        e.Col.ComboList = DataTables("表A").GetComboListString("颜色", "型号 = '" & e.Row("型号") & "' and 规格 = '" & e.Row("规格") & "'")      

    End If

End If