With .AddSelect("药品类别","药品类别","|" & DataTables("药品库存").GetComboListString("药品类别"))
.Attribute = """
End With
With .AddSelect("药品名称","药品名称","")
.Attribute = """
End With
With .AddSelect("生产厂家","生产厂家","")
.Attribute = "" '调用js函数
End With
.AddInput("规格","规格","")
.AddInput("规格数量","规格数量","")
.AddInput("出库数量","出库数量","").Attribute = ""
.AddInput("出库","出库","number")
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
getCodes1:
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
function setCodes1(){
var result= submitAjaxFileds('getCodes1.htm','','健康室','药品类别','药品名称','生产厂家',false);
if(result){
var vals=result.split("|");
if(vals.length==2){
document.getElementById("规格").value=vals[0];
document.getElementById("规格数量").value=vals[1];
}
}
}