Foxtable(狐表) → 用户栏目 → 专家坐堂 → 记录窗口不更新


  共有1468人关注过本帖树形打印复制链接

主题：记录窗口不更新
帅哥哟，离线，有人找我吗？
刘林
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		记录窗口不更新  发帖心情 Post By：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() 

老师，请问增加条记录，记录窗口跳到下一条编辑呢，如何让增加后就在当前空行编辑
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106857 积分：543492 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询