Customize prompt lookup behavior in a dbgrid: Difference between revisions
From DataFlex Wiki
Jump to navigationJump to search
New page: How can I set a column in a dbGrid to ignore the prompt under certain circumstances? 1. Via customizing the prompt method in the object Procedure Prompt Integer iColumn Boolean bOk... |
Hsymington (talk | contribs) m Added to Tutorials category |
||
| (2 intermediate revisions by 2 users not shown) | |||
| Line 3: | Line 3: | ||
1. Via customizing the prompt method in the object | 1. Via customizing the prompt method in the object | ||
<source lang="vdf"> | |||
Procedure Prompt | Procedure Prompt | ||
Integer iColumn | Integer iColumn | ||
Boolean bOk | Boolean bOk | ||
move (true) to bOk | move (true) to bOk | ||
Get Current_Col To iColumn | Get Current_Col To iColumn | ||
| Line 17: | Line 17: | ||
Forward Send Prompt | Forward Send Prompt | ||
End | End | ||
Procedure // | Procedure // Prompt | ||
</source> | |||
2. Via entry_display | 2. Via entry_display | ||
<source lang="vdf"> | |||
if(certain circumstances) begin | if(certain circumstances) begin | ||
Set Prompt_Button_Mode to pb_PromptOff | Set Prompt_Button_Mode to pb_PromptOff | ||
| Line 30: | Line 32: | ||
if(not((certain circumstances)) forward send prompt | if(not((certain circumstances)) forward send prompt | ||
End_Procedure | End_Procedure | ||
</source> | |||
[[Category:How To]] | |||
[[Category:Tutorials]] | |||
Latest revision as of 11:43, 25 March 2020
How can I set a column in a dbGrid to ignore the prompt under certain circumstances?
1. Via customizing the prompt method in the object
Procedure Prompt
Integer iColumn
Boolean bOk
move (true) to bOk
Get Current_Col To iColumn
If (iColumn=4) Begin
// if in column 4 then check data
Get Field_Current_Value Of Server_DD Field Foo.bar To sBar
If (sBar="foo") Move (false) To bOk
End
If (bOk) Begin
Forward Send Prompt
End
Procedure // Prompt
2. Via entry_display
if(certain circumstances) begin
Set Prompt_Button_Mode to pb_PromptOff
end
and
On_Key kPrompt Send myprompt
Procedure Myprompt
if(not((certain circumstances)) forward send prompt
End_Procedure
