以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  获取当前行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=24577)
--  作者：johnbu
--  发布时间：2012/10/17 16:33:00
--  获取当前行
Dim dr As Row = Tables("采购订单").Current
Dim num As String
num=dr("随机号")
messagebox.show(num)

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

可是我在Check里加上上面的代码，它始终返回给我的是这个表的最后一行的值，不知道是哪里错了。
--  作者：blackzhu
--  发布时间：2012/10/17 16:45:00
--  
你这个代码 焦点在什么行 就显示什么行的呀?
--  作者：johnbu
--  发布时间：2012/10/17 17:07:00
--  
搞定了，原因是因为我的表是SQL表，语句改成
Dim dr As Row = Tables("采购订单_Table1").Current
Dim num As String
If dr IsNot Nothing Then
    num=dr("随机号")
End If
messagebox.show(num)
就可以了。
在这里时分感谢  布莱克朱