wb.AddPageTitle("","ph1","工段考核","新能凤凰(滕州)有限公司")
Select Case e.Path
Case "gdkh.htm" '工段考核
wb.AddForm("","form1","receive.htm") '"receive.htm")
Dim st2,st3,st4,st5 As String '列表字串
st2=dt.SQLGetComboListString("set2","set1='装置'") '装置名称
If st2> "" Then
st2="|" & st2 ' 增加一个空选项,为的是只有一个选项时,可以改变当前值,便于二级选项选择
Else
With wb.AddMsgPage("","msg_gdkh","工段考核提示:","没找到装置划分标准,请与管理员联系!")
.AddButton("btn2","返回首页","default.htm").Kind=1
End With
e.WriteString(wb.Build)
return “”
End If
Dim kh As String= dt.SQLGetComboListString("set2","set1='工段长考核标准'") '考核维度
If kh>"" Then
kh="|" & kh
Else
With wb.AddMsgPage("","msg_gdkh","工段考核提示:","没找到考核标准,请与管理员联系!")
.AddButton("btn2","返回首页","default.htm").Kind=1
End With
e.WriteString(wb.Build)
return “” End If
其它地方看不出什么问题。httprequest代码看看
[此贴子已经被作者于2018/8/22 20:03:58编辑过]
加好友 
发短信
Post By：2018/8/22 20:04:00 [显示全部帖子]
