主题：[求助]筛选条件问题

PrepareEdit事件：

If e.IsFocusCell AndAlso e.col.Name = "型式" Then
    Dim filter As String
    filter= "类别 = '" &  e.Row("类别") &"'"
    e.col.Combolist = DataTables("型式").GetComboListString("型式",filter)
End If