Dim bh As String = Tables("表A").Current("编号")
Tables("表A").DataTable.Load
Tables("表A").Position = Tables("表A").FindRow("编号 = '" & bh & "'")