prepareEdit事件,再不会做就算了。
If e.Col.name = "收支类型" Then
e.Col.ComboList = DataTables("收支类别表").GetComboListString("收支类型")
ElseIf e.Col.name = "收支类别" Then
e.Col.ComboList = DataTables("收支类别表").GetComboListString("收支类别", "收支类型 = '" & e.Row("收支类型") & "'" )
ElseIf e.Col.name = "类别明细" Then
e.Col.ComboList = DataTables("收支类别表").GetComboListString("类别明细", "收支类型 = '" & e.Row("收支类型") & "' and 收支类别 = '" & e.Row("收支类别") & "'" )
End If