QUOTE(jaakko @ 6 Oct, 2008 - 12:43 PM)
CODE
Private Sub Command1_Click()
Dim alarm(15, 5) As Variant
For m = 1 To 15
alarm(m, 1) = "Put the string here "
For n = 2 To 5 'put here the other information: time (2), code(3) etc
alarm(m, n) = 0
Next
Next
' search of a certain string
alarm(5, 1) = "Try to find this"
cSearch = "Try to find this"
lfound = False
nFound = 0
For m = 1 To 15
If cSearch = alarm(m, 1) Then
lfound = True
nFound = m
End If
Next
If lfound Then Text2.Text = Str(nFound) + " " + alarm(nFound, 1)
End Sub
** Edit **
Private Sub cmdShow_Click()
Dim alarm(19, 7) As Variant
For m = 1 To 19
alarm(m, 1) = "Major"
For n = 1 To 7 'put here the other information: time (2), code(3) etc
grdSales.Row = m
grdSales.Col = n
alarm(m, n) = grdSales.Text
Next
Next
' search of a certain string
alarm(19, 0) = "Major"
cSearch = "Major"
lfound = False
nFound = 0
For m = 1 To 19
If cSearch = alarm(m, 1) Then
lfound = True
nFound = m
End If
Next
If lfound Then Text2.Text = Str(nFound) + " " + alarm(nFound, 1)
End Sub
I AM NOT GETTING THE DISPLAY IN THE NEW GRID.I WANT TO DISPLAY ALL THE MAJOR ALARMS IN ONE COLUMN AND IN CONSECUTIVE ROWS i.e. ONE AFTER ANOTHER WITH THE REMAINING COLUMNS DISPLAYING THE ACTUAL DATA FROM THE ORIGINAL GRID.TELL ME THE MODOFICATION IN THIS CODE.
rather than using + sign...
| 