[求助]动态定位至Table中的行 Post By:2017/7/28 11:08: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)("名称")) 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