iOS Question FlexGrid Problem

[tariqyounis]

each line is duplicated, can you please advice what I have to do, I am using iSD_FlexGrid (Version: 0.01)

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    'load the layout to Root
    Root.LoadLayout("pgBasket")
    fgBasket.ColsName=Array As String("الرمز","اسم الصنف","المبلغ","العدد","الخصم","النسبة")
    Log("basket")
    Dim s As Int = lbl_titl3.Width
    Log(s)
    fgBasket.ColsWidth=Array As Int(s*20/100,s*36/100,s*11/100,s*11/100,s*11/100,s*11/100)
    fgBasket.ColsType=Array As Int(fgBasket.TypeString ,fgBasket.TypeString,fgBasket.TypeString,fgBasket.TypeString,fgBasket.TypeString,fgBasket.TypeString)
    fgBasket.ColsAlignment=Array As String("CENTER","CENTER","CENTER","CENTER","CENTER","CENTER")
End Sub

Private Sub B4XPage_Appear
    For i =  fgBasket.RowCount -1 To 0 Step -1
        fgBasket.RemoveRow(i)
    Next
    Main.items(Main.max_item_order,1) = ""

    For i = 1 To 99
        If Main.items(i,1).Length>0 Then
            fgBasket.AddRow(Array As Object(Main.items(i,1),Main.items(i,2),Main.items(i,7),Main.items(i,5),Main.items(i,6),Main.items(i,8)),True)
            fgBasket.SetRowHeight(i-1,60dip)
        End If
    Next
End Sub

 

[Star-Dust]

It appears that you delete the items and reinsert them. Try the clear method:

Private Sub B4XPage_Appear
    fgBasket.ClearRow  ' Try this
    Main.items(Main.max_item_order,1) = ""

    For i = 1 To 99
        If Main.items(i,1).Length>0 Then
            fgBasket.AddRow(Array As Object(Main.items(i,1),Main.items(i,2),Main.items(i,7),Main.items(i,5),Main.items(i,6),Main.items(i,8)),True)
            fgBasket.SetRowHeight(i-1,60dip)
        End If
    Next
End Sub

Update the library with the latest version

 

[tariqyounis]

fgBasket.ClearRow ' Try this

Thank you for your reply, unfortunately the system crashed. I thing I was using my old method RemoveRow(i) becuase of this crash.

 

[Star-Dust]

Thank you for your reply, unfortunately the system crashed. I thing I was using my old method RemoveRow(i) becuase of this crash.

Send me an example that controls

 

[tariqyounis]

I got the error from line 11 and 16 after I applied fgBasket.ClearRow. the error from line 11: <B4IExceptionWrapper: Error Domain=caught_exception Code=0 " *** -[__NSArrayM objectAtIndex:]: index 0 beyond bounds for empty array" UserInfo={NSLocalizedDescription= *** -[__NSArrayM objectAtIndex:]: index 0 beyond bounds for empty array}>
and the error from line 16 is: <B4IExceptionWrapper: Error Domain=caught_exception Code=0 " *** -[__NSArrayM objectAtIndex:]: index 0 beyond bounds for empty array" UserInfo={NSLocalizedDescription= *** -[__NSArrayM objectAtIndex:]: index 0 beyond bounds for empty array}>

Private Sub B4XPage_Appear
'    For i =  fgBasket.RowCount -1 To 0 Step -1
'        fgBasket.RemoveRow(i)
'       
'    Next
    fgBasket.ClearRow  ' Try this
    Main.items(Main.max_item_order,1) = "
    For i = 1 To 99
        If Main.items(i,1).Length>0 Then
            Try
                fgBasket.AddRow(Array As Object(Main.items(i,1),Main.items(i,2),Main.items(i,7),Main.items(i,5),Main.items(i,6),Main.items(i,8)),True)
            Catch
                Log(LastException)
            End Try
            Try
                fgBasket.SetRowHeight(i-1,60dip)
            Catch
                Log(LastException)
            End Try
        End If
    Next
End Sub

 

[Star-Dust]

On line 11 it appears an array Item error. What I understand is the index at position i is empty.
To test this, replace the line like this. Eliminating Item should give you no error but populate the grid. If so, then the error is certainly in Main.Item

fgBasket.AddRow(Array As Object($"Item${I}"$,$"Item${I}A"$,$"Item${I}B"$,$"Item${I}C"$,$"Item${I}D"$,$"Item${I}E"$) ,True)
'If you want to setthe height of the row you can do it with Add2 when you populate the grid
'fgBasket.AddRow2(Array As Object($"Item${I}"$,$"Item${I}A"$,$"Item${I}B"$,$"Item${I}C"$,$"Item${I}D"$,$"Item${I}E"$) ,60dip,True)

I have a doubt, are the number of columns thrown into the grid the same as what you enter?
Enter 6 columns of data and then you should have 6 columns of headers into design.
If after this change it gives you an error, it means that the number of columns set in the design does not match the number of columns in the data

______________________________________________________________________________________________________________
As for line 16, post me the exact error, but that also most likely depends on the fact that line i-1 doesn't exist.
Always check the number of lines with fgBasket.RowCount. The highest row is FlexGrid1.RowCount-1

' Try
'    fgBasket.SetRowHeight(i-1,60dip)
' Catch
'     Log(LastException)
'  End Try
if i-1<fgBasket.RowCount then fgBasket.SetRowHeight(i-1,60dip)

But you don't need to change the height of the row later, you can use Add2 and set the height as you populate the grid

fgBasket.AddRow2(Array As Object(Main.items(i,1),Main.items(i,2),Main.items(i,7),Main.items(i,5),Main.items(i,6),Main.items(i,8)),60dip,True)

 

[Star-Dust]

Update to version 0.06 you can have the number of columns by code. You can edit your source in this way

    fgBasket.ClearRow  ' Try this
    Main.items(Main.max_item_order,1) = "
    For i = 1 To 99
        Dim SingleItems() As String = Array As Object(Main.items(i,1),Main.items(i,2),Main.items(i,7),Main.items(i,5),Main.items(i,6),Main.items(i,8))
        If SingleItems(0).Length>0 Then
            If fgBasket.ColCount=SingleItems.Length Then fgBasket.AddRow2(SingleItems,60dip,True)
        End If
    Next

 

[tariqyounis]

@Star-Dust thank you a lot, it was a great help...