TimoSoft-Software.de

Code: Select all

cacheEntry.ID= 'new draw no. for ID'
cacheEntry.Slo = 'new date for Slo'
cacheEntry.Dra = 'new draw for Dra'

Code: Select all

Run-time error '-2147467259 (80004005)':
Automation error

Code: Select all

Private Sub lvwDraws_ColumnClick(ByVal column As ExLVwLibUCtl.IListViewColumn, ByVal button As Integer, ByVal shift As Integer, ByVal x As Single, ByVal y As Single, ByVal hitTestDetails As ExLVwLibUCtl.HeaderHitTestConstants)

lvwDraws.SortOrder = IIf((lvwDraws.SortOrder = soAscending), soDescending, soAscending)

Select Case column.Index
Case 0
lvwDraws.SortItems sobCustom
Case Is > 0
lvwDraws.SortItems sobText, , , , , column.Index
End Select

End Sub

Code: Select all

Private Sub lvwDraws_CompareItems(ByVal FirstItem As ExLVwLibUCtl.IListViewItem, ByVal secondItem As ExLVwLibUCtl.IListViewItem, result As ExLVwLibUCtl.CompareResultConstants)
Dim lFirstNumber As Long
Dim lSecondNumber As Long

  lFirstNumber = ExtractIntFromText(FirstItem.Text)
  lSecondNumber = ExtractIntFromText(secondItem.Text)
  
  If lFirstNumber < lSecondNumber Then
    result = crFirstSecond
  ElseIf lFirstNumber > lSecondNumber Then
    result = crSecondFirst
  Else
    result = crEqual
  End If

End Sub

Code: Select all

Private Function ExtractIntFromText(ByVal s As String) As Long
  Dim i As Long
  Dim p As Long
  Dim ret As Long

  p = -1
  For i = Len(s) To 1 Step -1
    If IsNumeric(Mid$(s, i, 1)) Then
      p = i
    Else
      Exit For
    End If
  Next i
  If p >= 0 Then
    ret = CLng(Mid$(s, p))
  Else
    ret = -1
  End If

  ExtractIntFromText = ret
End Function