专家坐堂-求教老师代码问题~~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=26824)

--  作者：mamuaiqing
--  发布时间：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("类别")

--  作者：新福星
--  发布时间：2012/12/15 6:42:00
--

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

--  作者：mamuaiqing
--  发布时间：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("类别")

这样要怎么改？

--  作者：lin_hailun
--  发布时间：2012/12/15 14:11:00
--
不明白你的意思，先改一下。

If Tables("销售订单.销售明细").Rows.Count > 0 Then
        Tables("销售订单.销售明细").DataTable.DeleteFor("商品编号 Is Null")
        r1.save()
        Tx.Text= Nothing
        e.Form.Controls("类别").Text = "类别:" & Tables("销售订单.销售明细").Current("类别")

        Dim r1 As Row = Tables("销售订单.销售明细").AddNew
        r1("商品编号")= Tx.Text

--  作者：mamuaiqing
--  发布时间：2012/12/15 14:44:00
--
感谢lin老师的帮助~~原来还可以这样e.Form.Controls("类别").Text = "类别:" & Tables("销售订单.销售明细").Current("类别")