Dim r As Row = Tables("装机工单表").currentDim idx As Integer = Tables("网格人员清单表").FindRow("装维人员姓名 = '" & r("装维人员姓名") & "' ")If idx >= 0 then
Tables("网格人员清单表").Position = idx
End If