thenrich
asked on
XArrayDB of Apex True DB Grid
I seems to be having problems. On the load event of a form I am filling the XArrayDB of the grid. I check in that same load event and after a rebind and update stuff is where it's suppose to be and I have the correct row count and everything seems hunky dory. But when I access the array from a differerant event I get the correct row count(which is good) but when I check any of the array values I get an 'Object Required' error.
Any ideas??
signed it's been a long day
Any ideas??
signed it's been a long day
ASKER
Dim rowCounter, colCounter, xlCounter As Long
Dim tempStr As String
rowCounter = 0
xlCounter = 18
Do Until xlSheet.Cells(xlCounter, 1) = ""
For colCounter = 0 To 17
If colCounter = 0 Then
If InStr(xlSheet.Cells(xlCoun ter - 1, 3), "non-Extruded") <> 0 Then
xXarray(rowCounter, colCounter) = "No"
Else
xXarray(rowCounter, colCounter) = "Yes"
End If
ElseIf colCounter = 1 Then
xXarray(rowCounter, colCounter) = xlSheet.Cells(xlCounter - 1, 2)
ElseIf colCounter = 2 Then
temp = Len(xlSheet.Cells(xlCounte r - 3, 3)) - InStr(xlSheet.Cells(xlCoun ter - 3, 3), "-")
tempStr = Trim(Right(xlSheet.Cells(x lCounter - 3, 3), temp))
temp = Len(tempStr) - InStrRev(tempStr, "-")
tempStr = Trim(Right(tempStr, temp))
xXarray(rowCounter, colCounter) = tempStr
ElseIf colCounter > 7 Then
If colCounter = 15 Then
If Not xlSheet.Cells(xlCounter - 2, 2) = "" Then
xXarray(rowCounter, colCounter) = xlSheet.Cells(xlCounter - 2, 2)
temp = InStr(xlSheet.Cells(xlCoun ter - 2, 2), "P")
tempStr = Trim(Left(xlSheet.Cells(xl Counter - 2, 2), temp - 1))
xXarray(rowCounter, colCounter + 1) = tempStr
End If
colCounter = colCounter + 1
Else
xXarray(rowCounter, colCounter) = xlSheet.Cells(xlCounter - 2, 2)
End If
Else
xXarray(rowCounter, colCounter) = xlSheet.Cells(xlCounter - 2, 2)
End If
xlCounter = xlCounter + 1
Next
For xlCounter = xlCounter To xlCounter + 37
If Not xlSheet.Cells(xlCounter, 1) = "" Then
xXarray.AppendRows (1)
rowCounter = rowCounter + 1
Exit For
End If
Next
Loop
temp = xXarray(0, 8)
temp = xXarray(1, 8)
Dim tempStr As String
rowCounter = 0
xlCounter = 18
Do Until xlSheet.Cells(xlCounter, 1) = ""
For colCounter = 0 To 17
If colCounter = 0 Then
If InStr(xlSheet.Cells(xlCoun
xXarray(rowCounter, colCounter) = "No"
Else
xXarray(rowCounter, colCounter) = "Yes"
End If
ElseIf colCounter = 1 Then
xXarray(rowCounter, colCounter) = xlSheet.Cells(xlCounter - 1, 2)
ElseIf colCounter = 2 Then
temp = Len(xlSheet.Cells(xlCounte
tempStr = Trim(Right(xlSheet.Cells(x
temp = Len(tempStr) - InStrRev(tempStr, "-")
tempStr = Trim(Right(tempStr, temp))
xXarray(rowCounter, colCounter) = tempStr
ElseIf colCounter > 7 Then
If colCounter = 15 Then
If Not xlSheet.Cells(xlCounter - 2, 2) = "" Then
xXarray(rowCounter, colCounter) = xlSheet.Cells(xlCounter - 2, 2)
temp = InStr(xlSheet.Cells(xlCoun
tempStr = Trim(Left(xlSheet.Cells(xl
xXarray(rowCounter, colCounter + 1) = tempStr
End If
colCounter = colCounter + 1
Else
xXarray(rowCounter, colCounter) = xlSheet.Cells(xlCounter - 2, 2)
End If
Else
xXarray(rowCounter, colCounter) = xlSheet.Cells(xlCounter - 2, 2)
End If
xlCounter = xlCounter + 1
Next
For xlCounter = xlCounter To xlCounter + 37
If Not xlSheet.Cells(xlCounter, 1) = "" Then
xXarray.AppendRows (1)
rowCounter = rowCounter + 1
Exit For
End If
Next
Loop
temp = xXarray(0, 8)
temp = xXarray(1, 8)
ASKER
have not got an answer
Hi thenrich,
You've requested to delete this question, but its status has remained as 'Pending Delete' because one or more comments have been added. Normally, the only way to fully delete such a Question is to post a message to Community Support and ask for assistance.
EE is making a one-time database sweep to purge the Pending Delete Questions automatically. During this sweep:
thenrich -- To allow the deletion to proceed: Do nothing.
EXPERTS -- Please DON'T POST a comment except to contest this deletion.
In the future, please refer to https://www.experts-exchange.com/jsp/cmtyHelpDesk.jsp#8 for instruction on deleting questions.
DanRollins -- EE database cleanup volunteer
You've requested to delete this question, but its status has remained as 'Pending Delete' because one or more comments have been added. Normally, the only way to fully delete such a Question is to post a message to Community Support and ask for assistance.
EE is making a one-time database sweep to purge the Pending Delete Questions automatically. During this sweep:
thenrich -- To allow the deletion to proceed: Do nothing.
EXPERTS -- Please DON'T POST a comment except to contest this deletion.
In the future, please refer to https://www.experts-exchange.com/jsp/cmtyHelpDesk.jsp#8 for instruction on deleting questions.
DanRollins -- EE database cleanup volunteer
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
RAO