|
以下是引用片段：
本系统查询代码如下：
Dim arrName()
arrName = Array("药品代码", "药品名称", "类别名称", "计量单位", "药品单价", "数量", "金额", "所属库别")
Dim arrColwidth()
arrColwidth = Array(2000, 2500, 1500, 1500, 1500, 1500, 1500, 1500)
ddd.Cols = 8
ddd.Rows = 2
Dim i As Long
For i = 0 To ddd.Cols - 1
ddd.ColWidth(i) = arrColwidth(i)
ddd.TextMatrix(0, i) = arrName(i)
ddd.TextMatrix(1, i) = ""
Next
ddd.Rows = 27 //设置表格样式和标题
Call UpdateDDD(ddd, ExecSql("select * from 库存信息视图 where 数量 >=" & Val(Me.Text2.Text) & " and " _
& " 所属库别 like '" & Me.Combo1.Text & "%' and 类别名称 like '" & Me.DataCombo1.Text & "%' Order By " & Me.Combo2.Text & "")) //根据药品数量或所属库别和药品类别两个下拉菜单来查询药品信息
|