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()
老师，请问增加条记录，记录窗口跳到下一条编辑呢，如何让增加后就在当前空行编辑
加好友 
发短信
Post By：2017/4/16 11:54:00 [显示全部帖子]
