Variant 转BOJECT的问题

[lxq19851204]

VB6.0中
Dim mvaraProducts as Variant

Dim rsSearch    As ADODB.Recordset
rsSearch = oCmn.ExecRS(pSql, Con)
        If rsSearch.Rows.Count > 0 Then
            rsSearch.MoveLast
            mRecordCount = rsSearch.RecordCount
            rsSearch.MoveFirst
            mvaraProducts = rsSearch.GetRows(mRecordCount)
        End if

在VB.NET中
Dim mvaraProducts as object

Dim rsSearch  As Datatable
rsSearch = oCmn.ExecRS(pSql, Con)
        If rsSearch.Rows.Count > 0 Then
            mRecordCount = rsSearch.Rows.Count
            mvaraProducts = 这一段怎么表示？
        End if

[lxq19851204]

[Quote=引用 1 楼 ccccffff 的回复:]

Dim mvaraProducts() as DataRow
这样才对把？
你要取的是rows的数组
mvaraProducts = rsSearch.GetRows(mRecordCount)
[/Quote]
rsSearch是DATATABLE，没有GETROWS属性。

[ccccffff]

Dim mvaraProducts as DataRow

mvaraProducts = rsSearch.rows(mRecordCount)

[沐NeMo]

既然rsSearch 是一个datatable了。
你就不必用：
If rsSearch.Rows.Count > 0 Then
mRecordCount = rsSearch.Rows.Count
mvaraProducts = 这一段怎么表示？
End if

直接用：
rsSearch.rows.item(i).item(j) 取值就可以了。
试一试有什么问题。

[ccccffff]

Dim mvaraProducts() as DataRow
这样才对把？
你要取的是rows的数组
mvaraProducts = rsSearch.GetRows(mRecordCount)