Dim str As String = "23" Dim t As Table = Tables("表A") Dim idx As Integer = t.findrow("iif(第一列 is null, '', 第一列) Like '%" & str & "%' or iif(第二列 is null, '', 第二列) Like '%" & str & "%' or iif(第三列 is null, '', 第三列) Like '%" & str & "%' ", t.Position+1, True) t.Position = idx