Loading MSFlexGrid in Form_Load()

[MiziaQ]

Hey. I have a problem. I am entering data into various textboxes and writing it to a file. I then reading that data in a MSFlexGrid table. I have no problem with that. The only problem is that when the application is closed, the current state of the table is not saved. How can I do that ?

Here's my code, all under the AddDelivery button:

Private Sub cmdAddDelivery_Click()

Open App.Path & "\deliveries.txt" For Append As #11
Write #11, txtPName.Text, txtPAddress1.Text & ", " & txtPAddress2.Text & ", " & cboPTown.Text, cboPPrefix.Text & " " & txtPTelephone.Text & ", " & cboPMPrefix.Text & " " & txtPMobile.Text, txtDName.Text, txtDAddress1.Text & ", " & txtDAddress2.Text & ", " & cboDTown.Text, cboDPrefix.Text & " " & txtDTelephone.Text & ", " & cboDMPrefix.Text & " " & txtDMobile.Text, txtWeightOfPackage.Text, txtDeliveryPrice.Text, txtPickupDate.Text, txtDeliveryDate.Text

MsgBox "New Delivery has been Added !", vbInformation, "Success!!!"

txtPName.Text = ""
txtPAddress1.Text = ""
txtPAddress2.Text = ""
cboPTown.Text = ""
cboPPrefix.Text = "021"
txtPTelephone.Text = ""
cboPMPrefix.Text = "085"
txtPMobile.Text = ""

txtDName.Text = ""
txtDAddress1.Text = ""
txtDAddress2.Text = ""
cboDTown.Text = ""
cboDPrefix.Text = "021"
txtDTelephone.Text = ""
cboDMPrefix.Text = "085"
txtDMobile.Text = ""
txtWeightOfPackage.Text = ""
txtDeliveryPrice.Text = ""
txtPickupDate.Text = ""
txtDeliveryDate.Text = ""

txtPName.SetFocus

Close #11

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

Dim counter As Integer

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
counter = counter + 1
Loop

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

Close #12

End Sub

thanks

[jamesd0142]

Under the froms closing event
[write code]
or
[call function]
to save

[mafaisal]

Hello

Try This

In VB6

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Call cmdAddDelivery_Click()
End Sub
 
or
 
Private Sub Form_Unload(Cancel As Integer)
  Call cmdAddDelivery_Click()
End Sub
 
 

in .Net Call function Form Close Event

Faisal

[MiziaQ]

I did that and I get an error 381, subscript out of range,
it's highlighting MSFlexGrid1.TextMatrix(counter, 0) = ""

[mafaisal]

Hello

Here I think U donot Increment ur Rows of flexgrid,
So the error subscript out of range is come
Check the code using break pont and also hw many rows set ur grid and its no is increment in loop

Faisal

I did that and I get an error 381, subscript out of range,
it's highlighting MSFlexGrid1.TextMatrix(counter, 0) = ""