If e.Form.Controls("TextBox4").Value <>"" Then Dim Val As Object = e.Form.Controls("TextBox4").Value e.Form.Controls("ComboBox5").ComboList = DataTables("业务").GetComboListString("流向", "[客户] In('Val')")
Else e.Form.Controls("ComboBox5").ComboList = DataTables("业务").GetComboListString("流向") End If