专家坐堂-记录窗口不更新Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  记录窗口不更新  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99277)

--  作者：刘林
--  发布时间：2017/4/16 11:54:00
--  记录窗口不更新

Dim dr1 As DataRow = DataTables("生地报名库").AddNew()
Dim c7 As String = trim(Forms("中考报名").Controls("ComboBox7").text).Substring(0,2)
Dim xxmc As String = user.group
Dim dr As DataRow = DataTables("学校信息").sqlFind("单位全称 = \'" & user.group & "\'and 学段 = \'初中\'")
If dr IsNot Nothing
dr1("毕业中学代码") = dr("毕业学校代码")
\'dr1("区县代码") = dr("区县代码")
End If
Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd.Table = Tables("中考报名_table4") \'指定绑定表
rgd.Build()

老师，请问增加条记录，记录窗口跳到下一条编辑呢，如何让增加后就在当前空行编辑

--  作者：有点蓝
--  发布时间：2017/4/16 11:56:00
--

Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd.Table = Tables("中考报名_table4") \'指定绑定表
rgd.Build()
Dim dr1 As DataRow = Tables("中考报名_table4").AddNew()
Dim c7 As String = trim(Forms("中考报名").Controls("ComboBox7").text).Substring(0,2)
Dim xxmc As String = user.group
Dim dr As DataRow = DataTables("学校信息").sqlFind("单位全称 = \'" & user.group & "\'and 学段 = \'初中\'")
If dr IsNot Nothing
dr1("毕业中学代码") = dr("毕业学校代码")
\'dr1("区县代码") = dr("区县代码")
End If