- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于数据库光标定位问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88818)
-- 发布时间：2016/8/10 10:02:00
-- 关于数据库光标定位问题
请教专家：
此主题相关图片如下：课程表.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
奇怪的是“学生档案编辑”窗口显示的并不是我想要修改的学生档案。
-- 发布时间：2016/8/10 10:10:00
--
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
-- 发布时间：2016/8/10 13:24:00
--
谢谢专家回复，再试试
-- 发布时间：2016/8/10 13:32:00
-- 还是有问题？
此主题相关图片如下：课程表1.jpg
-- 发布时间：2016/8/10 14:45:00
--
试试
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
如果不行，请上传实例说明。
-- 发布时间：2016/8/10 17:53:00
-- 谢谢专家，已经解决
谢谢专家，已经解决