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
加好友 
发短信
Post By：2014/11/5 9:07:00 [显示全部帖子]
