Reading the .txt file twice ?

[MiziaQ]

The following code loads a sequential .txt file into an msflexgrid once a the second is clicked. The code for adding is correct. However it loads the file twice for some reason ? How do make it to display once ? Any suggestions ?

Private Sub tabAdmin_Click(PreviousTab As Integer)
 
If tabAdmin.Tab = 1 Then
 
  Open App.Path & "\deliveries.txt" For Input As #12
 
  Dim oldRow As Long
  Dim lngRow As Long
  Dim lngCol As Long
 
  Dim strID           As String
  Dim strPickupName   As String
  Dim strPickupAdd    As String
  Dim strPickupTel    As String
  Dim strDelName      As String
  Dim strDelAdd       As String
  Dim strDelTel       As String
  Dim strWoP          As String
  Dim strDelPrice     As String
  Dim strPriority     As String
  Dim strPickupDate   As String
  Dim strDelDate      As String
 
  counter = 1
 
  Do Until EOF(12)
    Input #12, strPickupName, strPickupAdd, strPickupTel, strDelName, strDelAdd, strDelTel, strWoP, strDelPrice, strPickupDate, strDelDate
    MSFlexGrid1.TextMatrix(counter, 0) = ""
    MSFlexGrid1.TextMatrix(counter, 1) = strPickupName
    MSFlexGrid1.TextMatrix(counter, 2) = strPickupAdd
    MSFlexGrid1.TextMatrix(counter, 3) = strPickupTel
    MSFlexGrid1.TextMatrix(counter, 4) = strDelName
    MSFlexGrid1.TextMatrix(counter, 5) = strDelAdd
    MSFlexGrid1.TextMatrix(counter, 6) = strDelTel
    MSFlexGrid1.TextMatrix(counter, 7) = strWoP
    MSFlexGrid1.TextMatrix(counter, 8) = strDelPrice
    MSFlexGrid1.TextMatrix(counter, 9) = strPickupDate
    MSFlexGrid1.TextMatrix(counter, 10) = strDelDate
 
    MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
 
    For lngRow = MSFlexGrid1.Rows - 2 To MSFlexGrid1.Row Step -1
      For lngCol = 0 To MSFlexGrid1.Cols - 1
        MSFlexGrid1.TextMatrix(lngRow + 1, lngCol) =  MSFlexGrid1.TextMatrix(lngRow, lngCol)
        If lngRow = MSFlexGrid1.Row Then
          MSFlexGrid1.TextMatrix(lngRow, lngCol) = "" 'Make the current row empty
        End If
     Next
    Next
  Loop
  Close #12
End If
 
End Sub

[Killer42]

I haven't been through this code in great detail yet, but I can verify that it is definitely not reading the file twice, unless you are calling it twice.

What you should do is...

• Check that the contents of the file are actually what you expect. Perhaps the data is recorded twice in the file.
• Use the debugging tools built into VB to trace through the execution of the code to ensure you know exactly what it does.

By the way, what's the purpose of the nested FOR loops?