• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1502
  • Last Modified:

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
0
thenrich
Asked:
thenrich
1 Solution
 
appariCommented:
if possible post the code from form_load event and the other event where you are checking the values.

RAO
0
 
thenrichAuthor Commented:
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)
0
 
thenrichAuthor Commented:
have not got an answer
0
 
DanRollinsCommented:
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 http://www.experts-exchange.com/jsp/cmtyHelpDesk.jsp#8 for instruction on deleting questions.

DanRollins -- EE database cleanup volunteer
0
 
MoondancerCommented:
200 points refunded, item closed.  Needed response not received.
Moondancer - EE Moderator
0

Featured Post

Never miss a deadline with monday.com

The revolutionary project management tool is here!   Plan visually with a single glance and make sure your projects get done.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now