Recordset from recordset

[_pi]

i make a main sql query for on item.
in my dialog there are 2 datagrids which need a source.

both datagrids need only partial fields from the recordset.

is it possible to make something like sub recordsets ?

Code:

Copy      Help

sql.from("Select * from daten WHERE ID=" _pid)
ADO.Recordset pf_einzel
pf_db.QueryRs(sql pf_einzel)

[_pi]

the trick is to hide datagrid columns.


example function pf_einzel_datagrid in dialog WM_INITDIALOG.

Code:

Copy      Help

;/
function [mode]

MSDataGridLib.DataGrid dli._getcontrol(dli_hwnd)
dli.DataSource=+pf_einzel

for _i 0 pf_einzel.Fields.Count
,if _i=25 || _i=26 ||_i=27||_i=28
,,continue
,dli.Columns.Item(_i).Visible=0

dli.Columns.Item(25).Caption="Lieferant"
dli.Columns.Item(25).Width=200*26
dli.Columns.Item(26).Caption="Land"
dli.Columns.Item(27).Caption="Lieferzeit"
dli.Columns.Item(28).Caption="Spedition"

ret