以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  执行存储过程返回结果，是否只能通过SQL生成DAtatable后回填到table？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139541)
--  作者：renyubest
--  发布时间：2019/8/15 11:06:00
--  执行存储过程返回结果，是否只能通过SQL生成DAtatable后回填到table？
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
--  作者：有点蓝
--  发布时间：2019/8/15 11:11:00
--  
直接绑定窗口表即可：Tables("窗口1_table1").DataSource = dt 
--  作者：狐狸爸爸
--  发布时间：2019/8/15 11:27:00
--  
Tables("窗口1_Table1").DataSource = b.BuildDataSource()

参考：

http://www.foxtable.com/webhelp/topics/1909.htm