TC at 13:20, 26 June 2017

2017-06-26T13:20:34Z

← Older revision		Revision as of 13:20, 26 June 2017
Line 16:		Line 16:
	[[PdcDataGrid.GridName]]<br />		[[PdcDataGrid.GridName]]<br />
	[[PdcDataGrid.SelectedValues]]<br />		[[PdcDataGrid.SelectedValues]]<br />
	[[PdcDataGrid.SelectionKey]]		[[PdcDataGrid.SelectionKey]]<br />
			[[PdcDataGrid.TableName]]

	== Notes ==		== Notes ==

Mike: Created page with "== Methods == PdcDataGrid.FirstRecord
PdcDataGrid.GetField
PdcDataGrid.GetFile
PdcDataGrid.GetImage
PdcDataGrid.LastRecord
[[..."

2012-05-21T12:48:40Z

Created page with "== Methods == PdcDataGrid.FirstRecord PdcDataGrid.GetField PdcDataGrid.GetFile PdcDataGrid.GetImage PdcDataGrid.LastRecord [[..."

New page

== Methods ==
[[PdcDataGrid.FirstRecord]] 
[[PdcDataGrid.GetField]] 
[[PdcDataGrid.GetFile]] 
[[PdcDataGrid.GetImage]] 
[[PdcDataGrid.LastRecord]] 
[[PdcDataGrid.Locate]] 
[[PdcDataGrid.NextRecord]] 
[[PdcDataGrid.PriorRecord]] 
[[PdcDataGrid.RecordCount]]

== Properties ==
[[PdcDataGrid.BoF]] 
[[PdcDataGrid.EoF]] 
[[PdcDataGrid.FieldNames]] 
[[PdcDataGrid.GridName]] 
[[PdcDataGrid.SelectedValues]] 
[[PdcDataGrid.SelectionKey]]

== Notes ==
This property returns the active datagrid in the active window.

== Code example ==
This code example loops trough the records in the grid and shows wheter or not they are selected.

<source lang="vb">
Sub SelectieTest
dim activegrid
dim inttel
dim geselecteerd

if pdc.Windows.ActiveWindow.WindowKey = "PB" then
set activegrid = pdc.Windows.ActiveWindow.Datagrids.GetGridByName("PDCGrid1", "PR_POS")
if IsValid(activegrid) then

activegrid.FirstRecord
do while not activegrid.EoF
geselecteerd = false
for inttel= 0 to activegrid.selectedValues.Count -1
if activegrid.SelectedValues.Item(inttel) = activegrid.GetField(activegrid.SelectionKey) then
geselecteerd = true
exit for
end if
Next

if geselecteerd then
msgbox "Regel " & activegrid.GetField("PR_POS") & " is geselecteerd."
else
msgbox "Regel " & activegrid.GetField("PR_POS") & " is niet geselecteerd."
end if
activegrid.NextRecord
loop
end if
set activegrid = nothing
end if
End Sub
</source>

== Availability ==
Available since April 2010 (from version 4.1)

PdcDataGrid - Revision history

TC at 13:20, 26 June 2017

Mike: Created page with "== Methods == PdcDataGrid.FirstRecord PdcDataGrid.GetField PdcDataGrid.GetFile PdcDataGrid.GetImage PdcDataGrid.LastRecord [[..."

Mike: Created page with "== Methods == PdcDataGrid.FirstRecord
PdcDataGrid.GetField
PdcDataGrid.GetFile
PdcDataGrid.GetImage
PdcDataGrid.LastRecord
[[..."