Dim str = DataTables("表B").GetComboListString("账户姓名")str = str.replace("|", "','")
e.form.controls("ComboBox1").ComboList = DataTables("表A").GetComboListString("账户姓名", "账户姓名 not in ('" & str & "') and 停用=false")