调用vb的RecordSet的sort方法出错

来源:百度知道 编辑:UC知道 时间:2024/05/29 09:59:44
出错信息:"キーの长さが不明、または大きすぎる列では、Relate、Compute By、または Sort 操作を行えません。"

可能的意思:sort key的长度不明,或者是列太大

Public Sub SortData()
On Error GoTo ErrH

' 初期化
hasError = False
msgString = ""

Dim i As Integer

For i = 0 To UBound(sortKey)
If i = 0 Then
sortKeyStr = sortKey(i).sortKey & " " & sortKey(i).sortOrder
Else
sortKeyStr = sortKeyStr & "," & sortKey(i).sortKey & " " & sortKey(i).sortOrder
End If
Next

buHinData.Sort = sortKeyStr
ExitH:
Exit Sub
ErrH:
hasError = True
msgString = Err.Description
Err.Clear
End Sub

可能的原因:
1.【Dim i As Integer】换成【Dim i As Long】
2.【UBound(sortKey)】的值为【-1】,请检查sortKey的个数是否为0
3.在开头加上【Dim sortKeyStr As Long】

sortKey和sortKey(i)重复?