以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  更新数据问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108235)

--  作者:裴保民
--  发布时间: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编辑过]

--  作者:有点甜
--  发布时间:2017/10/18 21:14:00
--  

 看看 http://www.foxtable.com/webhelp/scr/2436.htm

 


--  作者:裴保民
--  发布时间:2017/10/18 21:50:00
--  

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

 

 

 

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

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

--  作者:有点甜
--  发布时间:2017/10/18 22:36:00
--  

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

 

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


--  作者:裴保民
--  发布时间: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

 

 

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


--  作者:有点甜
--  发布时间:2017/10/19 9:06:00
--  
回复5楼,每次赋值以后,都要加上 WriteValue 的代码。