以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  还原到之前的值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89885)

--  作者:huhu
--  发布时间:2016/8/31 17:08:00
--  还原到之前的值
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
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2016/8/31 17:54:00
--  
控件的undo貌似有问题。只能是用全局变量保存一下之前的值