?Di/m nf A/s Int/eger =? cin/t(Form/at(Da/te.To/day,"yy"))
? ? ? ? nf = nf - e.Po/stValues("就读年级") + 1
? ? ? ? Di/m xsbh A/s Str/ing
? ? ? ? Di/m cmd1 A/s Ne/w SQLCom/mand
? ? ? ? cm/d1.Conne/cti '外部表请设置数据源名称'
? ? ? ? cm/d1.Comm/andText = "Sele/ct m/ax(学生编号) Fro/m 学生信息? wh/ere 学生编号>? " & nf * 10000 & " An/d 学生编号 " & (nf+1) * 10000 & " An/d 报读学校= "'" & e.PostV/alues("报读学校") & "'"
? ? ? ?
|