Android Question Strange Text behind Buttons in B4xTable

Discussion in 'Android Questions' started by Scantech, May 27, 2019.

  1. Scantech

    Scantech Well-Known Member Licensed User

    Code:
    Sub InitTableandSql(FirstTime As Boolean)
        
    Try

            
    If FirstTime Or blnFileAvailable = False Then
                
    'check external first
                If File.Exists(File.DirRootExternal, Starter.DiagReportDatabase & "diagreport.db"Then
                    
    sql.Initialize(File.DirRootExternal, Starter.DiagReportDatabase & "diagreport.db"False)
                    blnFileAvailable = 
    True
                
    Else If File.Exists(File.DirInternal, Starter.DiagReportDatabase & "diagreport.db"Then
                    
    sql.Initialize(File.DirInternal, Starter.DiagReportDatabase & "diagreport.db"False)
                    blnFileAvailable = 
    True
                
    Else
                    blnFileAvailable = 
    False
                
    End If
            
    End If
                
            
    Activity.LoadLayout("diagreporttable")

            
    'this is for edit and delete button
            editCol = B4XTable1.AddColumn("Edit", B4XTable1.COLUMN_TYPE_TEXT)
            editCol.Sortable = 
    False
            editCol.Width = 
    82dip
            
            B4XTable1.RowHeight = 
    50dip
    '        B4XTable1.NumberOfFrozenColumns = 1
        
            B4XTable1.AddColumn(
    "ID", B4XTable1.COLUMN_TYPE_NUMBERS)
            B4XTable1.AddColumn(
    "RO", B4XTable1.COLUMN_TYPE_TEXT)
            B4XTable1.AddColumn(
    "Date", B4XTable1.COLUMN_TYPE_TEXT)
            B4XTable1.AddColumn(
    "VIN", B4XTable1.COLUMN_TYPE_TEXT)
            B4XTable1.AddColumn(
    "Year", B4XTable1.COLUMN_TYPE_TEXT)
            B4XTable1.AddColumn(
    "Make", B4XTable1.COLUMN_TYPE_TEXT)
            B4XTable1.AddColumn(
    "Model", B4XTable1.COLUMN_TYPE_TEXT)
            B4XTable1.AddColumn(
    "File Name", B4XTable1.COLUMN_TYPE_TEXT)
            
            
    Dim Data As List
            Data.Initialize
            
            
    If blnFileAvailable = True Then
                
    Dim rs As ResultSet = sql.ExecQuery("SELECT ID, RO, Date, VIN, Year, Make, Model, FileName FROM diagnosticlog")
                
    Dim startTime As Long = DateTime.Now
                

                
    Do While rs.NextRow
                    
    Dim row(8As Object
                    row(
    0) = rs.GetDouble("ID")
                    row(
    1) = rs.GetString("RO")
                    row(
    2) = rs.GetString("Date")
                    row(
    3) = rs.GetString("VIN")
                    row(
    4) = rs.GetString("Year")
                    row(
    5) = rs.GetString("Make")
                    row(
    6) = rs.GetString("Model")
                    row(
    7) = rs.GetString("FileName")

                    
    If row(0) = Null Then row(0) = ""
                    
    If row(1) = Null Then row(1) = ""
                    
    If row(2) = Null Then row(2) = ""
                    
    If row(3) = Null Then row(3) = ""
                    
    If row(4) = Null Then row(4) = ""
                    
    If row(5) = Null Then row(5) = ""
                    
    If row(6) = Null Then row(6) = ""
                    
    If row(7) = Null Then row(7) = ""
                    
                    Data.Add(row)
                
    Loop
                
    Log("Index time: " & (DateTime.Now - startTime) & " ms")

                rs.Close

                
    Dim startTime As Long = DateTime.Now

                B4XTable1.SetData(Data)
            
                B4XTable1.MaximumRowsPerPage = 
    20
                B4XTable1.BuildLayoutsCache(B4XTable1.MaximumRowsPerPage)
                
                
    For i = 1 To editCol.CellsLayouts.Size - 1
                    
    Dim p As B4XView = editCol.CellsLayouts.Get(i)
                    p.AddView(CreateButton(
    "btnEdit"Chr(0xF044)), 1dip5dip40dip40dip)
                    p.AddView(CreateButton(
    "btnDelete"Chr(0xF00D)), 41dip5dip40dip40dip)
    '                p.AddView(CreateButton("btnDuplicate",Chr(0xF0C5)), 85dip, 5dip, 40dip, 40dip)
                Next
                
                
    Log("Index time: " & (DateTime.Now - startTime) & " ms")
            
    Else
                
    'no file..do nothing but show the table
                B4XTable1.SetData(Data)
            
    End If
        
    Catch
            
    Log("Error InitTable and Sql" & LastException.Message)
        
    End Try
    End Sub
    ID happens to be in edit what am i doing here wrong
     

    Attached Files:

    • 1.jpg
      1.jpg
      File size:
      365.6 KB
      Views:
      22
  2. Erel

    Erel Administrator Staff Member Licensed User

    row(0) is the edit column. Its value should be an empty string.
     
    Scantech likes this.
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice