以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求教代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48565)
--  作者：dengzhihao
--  发布时间：2014/3/31 22:48:00
--  求教代码问题
For Each ctl As WinForm.Control In e.Form.Controls
    For Each c As Col In Tables("主表.副表").Cols
        If TypeOf ctl Is WinForm.RadioButton Then
            Dim rd As WinForm.RadioButton = ctl
            If rd.Checked AndAlso rd.Name.StartsWith(c.Name) Then
                Tables("主表.副表").Current(c.Name) = rd.Text
            End If
        End If
    Next
Next

为什么这段代码执行总是在表第一行，而不是应用在新增的行中呢？求教如何才能应用在当前行中？
[此贴子已经被作者于2014-3-31 22:49:40编辑过]
--  作者：lsy
--  发布时间：2014/4/1 7:05:00
--  

焦点自动在第一行了，而焦点所在的行就是当前行。

点一下想到的行，然后再执行代码就可以了。