把函数改成过程

来源：百度知道 编辑：UC知道 时间：2024/06/08 11:23:37
CREATE procedure ShowUnitBill
(@storage_activity_id varchar(30),@date_start datetime,@date_end datetime )
AS
begin

DECLARE @start_number varchar(20)--开始号码
DECLARE @stop_number varchar(20)--结束号码
DECLARE @start_number_used varchar(20)--已使用开始号码
DECLARE @end_number_used varchar(20)--已使用结束号码
DECLARE @acount_used varchar(30)--使用份数
DECLARE @acount_return varchar(30)--退费份数
DECLARE @acount_repeal varchar(30)--作废分数
DECLARE @all_money varchar(30)--总计金额
DECLARE @return_all_money varchar(30)--退费金额
DECLARE @start_number_using varchar(20)--可用开始号码
DECLARE @end_number_using varchar(20)--可用开始号码
DECLARE @acount_using varchar(30)--可用份数
DECLARE @return_value varchar(1000)--返回值

--加载参数
SELECT @start_number=start_number,
@stop_number=stop_number
from storage_activity_record
where storage_act

Option Explicit

Private Sub ListItemMove(nFrom As ListBox, nTo As ListBox)
Dim i As Integer
Dim a As Long
a = nFrom.ListCount
Do While i <> a
If nFrom.Selected(i) Then
nTo.AddItem nFrom.List(i)
nFrom.RemoveItem i
a = a - 1
i = i - 1
End If
nFrom.Refresh
i = i + 1
Loop
End Sub

Private Sub Command1_Click()
ListItemMove List1, List2
End Sub

Private Sub Command2_Click()
ListItemMove List2, List1
End Sub

Private Sub Form_Load()