Dim dr As Row = Tables("表A").Current
Dim ar() As String = dr("第一列").split("-")
Dim filter = "第一列 like '" & ar(0) & "-%' and (第一列+'.' like '%" & "-" & ar(1) & "." & "%' or 第一列+'.' like '%" & "." & ar(1) & "." & "%')"
Dim dr2 As DataRow = DataTables("表B").Find(filter)
If dr2 IsNot Nothing Then
msgbox(dr2("第一列"))
End If