Dim temp As String = Tables("报价主表").Filter
Tables("报价主表").Current.Save
Dim idx As String = Tables("报价主表").Current("_Identify")
Tables("报价主表").DataTable.Load
Tables("报价主表").Filter = temp
Tables("报价主表").Position = Tables("报价主表").FindRow("_Identify = '" & idx & "'")