下面这段代码，在跳转时新开一个网页 显示exist ，为什么不是弹出对话框？ 也不知道哪里有问题
js的附件如下：
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.Title="盘点"
wb.InsertHTML("<div data-theme='g' data-role='page' data-position='fixed'>") '页内容样式 不能加</div> 加在好几个地方都不能正常显示页头页脚
'wb.InsertHTML("<h3 align='center' style='margin-top:5px'>东软服务满意度调查</h3>") '插入表头
If e.PostValues.Count = 0 Then '生成增加盘点网页
' msgbox("进了if")
' wb.AddForm("","form1","SatisSurvey.htm").Attribute="" '不能改成onclick 不然就会点一个选择弹一次提示
wb.AddForm("","form1","pdScan.htm").Attribute="" 'pdscan.htm也是接收结果的页面,也写在这个函数里面 '不能改成onclick 不然就会点一个选择弹一次提示
' wb.InsertHTML("form1","<fieldset data-role='controlgroup' data-Type='horizontal'>") '起效果了
With wb.AddInputGroup("form1","ipg1","设备资料")
.AddInput("AssetNumber","资产编号","Text") '前一个"AssetNumber"是ID,后一个"资产编号"是标题
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit") '.Attribute="" '.Attribute =""
' .Add("btn1", "确定", "submit") '.Attribute=""
End With
'增加提交成功按钮
With wb.AddDialog("","dlg3", "","") '增加订单成功提示框,这里一定要有,不然javascript就调不出来 dlg4要与javascript中对应,后面两个"" ""内容 实际是javascript中决定的 weui框架弹出的
' .AddButton("btnYes","是").Attribute = ""
.AddButton("btnNo","确定","./CheckPd.htm").Kind = 1
End With
'盘点失败时被javascript调用的提示框
With wb.AddDialog("","dlg4", "","") '弹出增加盘点失败提示框(表示在盘点表里已存在该记录,即不需要再盘点) ,这里一定要有,不然javascript就调不出来 dlg4要与javascript中对应,后面两个"" ""内容 实际是javascript中决定的 weui框架弹出的
.AddButton("btnOK","确定") '.Attribute = ""
End With
wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div p1 ,用于显示服务器返回的数据
'wb.AppendHTML("<script src='../ajax/libs/pdScan.js'></script>") '引入脚本文件 '如果什么都和这个函数一样,仍然弹不出来框,说明微信调用 htm网页的路径不对. 看看httprequest 前面有没有xdf/service文件夹.这个决定了肶不能调用到javascript
wb.AppendHTML("<script src='./ajax/libs/pdScan.js'></script>") '引入脚本文件
'msgbox(ProjectPath)
e.WriteString(wb.Build)
'wb.AppendHTML("<div data-theme='g' data-role='page' data-position='fixed'>") '页内容
'wb.InsertHTML("</div>")
' e.WriteString("ok")
Else
Dim str1 As String = e.PostValues("AssetNumber")
' msgbox(e.PostValues("AssetNumber"))
'Dim str4 As String = "http://10.26.254.23:8080/Identity.asmx/SalaryQuery?xml=<XML><acct_year>" & str1 & "</acct_year><acct_month>" & str2 & "</acct_month><emp_code>" & str3 & "</emp_code></XML>"
Dim dr As DataRow= DataTables("盘点记录").SQLFind("资产编号 = '" & e.PostValues("AssetNumber") & "'")
If dr IsNot Nothing Then '如果找到该记录的话
e.WriteString("exist")
Return "exist" 'return后面的值无所谓,只是后面必须要带个参数
End If
' e.WriteString("ok")
End If
[此贴子已经被作者于2018/12/31 21:01:13编辑过]
加好友 
发短信
Post By：2018/12/29 18:12:00 [只看该作者]
