arrResult = Application.WorksheetFunction.Transpose(Rst.GetRows) 类型不匹配

请看下为什么“arrResult = Application.WorksheetFunction.Transpose(Rst.GetRows)”出现类型不匹配错误提示
Sub 按钮1_单击()
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim arrResult

Dim i As Integer

Stpath = "***.accdb"
Cnn.Provider = "Microsoft.ACE.OLEDB.12.0;"
Cnn.Open "Data Source =" & Stpath & ";Jet OLEDB:Database Password= **** "

SQL = "select * from data "

Rst.Open SQL, Cnn, adOpenKeyset, adLockPessimistic

arrResult = Application.WorksheetFunction.Transpose(Rst.GetRows)
For i = 1 To UBound(arrResult)
Debug.Print arrResult(i, 1)
Next i

Set Rst = Nothing
Set Cnn = Nothing

End Sub

Swift 的反射机制是基于一个叫 Mirror 的 struct 来实现的。你为具体的 subject 创建一个 Mirror,然后就可以通过它查询这个对象 subject 。
在我们创建 Mirror 之前,我们先创建一个可以让我们当做对象来使用的简单数据结构。
温馨提示:答案为网友推荐,仅供参考

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网