Foxtable(狐表)用户栏目专家坐堂 → [求助] combobox在值发生变化时如何恢复旧值


  共有3545人关注过本帖树形打印复制链接

主题:[求助] combobox在值发生变化时如何恢复旧值

帅哥哟,离线,有人找我吗?
gfj72
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:59 积分:560 威望:0 精华:0 注册:2013/10/16 18:03:00
[求助] combobox在值发生变化时如何恢复旧值  发帖心情 Post By:2014/10/22 10:11:00 [显示全部帖子]

专家:

      我建了一个combobox下拉框,在ValueChanged事件中,会先执行对当前记录

是否有空值的判定。

Dim Colnames As String() = {"产品编号","产品批号","生产日期","测试日期","测试者","模号","班次","总长L","D喷嘴中心距M","端面外径X","端面外径Y","端面外径X'","端面外径Y'","D喷嘴外径AX","D喷嘴外径AY","D喷嘴外径AX"
Dim Isadd As Boolean = True
For Each ColName As String In Colnames
If Tables("容器尺寸测量表").Current.IsNull(ColName) Then
Isadd = False
MessageBox.Show("当前记录还未输入完成,请完成输入")

(这里想加入一行代码,终止combobox选择新的值,恢复值变化前的值)
Exit For
End If
Next

因为该控件没有oldvalue属性,e.cancel也无效。不知道这里如何加代码,或如何获得旧值,

如果用获得旧值后再读取回旧值,这里的代码是否还会执行一次?这样就会跳出两次提醒了。

以上,谢谢!


 回到顶部
帅哥哟,离线,有人找我吗?
gfj72
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:59 积分:560 威望:0 精华:0 注册:2013/10/16 18:03:00
  发帖心情 Post By:2014/10/22 10:25:00 [显示全部帖子]

有没有可以直接把数据库所有行进行锁定的代码?


 回到顶部
帅哥哟,离线,有人找我吗?
gfj72
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:59 积分:560 威望:0 精华:0 注册:2013/10/16 18:03:00
  发帖心情 Post By:2014/10/22 10:54:00 [显示全部帖子]

采用逐行判定然后再进行锁定,如果数据量大,执行起来还是需要时间的,如果能有直接不判定,直接实施锁定,

就不用再去对数据库逐条判定了,这样执行起来是不是会快许多?


 回到顶部