Jabaco Source

Public Sub Form_Load() 
Dim dtm As New DefaultTableModel() 
Dim h As NEW JTableHeader 
Dim s As JScrollPane 

dtm.addColumn("test") 
dtm.addColumn("test 2") 
dtm.addColumn("test 3") 
dtm.setRowCount(200) 

dtm.setValueAt("1",0,0) 
dtm.setValueAt("2",1,0) 
dtm.setValueAt(True,0,1) 

Dim jt As New JTable(dtm) 

Set h = jt.getTableHeader() 

jt.setBounds(0,100,600,600) 
jt.setAutoCreateRowSorter(True) 
jt.setAutoResizeMode(JTable.AUTO_RESIZE_OFF) 
jt.getColumnModel().getColumn(1).setCellEditor(New DEFAULTCellEditor(New JCheckBox())) 
jt.getColumnModel().getColumn(2).setCellEditor(New DEFAULTCellEditor(New JComboBox())) 

'jt.setContent("box/text", Function() {Return this.getControlProperty("value") ? 'Yes' : 'No'}); 

Set s = New JScrollPane(jt) 

s.setBounds(0,0,500,500) 

Me.add(s) 
End Sub