textchanged代码:
Dim bbyf As WinForm.ComboBox = e.Form.Controls("cmb辩白研发")
Dim bbmk As WinForm.ComboBox = e.Form.Controls("cmb辩白模块")
If bbmk.text = "" Then
bbyf.text = ""
Else
Dim dr As DataRow = DataTables("模块名称库").SQLFind("模块名称 = '" & bbmk.text & "'")
If dr IsNot Nothing Then
bbyf.text = dr("模块维护人")
End If
End If
希望点击取消按钮,bbyf,bbmk都还原到之前的值。取消按钮代码怎么写。
此主题相关图片如下:qq截图20160831165710.png
