以文本方式查看主题

-  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