以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  ComboBox的值问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=132976)

--  作者:ZJZK2018
--  发布时间:2019/4/3 11:38:00
--  ComboBox的值问题
ComboBox的初始值为“AA”,下拉值为“AA|BB|CC”,如果选择了BB后,直接删除BB,此时ComboBox的值为空,如何返回到BB这值上去??

Dim tb02 As Table = Tables(e.Form.Name & "_Table02")
If e.Sender.Value = "往来付款明细" Then
    tb02.DataSource = DataTables("往来付款明细")
    tb02.SetColVisibleWidth(Tables("往来付款明细").GetColVisibleWidth())
ElseIf e.Sender.Value = "往来收款明细" Then
    tb02.DataSource = DataTables("往来收款明细")
    tb02.SetColVisibleWidth(Tables("往来收款明细").GetColVisibleWidth())
Else
    MessageBox.Show("查询表类型不能为空!")
    e.Sender.Value = ????
End If



--  作者:有点甜
--  发布时间:2019/4/3 11:42:00
--  

enter事件,用变量记录之前的值,如

 

vars("之前值") = e.sender.text