This works perfectly. Thank you so much!!!
Ross
-----Original Message-----
From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of
erwinjw
Sent: Thursday, July 02, 2009 10:30 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Re: 100A Child Update
Try wrapping the updates in BeginEdit() and EndEdit() before you call the
oTrans.Update()
Private Sub btnEpiCustom4_Click(ByVal Sender As Object, ByVal Args As
System.EventArgs) Handles btnEpiCustom4.Click
'// ** Place Event Handling Code Here **
if edvUD08.dataView(edvUD08.Row)("CheckBox11") = false then
edvUD08.dataview(edvUD08.Row).BeginEdit()
edvUD08.dataView(edvUD08.Row)("CheckBox11") = true
edvUD08.dataView(edvUD08.Row)("Number01") = 9999
edvUD08.dataview(edvUD08.Row).EndEdit()
oTrans.Update()
end if
End Sub
erwin
Ross
-----Original Message-----
From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of
erwinjw
Sent: Thursday, July 02, 2009 10:30 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Re: 100A Child Update
Try wrapping the updates in BeginEdit() and EndEdit() before you call the
oTrans.Update()
Private Sub btnEpiCustom4_Click(ByVal Sender As Object, ByVal Args As
System.EventArgs) Handles btnEpiCustom4.Click
'// ** Place Event Handling Code Here **
if edvUD08.dataView(edvUD08.Row)("CheckBox11") = false then
edvUD08.dataview(edvUD08.Row).BeginEdit()
edvUD08.dataView(edvUD08.Row)("CheckBox11") = true
edvUD08.dataView(edvUD08.Row)("Number01") = 9999
edvUD08.dataview(edvUD08.Row).EndEdit()
oTrans.Update()
end if
End Sub
erwin
--- In vantage@yahoogroups.com, "Ross Hughes" <ross.hughes@...> wrote:
>
> I am trying to update the current child record on button click in a custom
> UD100/UD100A module and it isn't saving...unless...I click to a different
> child record and back. The tracer says this calls the UPDATE method.
>
>
>
> When I press save it gets rid of the information. This approach works on
> the parent record.
>
>
>
> Does anyone know what else the following code needs to accomplish this?
>
>
>
> '--------------------------------------------
>
> Private Sub btnAddParent_Click(ByVal Sender As Object, ByVal Args As
> System.EventArgs) Handles btnAddParent.Click
>
> '// ** Place Event Handling Code Here **
>
> 'Add the Parent data from combo box to the database
>
> If ucbMatOp1.Value.ToString() <> "" Then
>
> Dim edvParent As EpiDataView =
> CType(oTrans.EpiDataViews("UD100A"), EpiDataView)
>
> edvParent.dataView(edvParent.Row)("ShortChar01") =
> ucbMatOp1.Value
>
> edvParent.dataView(edvParent.Row)("Character01") =
> txtMatOpDesc1.Text
>
> edvParent.Notify( New EpiNotifyArgs(oTrans, edvParent.Row,
> edvParent.Column) )
>
> End If
>
> End Sub
>
> '--------------------------------------------
>
>
>
> Thanks,
>
> Ross
>
>
>
> [Non-text portions of this message have been removed]
>
------------------------------------
Useful links for the Yahoo!Groups Vantage Board are: ( Note: You must have
already linked your email address to a yahoo id to enable access. )
(1) To access the Files Section of our Yahoo!Group for Report Builder and
Crystal Reports and other 'goodies', please goto:
http://groups.yahoo.com/group/vantage/files/.
(2) To search through old msg's goto:
http://groups.yahoo.com/group/vantage/messages
(3) To view links to Vendors that provide Vantage services goto:
http://groups.yahoo.com/group/vantage/linksYahoo! Groups Links