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
加好友 
发短信
Post By：2017/4/16 11:56:00 [显示全部帖子]
