Foxtable(狐表)用户栏目专家坐堂 → 更新数据问题


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

主题:更新数据问题

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


加好友 发短信
等级:八尾狐 帖子:1995 积分:12678 威望:0 精华:0 注册:2017/4/3 15:01:00
更新数据问题  发帖心情 Post By:2017/10/18 20:18:00 [只看该作者]

窗体上有三个组合框(jijusuoshujigouCombojijusuoshujigongfuzerenCombosuoshujigoujibieCombo)绑定到"POS机库存资料"表上,并jijusuoshujigouCombo控件的SelectedIndexChanged事件写了如下代码:

 

Dim cmb As WinForm.ComboBox =e.Form.Controls("jijusuoshujigongfuzerenCombo")
Dim str As String = e.Form.Controls("jijusuoshujigouCombo").Value
cmb.ComboList = DataTables("代理商资料表").GetComboListString("代理商负责人姓名", "代理商机构名称= '" & str & "'")
cmb.SelectedIndex =  0

cmb  =e.Form.Controls("suoshujigoujibieCombo")
str = e.Form.Controls("jijusuoshujigouCombo").Value
cmb.ComboList = DataTables("代理商资料表").GetComboListString("代理商级别", "代理商机构名称= '" & str & "'")cmb.SelectedIndex =  0

Click事件中写了如下代码

Sendkeys.SendWait("{f4}{Down}")

 

 

 

当修改数据时 在jijusuoshujigouCombo选择数据后jijusuoshujigongfuzerenCombosuoshujigoujibieCombo控件内容已经发生了变化,单击保存数据后为什么只有jijusuoshujigouCombo中的数据更新到绑定表中,而jijusuoshujigongfuzerenCombosuoshujigoujibieCombo两个控件中的数据不更新到表中呢?

是什么原因呢?

 

 

 

 

 

[此贴子已经被作者于2017/10/18 20:31:51编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/18 21:14:00 [只看该作者]


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


加好友 发短信
等级:八尾狐 帖子:1995 积分:12678 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2017/10/18 21:50:00 [只看该作者]

我应该怎么做呢?直接解绑吗?如果解绑后修改、添加数据代码都得改赋值的方法进行操作,还有方法吗?

 

 

 

还有如果解绑后就没法浏览数据了

[此贴子已经被作者于2017/10/18 22:09:17编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/18 22:36:00 [只看该作者]

你赋值以后,加一句代码,如

 

e.form.controls("jijusuoshujigongfuzerenCombo").text = "123456"
e.form.controls("jijusuoshujigongfuzerenCombo").writevalue


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


加好友 发短信
等级:八尾狐 帖子:1995 积分:12678 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2017/10/18 23:38:00 [只看该作者]

Dim cmb As WinForm.ComboBox =e.Form.Controls("jijusuoshujigongfuzerenCombo")
Dim str As String = e.Form.Controls("jijusuoshujigouCombo").Value
cmb.ComboList = DataTables("代理商资料表").GetComboListString("代理商负责人姓名", "代理商机构名称= '" & str & "'")
cmb.SelectedIndex =  0
e.form.controls("jijusuoshujigongfuzerenCombo").writevalue
cmb  =e.Form.Controls("suoshujigoujibieCombo")
str = e.Form.Controls("jijusuoshujigouCombo").Value
cmb.ComboList = DataTables("代理商资料表").GetComboListString("代理商级别", "代理商机构名称= '" & str & "'")
cmb.SelectedIndex =  0
e.form.controls("suoshujigoujibieCombo").WriteValue

 

 

这样对吗?怎么一单击保存按钮数据就立即回复到以前的状态了,


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/19 9:06:00 [只看该作者]

回复5楼,每次赋值以后,都要加上 WriteValue 的代码。

 回到顶部