Foxtable(狐表)用户栏目专家坐堂 → 动态赋值


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

主题:动态赋值

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


加好友 发短信
等级:三尾狐 帖子:656 积分:7786 威望:0 精华:0 注册:2015/8/24 9:02:00
动态赋值  发帖心情 Post By: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




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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:656 积分:7786 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By: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编辑过]

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:656 积分:7786 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2017/4/10 16:27:00 [只看该作者]

错误还是一样   
这三个ComboBox   是不是要绑定啊
我没绑定


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


加好友 发短信
等级:三尾狐 帖子:656 积分:7786 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2017/4/10 16:30:00 [只看该作者]

有点色    搞定了    谢谢

 回到顶部