- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何优化处理这个代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151438)
-- 发布时间：2020/6/23 12:39:00
-- 如何优化处理这个代码
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档.txt |
请老师帮看下这个下拉如何改进和优化，谢谢
[此贴子已经被作者于2020/6/23 12:40:50编辑过]
-- 发布时间：2020/6/23 13:58:00
--
Dim cmd As new SQLCommand
cmd.ConnectionName = "user"
Dim js As String = e.Cookies("userjs")
If js.Contains("区业务主管")
cmd.CommandText = "SE/ECT DISTINCT 学校名称 FROM {师表}"
End If
If js.Contains("教务")
cmd.CommandText = "SE/ECT DISTINCT 学校名称 FROM {师表} where 学校名称= \'" & e.Cookies("userdw") &"\'"
End If
Dim dt As DataTable = cmd.ExecuteReader()
\'Dim xxs As List(of String)=dt.GetValues("学校名称")
With wb.AddInputGroup("form1","ipg1")
With .AddSelect("学校名称","学校:","|" & dt.GetComboListString("学校名称"))
.Attribute = "onchange=""setAjaxOptions(\'学期\',\'getProducts.htm\',\'学校名称\',false)"""
End With
With .AddSelect("学期","学期:","")
.Attribute = "onchange=""setAjaxOptions(\'班级\',\'getProducts.htm\',\'学校名称\',\'学期\',false)"""
End With
.AddSelect("班级","班级:","")
With wb.AddButtonGroup("form1","btg1",False)
Dim bt1 =.Add("btn1", "查看", "submit")
bt1.kind=1
bt1.attribute="style=\'border:1px solid black;border-radius:20px;padding:0px;width:100%\'"
End With
End With
e.WriteString(wb.Build())
e.Handled = True
Case "getProducts.htm"
Dim cmd6 As new SQLCommand
cmd6.ConnectionName = "user"
Dim js As String = e.Cookies("userjs")
cmd6.CommandText = "SELECT 学期,班级 FROM {师表} where 1=2"
Dim dt6 As DataTable = cmd6.ExecuteReader()
Dim vals As String
If e.PostValues.Count = 1 Then
vals = "|" & dt6.SQLGetComboListString("学期","学校名称=\'" & e.PostValues("学校名称") & "\'")
ElseIf e.PostValues.Count = 2 Then
Dim Filter As String = "学期=\'" & e.PostValues("学期") & "\' And 学校名称=\'" & e.PostValues("学校名称") & "\'"
messagebox.show(filter)
vals = "|" & dt6.SQLGetComboListString("班级", Filter)
End If
e.WriteString(vals)\'
-- 发布时间：2020/6/23 14:11:00
--
确定快了很多，"SELECT 学期,班级 FROM {师表} where 1=2"请问这里的1＝2是什么意思？，还有就是点了查看提交后返回来时所选的学期和班级的内容没有了且下拉内容也没有了这个怎么办？
-- 发布时间：2020/6/23 14:34:00
--
就是不要加载任何数据，因为使用的是SQLGetComboListString，直接从数据库取数据的，再加载数据就多余了
-- 发布时间：2020/6/23 17:59:00
--
哦，理解了，谢谢
点了查看提交后返回来时所选的学期和班级的内容没有了且下拉内容也没有了这个怎么办呢？ |
-- 发布时间：2020/6/23 20:00:00
--
表单刷新后都需要重新填写和选择