Syntax
| HtmSelectInput(TableType, rs, KeyField, RedirectTo[, ControlName][, SearchFields][, InputClassName])
| ||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Description
| Returns a fully formatted read-only table in html/javascript code for use in combination with the HtmParseFile method. You can choose in 3 different types of tables, and two styles:
List, lists only a table view in the specified style
Check, lists a table view, preceeded with an extra checkbox column. For checklist purposes, the checks can be read out with the HtmGetTableData function.
Edit, lists a table, where multiple columns can be edited. The EditFields variable holds the field names of these columns. Data can be read out with HtmGetTableData. NOTE: edit-type is just for lay-out purposes, editing is not supported.
Style1, a modern style table, build with proportional (sans serif) font.
Style2, a flat table, build with a fixed (monotype) font (courier.
All records and fields in the ADODB.recordset variable are used as a source with the field names as the parameters.
The rows, columns and values are automatically formatted, based on the field size and type and, ocassionally and when needed, also based on parts of the field names.
Formatting columnsThe formatting of the values is done automatically, based on the database-fieldtype and locale settings.
| ||||||||||||||||
See Also
| |||||||||||||||||
Example
| Sub Main
Dim Temp$
TrmSetInterface "HTML"
SQL.RunRecordset "SELECT * FROM usr_vw_Loodslijst_Orders", rs
Temp$ = HtmSelectInput(TabTypListStyle1, rs, "RowID", "menu_loodslijst.ccl?pagenum=edit&rowid={0}", , Array("OrderNr", "KlantNaam", "Omschrijving"), "blue-head")
Temp$ = Replace$( Temp$, vbCrLf, "$$") ' - Regeleinden zijn field-separators in HtmParseFile, vervangen door 'double-dollars'
HtmParseFile "tablet\menu_loodslijst.htm", "#SEARCHLIST#|" & sTemp
End Sub
|