Dim str As String = e.Form.Controls("ComboBox1").Text
If str = "采购" Then
e.Form.controls("ComboBox2").ComboList = DataTables("采购单").GetComboListString("采购单号")
ElseIf str = "生产" Then
e.Form.controls("ComboBox2").ComboList = DataTables("生产单").GetComboListString("生产单号")
ElseIf str = "外协" Then
e.Form.controls("ComboBox2").ComboList = DataTables("外协单").GetComboListString("外协单号")
End If
加好友 
发短信
Post By：2016/12/6 17:42:00 [显示全部帖子]
