以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 定位单元格 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59479) |
-- 作者:langya -- 发布时间:2014/11/5 9:00:00 -- 定位单元格 表中的第二行第三列的单元格为空,我想通过代码的方式自动定位到该单元格,怎么实现? |
-- 作者:Bin -- 发布时间:2014/11/5 9:03:00 -- http://www.foxtable.com/help/topics/0550.htm |
-- 作者:有点甜 -- 发布时间:2014/11/5 9:07:00 -- Dim filter As String = "1=2" For Each dc As Col In Tables("表A").Cols filter &= " or " & dc.Name & " is null" Next Dim r As Integer = Tables("表A").FindRow(filter) If r > -1 Then For Each dc As Col In Tables("表A").Cols If Tables("表A").Rows(r).IsNull(dc.name) Then Tables("表A").Select(r, dc.Index) Exit For End If Next End If |