Dim xm As Stringxm = Tables("课程表.档案记录").Current("姓名")
Dim idx As Integer = Tables("学生档案").FindRow("姓名 = '" & xm & " '")If idx >= 0 Then '如果找到的话 Tables("学生档案").position = idx Forms("学生档案编辑").Open() DataTables("学生档案").save()End If