主题：获取当前行

Dim dr As Row = Tables("采购订单").Current

Dim num As String

num=dr("随机号")

messagebox.show(num)

我在窗口里面有一个表，我想实现 鼠标点 某一行 然后点 按钮，就可以得到这个表里 随机号 这一列（当前行）的值……

可是我在Check里加上上面的代码，它始终返回给我的是这个表的最后一行的值，不知道是哪里错了。

Dim dr As Row = Tables("采购订单_Table1").Current

Dim num As String

If dr IsNot Nothing Then

    num=dr("随机号")

End If

messagebox.show(num)

就可以了。
在这里时分感谢  布莱克朱