I don't like the new DbfDataSet

[Ingo]

Ignacio,
I'm using now FieldPut instead VarPut but the DataControls in the form don't
show the new values not before oDateset:Update() is called.
How to make the DataControls showing the new values without writing them to
the database.
I don't like to assign manually each single DataControl:Value. That's too
much work to rewriting the code each app
Here is one code-snippet like I'm using:
METHOD BtnBmp1Click( oSender ) CLASS TMP5Edit
LOCAL aR, n, z := ::oMP5:FieldCount()
WITH OBJECT Gerichtsliste():New(self) //get datas from another database
browsed in a form
IF :ShowModal() = mrOK
aR := :Cargo
ENDIF
:End()
END WITH
IF aR # NIL .AND. LEN(aR) = z
WITH OBJECT ::oMP5 //the target database is already in editmode
FOR n := 1 TO Z
:FieldPut( n, aR[n] ) //instead old VarPut()
LogDebug( :FieldGet( n ) ) //the debugger window shows the new value
/*
:aFields[n]:Value := aR[n] //trying the other way
LogDebug( :aFields[n]:Value ) //the debugger window shows the new value too
*/
NEXT
END WITH
ENDIF
RETURN Nil
Regards
Ingo

[ignacio]

Ingo,
You should set the value on the datacontrol. This is how is supposed to be
used.
But even if you modify the value of the field directly if there is a
datacontol linked to that same field it should also be updated. If you take
a look at method FieldPut you will see how is done:
IF !::lFast .AND. !::lOnUpdate .AND. ( lFromDC == NIL .OR. !lFromDC )
::UpdDataControlValue( n, x )
ENDIF
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
http:/xailer.info
"Ingo" <info@mandantwin.com> escribió en el mensaje de
noticias:4a7a9fc1$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Ignacio,
>
> I'm using now FieldPut instead VarPut but the DataControls in the form
> don't show the new values not before oDateset:Update() is called.
>
> How to make the DataControls showing the new values without writing them
> to the database.
> I don't like to assign manually each single DataControl:Value. That's too
> much work to rewriting the code each app
>
> Here is one code-snippet like I'm using:
>
> METHOD BtnBmp1Click( oSender ) CLASS TMP5Edit
> LOCAL aR, n, z := ::oMP5:FieldCount()
> WITH OBJECT Gerichtsliste():New(self) //get datas from another database
> browsed in a form
> IF :ShowModal() = mrOK
> aR := :Cargo
> ENDIF
> :End()
> END WITH
>
> IF aR # NIL .AND. LEN(aR) = z
> WITH OBJECT ::oMP5 //the target database is already in editmode
> FOR n := 1 TO Z
> :FieldPut( n, aR[n] ) //instead old VarPut()
> LogDebug( :FieldGet( n ) ) //the debugger window shows the new value
> /*
> :aFields[n]:Value := aR[n] //trying the other way
> LogDebug( :aFields[n]:Value ) //the debugger window shows the new value
> too
> */
> NEXT
> END WITH
> ENDIF
> RETURN Nil
>
> Regards
>
> Ingo

[ignacio]

Ingo,
You should set the value on the datacontrol. This is how is supposed to be
used.
But even if you modify the value of the field directly if there is a
datacontol linked to that same field it should also be updated. If you take
a look at method FieldPut you will see how is done:
IF !::lFast .AND. !::lOnUpdate .AND. ( lFromDC == NIL .OR. !lFromDC )
::UpdDataControlValue( n, x )
ENDIF
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
http:/xailer.info
"Ingo" <info@mandantwin.com> escribió en el mensaje de
noticias:4a7a9fc1$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Ignacio,
>
> I'm using now FieldPut instead VarPut but the DataControls in the form
> don't show the new values not before oDateset:Update() is called.
>
> How to make the DataControls showing the new values without writing them
> to the database.
> I don't like to assign manually each single DataControl:Value. That's too
> much work to rewriting the code each app
>
> Here is one code-snippet like I'm using:
>
> METHOD BtnBmp1Click( oSender ) CLASS TMP5Edit
> LOCAL aR, n, z := ::oMP5:FieldCount()
> WITH OBJECT Gerichtsliste():New(self) //get datas from another database
> browsed in a form
> IF :ShowModal() = mrOK
> aR := :Cargo
> ENDIF
> :End()
> END WITH
>
> IF aR # NIL .AND. LEN(aR) = z
> WITH OBJECT ::oMP5 //the target database is already in editmode
> FOR n := 1 TO Z
> :FieldPut( n, aR[n] ) //instead old VarPut()
> LogDebug( :FieldGet( n ) ) //the debugger window shows the new value
> /*
> :aFields[n]:Value := aR[n] //trying the other way
> LogDebug( :aFields[n]:Value ) //the debugger window shows the new value
> too
> */
> NEXT
> END WITH
> ENDIF
> RETURN Nil
>
> Regards
>
> Ingo

[Ingo JH]

Ignacio,
I'm using now the undocumented method UpdDataControlValue(n,x) instead
VarPut(n,x).
That has the effect I want.
I like the new DbfDataSet .
Regards
Ingo
"Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> schrieb im
Newsbeitrag news:[email=4a7d7dcb@svctag-j7w3v3j....]4a7d7dcb@svctag-j7w3v3j....[/email]
> Ingo,
>
>
> You should set the value on the datacontrol. This is how is supposed to be
> used.
>
> But even if you modify the value of the field directly if there is a
> datacontol linked to that same field it should also be updated. If you
> take a look at method FieldPut you will see how is done:
>
> IF !::lFast .AND. !::lOnUpdate .AND. ( lFromDC == NIL .OR. !lFromDC )
> ::UpdDataControlValue( n, x )
> ENDIF
>
> Regards,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> http:/xailer.info
>
> "Ingo" <info@mandantwin.com> escribió en el mensaje de
> noticias:4a7a9fc1$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Ignacio,
>>
>> I'm using now FieldPut instead VarPut but the DataControls in the form
>> don't show the new values not before oDateset:Update() is called.
>>
>> How to make the DataControls showing the new values without writing them
>> to the database.
>> I don't like to assign manually each single DataControl:Value. That's too
>> much work to rewriting the code each app
>>
>> Here is one code-snippet like I'm using:
>>
>> METHOD BtnBmp1Click( oSender ) CLASS TMP5Edit
>> LOCAL aR, n, z := ::oMP5:FieldCount()
>> WITH OBJECT Gerichtsliste():New(self) //get datas from another database
>> browsed in a form
>> IF :ShowModal() = mrOK
>> aR := :Cargo
>> ENDIF
>> :End()
>> END WITH
>>
>> IF aR # NIL .AND. LEN(aR) = z
>> WITH OBJECT ::oMP5 //the target database is already in editmode
>> FOR n := 1 TO Z
>> :FieldPut( n, aR[n] ) //instead old VarPut()
>> LogDebug( :FieldGet( n ) ) //the debugger window shows the new value
>> /*
>> :aFields[n]:Value := aR[n] //trying the other way
>> LogDebug( :aFields[n]:Value ) //the debugger window shows the new value
>> too
>> */
>> NEXT
>> END WITH
>> ENDIF
>> RETURN Nil
>>
>> Regards
>>
>> Ingo
>

[Ingo JH]

Ignacio,
I'm using now the undocumented method UpdDataControlValue(n,x) instead
VarPut(n,x).
That has the effect I want.
I like the new DbfDataSet .
Regards
Ingo
"Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> schrieb im
Newsbeitrag news:[email=4a7d7dcb@svctag-j7w3v3j....]4a7d7dcb@svctag-j7w3v3j....[/email]
> Ingo,
>
>
> You should set the value on the datacontrol. This is how is supposed to be
> used.
>
> But even if you modify the value of the field directly if there is a
> datacontol linked to that same field it should also be updated. If you
> take a look at method FieldPut you will see how is done:
>
> IF !::lFast .AND. !::lOnUpdate .AND. ( lFromDC == NIL .OR. !lFromDC )
> ::UpdDataControlValue( n, x )
> ENDIF
>
> Regards,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> http:/xailer.info
>
> "Ingo" <info@mandantwin.com> escribió en el mensaje de
> noticias:4a7a9fc1$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Ignacio,
>>
>> I'm using now FieldPut instead VarPut but the DataControls in the form
>> don't show the new values not before oDateset:Update() is called.
>>
>> How to make the DataControls showing the new values without writing them
>> to the database.
>> I don't like to assign manually each single DataControl:Value. That's too
>> much work to rewriting the code each app
>>
>> Here is one code-snippet like I'm using:
>>
>> METHOD BtnBmp1Click( oSender ) CLASS TMP5Edit
>> LOCAL aR, n, z := ::oMP5:FieldCount()
>> WITH OBJECT Gerichtsliste():New(self) //get datas from another database
>> browsed in a form
>> IF :ShowModal() = mrOK
>> aR := :Cargo
>> ENDIF
>> :End()
>> END WITH
>>
>> IF aR # NIL .AND. LEN(aR) = z
>> WITH OBJECT ::oMP5 //the target database is already in editmode
>> FOR n := 1 TO Z
>> :FieldPut( n, aR[n] ) //instead old VarPut()
>> LogDebug( :FieldGet( n ) ) //the debugger window shows the new value
>> /*
>> :aFields[n]:Value := aR[n] //trying the other way
>> LogDebug( :aFields[n]:Value ) //the debugger window shows the new value
>> too
>> */
>> NEXT
>> END WITH
>> ENDIF
>> RETURN Nil
>>
>> Regards
>>
>> Ingo
>