Dim cmd As new SQLCommand
cmd.C
cmd.CommandTimeOut=300
cmd.CommandText = " EXEC UP_REPORT_COMPUTE_STRONG_HXCQ_EVALUTE ?,?,?,?,?,?"
cmd.Parameters.Add("@AS_BILLTYPE","TOP-ONE01-09-044")
cmd.Parameters.Add("@AS_FCODE","%")
cmd.Parameters.Add("@AS_@AS_BEGINDATE","2019-01-01")
cmd.Parameters.Add("@AS_ENDDATE","2019-08-11")
cmd.Parameters.Add("@AI_DAYS",2)
cmd.Parameters.Add("@AI_POS",3)
e.Form.Controls("st_msg").visible=True
Dim dt As DataTable = cmd.ExecuteReader
Dim totalamount As Double=dt.Compute("Sum(FIXAMOUNT)")
Dim count As Integer=dt.compute("count(fcode)")
dt.DeleteFor("quantity<=0")
Tables("表A").stopredraw
For Each dr As DataRow In dt.DataRows
Dim r As Row = Tables("表A").AddNew()
r("fcode")=dr("fcode")
r("fname")=dr("fname")
r("billdate")=dr("billdate")
r("fixamount")=dr("fixamount")
Next
If Tables("表A").Rows.Count>0
Tables("表A").Position=0
End If
Tables("表A").resumeredraw
加好友 
发短信
Post By：2019/8/15 11:06:00 [只看该作者]
