请教专家:
此主题相关图片如下:课程表.jpg
![dvubb 按此在新窗口浏览图片](UploadFile/2016-8/20168109513444842.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
![dvubb](skins/default/filetype/jpg.gif)
此主题相关图片如下:档案修改.jpg
![dvubb 按此在新窗口浏览图片](UploadFile/2016-8/20168101001864476.jpg)
奇怪的是“学生档案编辑”窗口显示的并不是我想要修改的学生档案。