Dim e As RequestEventArgs = args(0)
Dim wb As WeUI = Args(1)
Dim dm,mc As String
For Each key As String In e.Values.Keys
Select key
Case "name"
mc=e.Values(key)
Case "code"
dm= e.Values(key)
End Select
Next
wb.AddPageTitle("","pageheader","产品信息","")
wb.AddForm("","form1","replay.htm")
Dim dr As DataRow = DataTables("产品表").Find("代码 = '" & dm & "'")
With wb.AddInputGroup("form1","ipg1","")
With .AddInput("dm","代码","text")
.value = dm
.Readonly=True
End With
With .AddInput("mc","名称","text")
.value = mc
.Readonly=True
End With
Dim yj,jj As Single
If dr("是否协议价") ="是" Then
yj = dr("协议月均价")
jj = dr("协议季均价")
Else
yj = dr("月均价")
jj = dr("季均价")
End If
With .AddInput("yj","月均价","number")
.Step =0.01
.Value = yj
.Required=True
End With
With .AddInput("jj","季均价","number")
.Step =0.01
.Value = jj
.Required=True
End With
.AddSwitch("xyj","是否协议价",iif(dr("是否协议价") ="是",False,True)).Attribute = ""
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "确定", "submit")
.Add("btn2", "返回", "","default.htm")
End With
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
getAvgPrice.htm代码：
Dim dr1 As DataRow = DataTables("产品表").Find("代码 = '" & e.Values("dm") & "'")
If dr1 IsNot Nothing Then
If e.Values("xyj")="on" Then
e.WriteString(dr1("协议月均价") & "|" & dr1("协议季均价"))
Else
e.WriteString(dr1("月均价") & "|" & dr1("季均价"))
End If
Else
e.WriteString("未找到相关数据")
End If
js代码：
function setAvgPrice(){
var result= submitAjaxFileds('getAvgPrice.htm','','dm','xyj',false); //根据是否协议价设置界面均价
if(result){
var vals=result.split("|");
if(vals.length==2){
document.getElementById("yj").value=vals[0];
document.getElementById("jj").value=vals[1];
}
}
}
加好友 
发短信
Post By：2017/9/11 14:21:00 [显示全部帖子]
此主题相关图片如下：微信图片_20170911115636.png