1. Forums
  2. Programming
  3. Visual Basic 6.0
  4. Can't find project libaray Error

Can't find project libaray Error

Submitted by SUSKUMARSUS on
MICROSOFT VISUAL BASIC 6.0 COMPILE ERROR @ module WINDOWS 7 32 BIT / VISUAL BASIC 6.0 can't find project libaray ERROR
  1. Public Sub FillListView(ByRef sListView As ListView, ByRef sRecordSource As Recordset, ByVal sNumOfFields As Byte, ByVal sNumIco As Byte, ByVal with_num As Boolean, ByVal show_first_rec As Boolean, Optional srcHiddenField As String)
  2.     Dim X As Variant
  3.     Dim i As Byte
  4.     On Error Resume Next
  5.     sListView.ListItems.Clear
  6.     If sRecordSource.RecordCount < 1 Then Exit Sub
  7.     sRecordSource.MoveFirst
  8.     Do While Not sRecordSource.EOF
  9.         If with_num = True Then
  10.             Set X = sListView.ListItems.Add(, , sRecordSource.AbsolutePosition, sNumIco, sNumIco)
  11.         Else
  12.             Set X = sListView.ListItems.Add(, , "" & sRecordSource.Fields(0), sNumIco, sNumIco)
  13.         End If
  14.             If srcHiddenField <> "" Then X.Tag = sRecordSource.Fields(srcHiddenField)
  15.             For i = 1 To sNumOfFields - 1
  16.                 If show_first_rec = True Then
  17.                     If with_num = True Then
  18.                         If sRecordSource.Fields(CInt(i) - 1).Type = adDouble Then
  19.                             X.SubItems(i) = FormatRS(sRecordSource.Fields(CInt(i) - 1))
  20.                         Else
  21.                             X.SubItems(i) = "" & FormatRS(sRecordSource.Fields(CInt(i) - 1))
  22.                         End If
  23.                     Else
  24.                         If sRecordSource.Fields(CInt(i)).Type = adDouble Then
  25.                             X.SubItems(i) = FormatRS(sRecordSource.Fields(CInt(i)))
  26.                         Else
  27.                             X.SubItems(i) = "" & FormatRS(sRecordSource.Fields(CInt(i)))
  28.                         End If
  29.                     End If
  30.                 Else
  31.                     X.SubItems(i) = "" & FormatRS(sRecordSource.Fields(CInt(i) + 1))
  32.                 End If
  33.             Next i
  34.         sRecordSource.MoveNext
  35.     Loop
  36.     i = 0
  37.     Set X = Nothing
  38. End Sub
PLEASE HELP ME
  • 11 views