Variant 转BOJECT的有关问题

Variant 转BOJECT的问题

VB.NET code

VB6.0中Dim mvaraProducts as VariantDim rsSearch    As ADODB.RecordsetrsSearch = 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 objectDim rsSearch  As DatatablersSearch = oCmn.ExecRS(pSql, Con)        If rsSearch.Rows.Count > 0 Then            mRecordCount = rsSearch.Rows.Count            mvaraProducts = 这一段怎么表示？        End if

[解决办法]
Dim mvaraProducts as DataRow

 mvaraProducts = rsSearch.rows(mRecordCount)
[解决办法]
既然rsSearch 是一个datatable了。
你就不必用：
If rsSearch.Rows.Count > 0 Then
mRecordCount = rsSearch.Rows.Count
mvaraProducts = 这一段怎么表示？
End if

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

查看更多 下一篇