Link to home
Start Free TrialLog in
Avatar of thenrich
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
Avatar of appari
appari
Flag of India image

if possible post the code from form_load event and the other event where you are checking the values.

RAO
Avatar of thenrich
thenrich

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(xlCounter - 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(xlCounter - 3, 3)) - InStr(xlSheet.Cells(xlCounter - 3, 3), "-")
           tempStr = Trim(Right(xlSheet.Cells(xlCounter - 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(xlCounter - 2, 2), "P")
                 tempStr = Trim(Left(xlSheet.Cells(xlCounter - 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)
have not got an answer
Avatar of DanRollins
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
ASKER CERTIFIED SOLUTION
Avatar of Moondancer
Moondancer

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial