Case "huiyibianhao.htm"
Dim vals As String
Dim cmd As New S Q LC om mand
cmd.Conn ecti on Name = "智慧党建" '记得设置数据源名称
cmd.Comm andText = "Sele ct * From {会议列表} where 1=2"
Dim dt As DataTable = cmd.Ex ecu teReader
If e.PostValues.Count = 1 Then
vals = "|" & dt.sql Get C om boListString("所属支部","单位名称='" & e.PostValues("单位名称") & "'")
ElseIf e.PostValues.Count = 2 Then
Dim Filter As String = "单位名称='" & e.PostValues("单位名称") & "' And 所属支部='" & e.PostValues("所属支部") & "'"
vals = "|" & dt.sql Get Co m boListString("会议编号", Filter)
End If
e.WriteString(vals)
End Select
-------------
Case "upload.htm"
If e.PostValues.Count = 0 Then
Dim cmd As New S Q LC om mand
cmd.Conn ecti on Name = "智慧党建" '记得设置数据源名称
cmd.Comm andText = "Sele ct * From {会议列表} where 1=2"
Dim dt As DataTable = cmd.Ex ecu teReader
wb.AddPageTitle("","ph1","会议记录","瓮安县检察院【三会一课系统】")
wb.AddForm("","form1","upload.htm")
With wb.AddInputGroup("form1","ipg1","增加图片")
'.AddSelect("单位名称","单位名称","瓮安|") '前一个"姓名"是ID,后一个"姓名"是标题
With .AddSelect("单位名称","单位名称","|" & dt.sql Get Com boListString("单位名称"))
.Attr ib ute = "onch ange=""set A jaxO ptions('所属支部','huiyibianhao.htm','单位名称',false)"""
End With
With .AddSelect("所属支部","所属支部","")
.Att rib ute = "onc ha nge=""set Aj ax Options('会议编号','huiyibianhao.htm','单位名称','所属支部',false)"""
End With
加好友 
发短信
Post By：2020/5/25 12:11:00 [显示全部帖子]
