以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  ComboBox的值问题  (http://foxtable.net/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