存储过程不能返回表?

[GSXiaoXiao]

Dim conn = New SqlConnection("")
conn.Open()
Dim comm As SqlCommand = New SqlCommand("MAS_AmountStat", conn)
comm.CommandType = CommandType.StoredProcedure
dim objParam as SqlParameter
objParam = comm.Parameters.Add("@FromDate",SqlDBType.Int)
objParam.Direction = ParameterDirection.Input
objParam.Value = Trim(tbFromDate.Text)
objParam = comm.Parameters.Add("@ToDate",SqlDBType.Int)
objParam.Direction = ParameterDirection.Input
objParam.Value = Trim(tbToDate.Text)
objParam = comm.Parameters.Add("@ConsClass",SqlDBType.Varchar,2)
objParam.Direction = ParameterDirection.Input
objParam.Value = rbl.SelectedItem.Value
Dim da As SqlDataAdapter = New SqlDataAdapter(comm)
dim ds as New DataSet
da.Fill(ds,"WPInStore")
dgCKStat2.DataBind()
ds.dispose()
da.dispose()
comm.dispose()
conn.dispose()

[Dleno]

能够返回表的！
dim ds as New DataSet
da.Fill(ds,"WPInStore")
====加一句====
dgCKStat2.DataSource=ds
===========
dgCKStat2.DataBind()

如果还不能，你把
ds.dispose()
da.dispose()
comm.dispose()
conn.dispose()
去掉再试试！

[CnEve]

objParam.Direction = ParameterDirection.Input
这句需要吗？
VB真的看不习惯...

comm.Parameters.Add("@FromDate",SqlDBType.Int).Value = Trim(tbFromDate.Text)
comm.Parameters.Add("@ToDate",SqlDBType.Int).Value = Trim(tbToDate.Text)
comm.Parameters.Add("@ConsClass",SqlDBType.Varchar,2).Value = rbl.SelectedItem.Value
Dim da As SqlDataAdapter = New SqlDataAdapter(comm)
dim ds as New DataSet
da.Fill(ds,"WPInStore")

[CnEve]

dgCKStat2.DataSource=ds.Tables[0].DefaultView
dgCKStat2.DataBind()

[GSXiaoXiao]

可以了,爽!给分!
增加:dgCKStat2.DataSource=ds

[GSXiaoXiao]

dgCKStat2.DataSource=ds.Tables[0].DefaultView

dgCKStat2.DataSource=ds

我怎么把这个忘了呢?晕啊,还看这么久.休息一下!