1、sql没有返回_Identify列数据cmd.CommandText = "Select * From (Select Row_Number() Over(Order by 学生姓名) As [NO.],[_Identify],学生姓名,年级,班级,家长姓名,联系电话,地址 From 控缀保学"
2、e.WriteString不能重复调用
Dim wb As New weui
Select Case e.Path
Case "kcbxfilter.htm"
'Dim wb As New WeUI
wb.AddForm("","form1","kcbxlist.htm")
With wb.AddInputGroup("form1","ipg1","疑似辍学学生查询")
.AddSelect("product","年级","|九年级|八年级|七年级|六年级|五年级|四年级|三年级|二年级|一年级")
.AddSelect("bj","班级","|(1)班|(2)班|(3)班|(4)班|(5)班|(6)班|(7)班|(8)班")
.AddSelect("jdc","街道村","|铝厂居委会|峡西居委会|同兴村|同进村|广武村|三趟墩村|三台村")
.AddSelect("dqzt","当前状态","|疑似辍学|休学|休假|送教|培训")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) '生成网页
Return '这里必须返回
Case "kcbxlist.htm"
Functions.Execute("kcbxlist",e)
Return '这里必须返回
Case "kcbxedit.htm"
Functions.Execute("Kcbxedit",e)
Return '这里必须返回
End Select
e.WriteString(wb.Build)
加好友 
发短信
Post By：2020/4/3 14:31:00 [显示全部帖子]
