With .AddSelect("药品类别","药品类别","|" & DataTables("药品").SQLGetComboListString("药品类别"))
.Attribute = """
End With
With .AddSelect("药品名称","药品名称","")
.Attribute = """
End With
Dim dr As DataRow = DataTables("药品").SQLfind("药品名称 = '" & e.PostValues("药品名称") & "'")
If dr IsNot Nothing Then
With .AddInput("生产厂家","生产厂家","text")
.Value = dr("生产厂家")
.readonly = True
End With
Else
With .AddSelect("生产厂家","生产厂家","")
.Attribute = """
End With
End If
Dim dr1 As DataRow = DataTables("药品").SQLfind("生产厂家 = '" & e.PostValues("生产厂家") & "'")
If dr1 IsNot Nothing Then
With .AddInput("规格","规格","text")
.Value = dr1("规格")
.readonly = True
End With
Else
With .AddSelect("规格","规格","")
.Attribute = "" '调用js函数
End With
End If
.AddInput("药品代码","药品代码","text")
.AddInput("价格","价格","number").Readonly = True
With .AddInput("数量","数量","number")
.Step = "1"
.Attribute = ""
End With
.AddInput("金额","金额","number")
加好友 
发短信
Post By：2019/10/15 8:16:00 [只看该作者]
