以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]动态定位至Table中的行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104377)
--  作者：2900819580
--  发布时间：2017/7/28 11:08:00
--  [求助]动态定位至Table中的行

Dim tb As Table = Tables(e.Form.Name & "_Table1")

For Ri As Integer = tb.Rows.Count -1 To 0 Step -1
    If tb.Rows(Ri)("i") = "+" Then        
        MessageBox.Show(tb.Rows(Ri)("名称"))       
        e.Form.Controls("but+").performclick
    End If
Next

 

 

BOM明细_but+_Click

Dim tb As Table = Tables(e.Form.Name & "_" & "Table1")
Dim r As Row = tb.Current

 

 

如上面的调用，如何怎么可以让Table 的Row在循环中动态定位Row。可以让后面的tb.Current 得到正确认的值
--  作者：有点甜
--  发布时间：2017/7/28 11:10:00
--  

Dim tb As Table = Tables(e.Form.Name & "_Table1")

For Ri As Integer = tb.Rows.Count -1 To 0 Step -1
    If tb.Rows(Ri)("i") = "+" Then        
        MessageBox.Show(tb.Rows(Ri)("名称"))     

        tb.position = ri   
        e.Form.Controls("but+").performclick
    End If
Next