B4J Question How to draw lines on a table in VisualDesigner?

[daiweisc]

How to draw lines on a table in VisualDesigner?

 

[Erel]

You cannot draw lines with the designer and it is also a mistake to create such layout with the designer.

You should use CLV or B4XTable for such layout.

 

[daiweisc]

Thanks for reply.

 

[mcqueccu]

As Erel said, this looks like a list so Customlistview or B4Xtable will be the ideal.

Apart from that, this is what I do if I just need a single line under a Heading or an item.
I add a label and set its height to 1. Then fill the label with the color I want

 

[daiweisc]

Thanks for reply.
If I need two Customlistviews loaded from two SQLs in one page, how to write the code?
Can you give a example.

 

[daiweisc]

Two data tables are attached.
Table1

DN/mm	di/mm
20	19​
21.1​
25	26​
27.3​
40	38​
41.1​
50	50​
52.3​
80	81​
77.7​
100	100​
101.7​
150	150​
154.1​
200	207​
203.1​
250	257​
255.4​
300	309​
303.9​
350	359​
333.6​
400	406​
381.4​
450	458​
428.6​
500	506​
476​

Table2

管子类型	等值粗糙度(mm)
不锈钢无缝钢管和不锈钢焊接钢管	0.1
无缝钢管	0.2
焊接钢管	0.2
高腐蚀运行条件下的钢管（排汽管、溢流管）	0.55～0.65

 

[daiweisc]

Table1 is some deformation, and the actual display should be the below:

 

[mcqueccu]

Check your anchors. its best you ADD the two list side by side. Use designer script and set them 50/50

 

[teddybear]

Each row of pipe Dn includes Di and De, using CLV is the best choice

 

[daiweisc]

Can you give a example in the code form?

 

[teddybear]

Can you give a example in the code form?

There are tutorial and examples here, and also you can contact with @aeric and join his group

 

[GMan]

As Erel said, this looks like a list so Customlistview or B4Xtable will be the ideal.

Apart from that, this is what I do if I just need a single line under a Heading or an item.
I add a label and set its height to 1. Then fill the label with the color I want

I do the same

 

[daiweisc]

How to correspond one row to two rows in a table?
How to write the code?

 

[daiweisc]

Why the code run wrong?
The Whole code attach.

Sub Class_Globals
    Private Root As B4XView 'ignore
    Private xui As XUI 'ignore
    
    Public SQL1 As SQL
    Private NumberColumn As B4XTableColumn
    
    Private B4XTable1 As B4XTable
    'Private tblData2 As B4XTable
End Sub

'You can add more parameters here.
Public Sub Initialize As Object
    Return Me
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    'load the layout to Root
    Root.LoadLayout("Table1")
    
    'create the columns
    B4XTable1.AddColumn("DN/mm", B4XTable1.COLUMN_TYPE_TEXT)
    B4XTable1.AddColumn("Di/mm", B4XTable1.COLUMN_TYPE_TEXT)
    
    Private ResultSet1 As ResultSet
    ResultSet1 = SQL1.ExecQuery("SELECT rowid FROM Pipe data")
    Dim data As List
    data.Initialize
    Dim rs As ResultSet = SQL1.ExecQuery(ResultSet1)
    Do While rs.NextRow
        Dim row(2) As Object
        row(0) = rs.GetString("DN/mm")
        row(1) = rs.GetString("Di/mm")
        data.Add(row)
    Loop
    rs.Close
    B4XTable1.SetData(data)
End Sub

And the log is :

B4XMainPage - 167: Not all code paths return a value. (warning #2)
Table1 - 31: Object converted to String. This is probably a programming mistake. (warning #7)
Table1 - 6: Variable 'NumberColumn' is never assigned any value. (warning #10)
File 'Pipe data.db' is not used. (warning #15)

 

[teddybear]

Private ResultSet1 As ResultSet
ResultSet1 = SQL1.ExecQuery("SELECT rowid FROM Pipe data")
Dim data As List
data.Initialize
Dim rs As ResultSet = SQL1.ExecQuery(ResultSet1)
Do While rs.NextRow
Dim row(2) As Object
row(0) = rs.GetString("DN/mm")
row(1) = rs.GetString("Di/mm")
data.Add(row)

You'd better post a small project.

The ResultSet you only selected a field rowid, and how you could get DN and Di?

 

[daiweisc]

Thsnks for reply.
The code run wrong. I guess the 26 line code is the problem.

Sub Class_Globals
    Private Root As B4XView 'ignore
    Private xui As XUI 'ignore
    
    Public SQL1 As SQL   
    Private B4XTable1 As B4XTable
    'Private tblData2 As B4XTable
End Sub

'You can add more parameters here.
Public Sub Initialize As Object
    Return Me
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    'load the layout to Root
    Root.LoadLayout("Table1")
    
    'create the columns
    B4XTable1.AddColumn("DN/mm", B4XTable1.COLUMN_TYPE_TEXT)
    B4XTable1.AddColumn("Di/mm", B4XTable1.COLUMN_TYPE_TEXT)
    
    Private ResultSet1 As ResultSet
    ResultSet1 = SQL1.ExecQuery("SELECT * FROM Pipe data")
    Dim data As List
    data.Initialize
    Dim rs As ResultSet = SQL1.ExecQuery(ResultSet1)
    Do While rs.NextRow
        Dim row(3) As Object
        row(0) = rs.GetString("ID")
        row(1) = rs.GetString("DN/mm")
        row(2) = rs.GetString("Di/mm")
        data.Add(row)
    Loop
    rs.Close
    B4XTable1.SetData(data)
End Sub

 

[Mahares]

The code run wrong. I guess the 26 line code is the problem.

The code you posted in post #16 is full of mistakes. It is better if you export a small project like you were asked in post #15

 

[daiweisc]

Thank for your reply. The problem solves.