比如代码
Dim t As Table = Forms("窗口1").controls("table1").TableDim r As Row = t.rows(t.grid.Selection.r1-t.HeaderRows, True)msgbox(r("编号"))