httprequest:
Case "getCodes.htm"
Functions.Execute("getCodes",e)
getcodes内部函数：
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim dr As DataRow = DataTables("药品").Find("药品类别='" & e.Values("药品类别") & "' and 药品名称='" & e.Values("药品名称") & "' and 生产厂家='" & e.values("生产厂家") & "' and 规格='" & e.values("规格") & "'")
If dr IsNot Nothing Then
e.WriteString(dr("药品代码")& "|" & dr("价格"))
End If
新增订单函数相关代码：
With .AddSelect("规格","规格","")
.Attribute = "" '调用js函数
End With
.AddInput("药品代码","药品代码","text")
.AddInput("价格","价格","number").Readonly = True
With .AddInput("数量","数量","number")
.Step = "1"
.Attribute = ""
End With
.AddInput("金额","金额","number")
wb.AppendHTML("<script src="./lib/ajaxform.js"></script>") '引入脚本文件
ajaxform.js:
function setCodes(){
var result= submitAjaxFileds('getCodes.htm','','药品类别','药品名称','生产厂家','规格',false);
if(result){
var vals=result.split("|");
if(vals.length==2){
document.getElementById("药品代码").value=vals[0];
document.getElementById("价格").value=vals[1];
}
}
}
加好友 
发短信
Post By：2019/8/29 22:30:00 [只看该作者]
