求教老师代码问题~~ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求教老师代码问题~~

共有9574人关注过本帖树形打印复制链接主题：求教老师代码问题~~

mamuaiqing

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：824 积分：6294 威望：0 精华：0 注册：2012/3/1 3:17:00

求教老师代码问题~~ 发帖心情

Post By：2012/12/15 2:57:00 [显示全部帖子]

代码如下：前面已经Dim了Tables，后面想dim Tables的Current的话代码要怎么改？我想把表中的行绑定到Label控件中，求教老师们

If Tables("销售订单.销售明细").Rows.Count > 0 Then
        Dim r1 As Row = Tables("销售订单.销售明细").AddNew
        Dim r1 As Row = Tables("销售订单.销售明细").Current
        e.Form.Controls("类别").Text = "类别:" & r1("类别")

难道是以下这样？

If Tables("销售订单.销售明细").Rows.Count > 0 Then

Dim r1 As DataRow

r1 = DataTables("销售订单.销售明细").AddNew

r1 = DataTabkes("销售订单.销售明细").Current
e.Form.Controls("类别").Text = "类别:" & r1("类别")

mamuaiqing

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：824 积分：6294 威望：0 精华：0 注册：2012/3/1 3:17:00

Post By：2012/12/15 12:54:00 [显示全部帖子]

感谢楼上的帮助，但要保留Tables("销售订单.销售明细").AddNew，要向子表增加行的，

中间代码我省略了，还是贴出来吧，
If Tables("销售订单.销售明细").Rows.Count > 0 Then
        Dim r1 As Row = Tables("销售订单.销售明细").AddNew
        r1("商品编号")= Tx.Text
        Tables("销售订单.销售明细").DataTable.DeleteFor("商品编号 Is Null")
        r1.save()
        Tx.Text= Nothing

Dim r1 As Row = Tables("销售订单.销售明细").Current
e.Form.Controls("类别").Text = "类别:" & r1("类别")

这样要怎么改？

mamuaiqing

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：824 积分：6294 威望：0 精华：0 注册：2012/3/1 3:17:00

Post By：2012/12/15 14:44:00 [显示全部帖子]

感谢lin老师的帮助~~原来还可以这样e.Form.Controls("类别").Text = "类别:" & Tables("销售订单.销售明细").Current("类别") 图片点击可在新窗口打开查看

下一主题 >> << 上一主题

主题：求教老师代码问题~~