|
以下是引用片段：
本系统统计功能代码如下：
Private Sub btn添加_Click()
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 & "")) //以不同的查询模式更新显示列表
Me.Text3.Text = 0
Me.Text4.Text = 0
Me.Text5.Text = 0
For i = 1 To ddd.Rows - 1
If ddd.TextMatrix(i, 0) <> "" Then
Me.Text3.Text = Val(Me.Text3.Text) + 1
End If
If ddd.TextMatrix(i, 5) <> "" Then
Me.Text4.Text = Val(Me.Text4.Text) + Val(ddd.TextMatrix(i, 5))
End If
If ddd.TextMatrix(i, 6) <> "" Then
Me.Text5.Text = Val(Me.Text5.Text) + Val(ddd.TextMatrix(i, 6))
End If
Next
End Sub //计算记录数，数量和金额，进行统计
|