专家坐堂-动态赋值Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  动态赋值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=98966)

--  作者：zoyong
--  发布时间：2017/4/10 14:51:00
--  动态赋值

为什么我的代码是所有列都赋值了，每行的数据都一样了
我想赋值当前行的三列

此主题相关图片如下：搜狗截图17年04月10日1450_1.png

For Each r As Row In CurrentTable.Rows
r("帐户名") =e.Form.Controls("combobox1").Value
r("开户行") =e.Form.Controls("combobox2").Value
r("帐号") =e.Form.Controls("combobox3").Value
Next
e.Form.Close

--  作者：有点色
--  发布时间：2017/4/10 15:27:00
--

Dim r As Row = Tables("表A").Current
r("帐户名") =e.Form.Controls("combobox1").Value
r("开户行") =e.Form.Controls("combobox2").Value
r("帐号") =e.Form.Controls("combobox3").Value

e.Form.Close

--  作者：zoyong
--  发布时间：2017/4/10 16:00:00
--

错误依旧

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2017.3.18.1
错误所在事件：窗口,项目收款帐户选择,Button1,Click
详细错误信息：
未将对象引用设置到对象的实例。

窗口与控件事件

项目收款帐户选择_AfterLoad

Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")

cmb.ComboList = DataTables("银行资料").GetComboListString("帐户名")

项目收款帐户选择_Button1_Click

Dim r As Row = Tables("项目收款登记").Current

r("帐户名") =e.Form.Controls("combobox1").Value

r("开户行") =e.Form.Controls("combobox2").Value

r("帐号") =e.Form.Controls("combobox3").Value

e.Form.Close

项目收款帐户选择_ComboBox2_Enter

Dim cmb As WinForm.ComboBox = e.Sender

Dim str As String = e.Form.Controls("ComboBox1").Value

cmb.ComboList = DataTables("银行资料").GetComboListString("开户行", "帐户名 = \'" & str & "\'")

项目收款帐户选择_ComboBox3_Enter

Dim cmb As WinForm.ComboBox = e.Sender

Dim str As String = e.Form.Controls("ComboBox2").Value

cmb.ComboList = DataTables("银行资料").GetComboListString("帐号", "开户行 = \'" & str & "\'")

确定按钮

Dim r As Row = Tables("项目收款登记").Current
r("帐户名") =e.Form.Controls("combobox1").Value
r("开户行") =e.Form.Controls("combobox2").Value
r("帐号") =e.Form.Controls("combobox3").Value
e.Form.Close

[此贴子已经被作者于2017/4/10 16:01:25编辑过]

--  作者：有点色
--  发布时间：2017/4/10 16:08:00
--

Dim r As Row = Tables("项目收款登记").Current
If r Is Nothing Then
    msgbox("表没有数据")
    Return
End If

r("帐户名") =e.Form.Controls("combobox1").Value
r("开户行") =e.Form.Controls("combobox2").Value
r("帐号") =e.Form.Controls("combobox3").Value
e.Form.Close

--  作者：zoyong
--  发布时间：2017/4/10 16:27:00
--
错误还是一样
这三个ComboBox 是不是要绑定啊
我没绑定

--  作者：zoyong
--  发布时间：2017/4/10 16:30:00
--
有点色搞定了谢谢