Dim zj As String = Tables("表a").Current("_Identify")
DataTables("表a").Load
Tables("表a").Position = Tables("表a").FindRow("_Identify = " & zj)