主题：关于数据库光标定位问题

请教专家：

此主题相关图片如下：课程表.jpg

上图所示：上面是”课程表“，下面是一个关联查询表“档案记录”

通过右上角“Botton”控件调用“学生档案编辑”窗口

代码如下：

Dim xm As String
xm = Tables("课程表.档案记录").Current("姓名")

Dim dr As DataRow
dr = DataTables("学生档案").Find("姓名 = '" & xm & " '")
If dr IsNot Nothing Then '如果找到的话
MessageBox.Show(xm)
Forms("学生档案编辑").Open()

DataTables("学生档案").save()

End If

 

此主题相关图片如下：档案修改.jpg

奇怪的是“学生档案编辑”窗口显示的并不是我想要修改的学生档案。

Dim xm As String
xm = Tables("课程表.档案记录").Current("姓名")

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

谢谢专家回复，再试试

此主题相关图片如下：课程表1.jpg

试试

 

Dim xm As String
xm = Tables("课程表.档案记录").Current("姓名")

Dim idx As Integer = Tables("学生档案").FindRow("姓名 = '" & xm & " '")
If idx >= 0 Then '如果找到的话

SystemReady = False
    Tables("学生档案").position = idx

SystemReady = True
    Forms("学生档案编辑").Open()
    DataTables("学生档案").save()
End If

 

如果不行，请上传实例说明。

谢谢专家，已经解决