Declare c_cur Cursor For
SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = N'abc' ;
ls_sql = " Select "
ll_inc = 1
Open c_cur ;
Do While True
Fetch c_cur Into :ls_column;
If Sqlca.Sqlcode <> 0 Then Exit
If ls_column = 'IS_' Then
If ll_inc = 1 Then
ls_sql += ls_column
Else
ls_sql += ", " + ls_column
End If
End If
ll_inc ++
Loop
Close c_cur ;
ls_sql += ' From abc ';
// Create Data store
Datastore ds_store
ds_store = Create datastore
ls_present_str = "style(type=tabular)"
ls_syntax_str = SQLCA.SyntaxFromSQL(ls_sql, ls_present_str, ls_msg)
If ls_syntax_str = "" Then
Return -1
End If
ds_store.Create(ls_syntax_str, ls_msg)
ds_store.SetTransObject(Sqlca)
ds_store.Retrieve()
I'vent checked the above code... I expect it to work.
HTH
Happiness Always
BKR Sivaprakash
To set the tab order, use
dw_1.SetTabOrder(fieldname, 1)
If you don't know the fieldname(s), store the field names, in an array, while creating the SQL (ls_sql) and use that array to set the tab order.
If you want to convert an edit field to check box,
1. Must know the field name [ I don't have any idea to do that without that information]
2. To study the dw syntax through dw_1.describe('datawindow.syntax') and have a list of modifications that need to be done in the syntax. After modifying again re-create the dw using dw_1.Create(ls_modified_dw_syntax, ls_error_msg)
May not be simple as you think. Need to spend few hours (days) depending on what you want to do.
OP has updated his query in his comments.. Now he want to allow editing facility to be included... so switching to dw.