I am trying to load the column headings on a flex grid as soon as the form is loaded and I am getting the error message "Runtime-Error '360' Object already loaded". Here is the code I am using, the first reference to grdDetail is where the error is occuring. The order of statements does not seem to affect the error.
Private Sub Form_Load()
Call modCenterIt.CenterForm(Me)
PosMenu = MenuPos
TKid = SecurityBadge
Call BuildList
If FatalError > 0 Then
Unload Me
Exit Sub
End If
RecordLoaded = False
Call LoadGridHeadings
frmAticts.mnuUtilitiesSystem(PosMenu).Checked = True
End Sub
Private Sub LoadGridHeadings()
'populate main grid columns
s$ = "<Num" & Space(2)
s$ = s$ & "|<Your Settings" & Space(175)
grdDetail.FormatString = s$
grdDetail.Enabled = True
grdDetail.FixedCols = 1
grdInfo.cols = 1
s$ = "<Explanation of Detail" & Space(175)
grdInfo.FormatString = s$
grdInfo.Enabled = True
lstInfo.Clear
lstInfo.AddItem "0"
End Sub
Private Sub Form_Load()
Call modCenterIt.CenterForm(Me)
PosMenu = MenuPos
TKid = SecurityBadge
Call BuildList
If FatalError > 0 Then
Unload Me
Exit Sub
End If
RecordLoaded = False
Call LoadGridHeadings
frmAticts.mnuUtilitiesSystem(PosMenu).Checked = True
End Sub
Private Sub LoadGridHeadings()
'populate main grid columns
s$ = "<Num" & Space(2)
s$ = s$ & "|<Your Settings" & Space(175)
grdDetail.FormatString = s$
grdDetail.Enabled = True
grdDetail.FixedCols = 1
grdInfo.cols = 1
s$ = "<Explanation of Detail" & Space(175)
grdInfo.FormatString = s$
grdInfo.Enabled = True
lstInfo.Clear
lstInfo.AddItem "0"
End Sub