ls_select = "Select id, fname, lname, address, city, state, zip from customer"
ls_where = " where customer.fname like '" + is_cust + "%'"
ls_dwsyntax = SQLCA.SyntaxFromSQL ( ls_select, "Style(Type=grid)", ls_err )
dw_1.Create ( ls_dwsyntax, ls_err )
IF ls_err <> '' THEN
MessageBox ( "error - Syntax", ls_err )
ELSE
dw_1.SetTransObject ( SQLCA )
dw_1.Retrieve()
END IF
//Get the current filter//
ls_filter = dw_1.describe("datawindow.table.filter")
IF ls_filter = "?" THEN
MessageBox("Oups!", "no filter defined")
END IF
//Autoselect an Editmask//
[ItemFocusChanged event]
CHOOSE CASE this.Describe(dwo.name + '.editmask.mask')
CASE '?' , '!'
CASE ELSE
this.SelectText(1,999)
END CHOOSE
END IF
//Load an array with the names of every column in a dw//
int colNum, numCols
string colName[]
numCols = Integer(dw_control.Describe("Datawindow.Column.Count"))
FOR colNum = 1 TO numCols
// Get Column Name with describe
colName[colNum] = dw_control.Describe("#" + String(colNum) + ".name")
NEXT