Thanks for all your help.
The solution was:
edv.dataView(edv.Row).BeginEdit()
edv.dataView(edv.Row)("Character01") = "Test"
edv.dataView(edv.Row).EndEdit()
My final code browses for a file path on a button click and saves it in Character01. Then a second button will open the file with the default application.
Private Sub epiButtonC1_Click(ByVal sender As Object, ByVal args As System.EventArgs)
' ** Place Event Handling Code Here **
Dim edv As EpiDataView = CType(oTrans.EpiDataViews("UD02"), EpiDataView)
'Check to see if the file in Character01 exsists and if it does open it with the default viewer
If My.Computer.FileSystem.FileExists(edv.dataView(edv.Row)("Character01")) Then
Process.Start(edv.dataView(edv.Row)("Character01"))
Else
MsgBox("File not found.")
End If
End Sub
Private Sub epiButtonC2_Click(ByVal sender As Object, ByVal args As System.EventArgs)
' ** Place Event Handling Code Here **
Dim edv As EpiDataView = CType(oTrans.EpiDataViews("UD02"), EpiDataView)
Dim fd As OpenFileDialog = New OpenFileDialog()
Dim strFileName As String
'Open a dialog box to browes to a file
fd.Title = "Open File Dialog"
fd.InitialDirectory = "C:\"
fd.Filter = "All files (*.*)|*.*|All files (*.*)|*.*"
fd.FilterIndex = 2
fd.RestoreDirectory = True
If fd.ShowDialog() = DialogResult.OK Then
'If we found a file store it in Character01
edv.dataView(edv.Row).BeginEdit()
edv.dataView(edv.Row)("Character01") = fd.FileName
edv.dataView(edv.Row).EndEdit()
edv.Notify(New EpiNotifyArgs(oTrans, edv.Row, edv.Column))
End If
End Sub
The solution was:
edv.dataView(edv.Row).BeginEdit()
edv.dataView(edv.Row)("Character01") = "Test"
edv.dataView(edv.Row).EndEdit()
My final code browses for a file path on a button click and saves it in Character01. Then a second button will open the file with the default application.
Private Sub epiButtonC1_Click(ByVal sender As Object, ByVal args As System.EventArgs)
' ** Place Event Handling Code Here **
Dim edv As EpiDataView = CType(oTrans.EpiDataViews("UD02"), EpiDataView)
'Check to see if the file in Character01 exsists and if it does open it with the default viewer
If My.Computer.FileSystem.FileExists(edv.dataView(edv.Row)("Character01")) Then
Process.Start(edv.dataView(edv.Row)("Character01"))
Else
MsgBox("File not found.")
End If
End Sub
Private Sub epiButtonC2_Click(ByVal sender As Object, ByVal args As System.EventArgs)
' ** Place Event Handling Code Here **
Dim edv As EpiDataView = CType(oTrans.EpiDataViews("UD02"), EpiDataView)
Dim fd As OpenFileDialog = New OpenFileDialog()
Dim strFileName As String
'Open a dialog box to browes to a file
fd.Title = "Open File Dialog"
fd.InitialDirectory = "C:\"
fd.Filter = "All files (*.*)|*.*|All files (*.*)|*.*"
fd.FilterIndex = 2
fd.RestoreDirectory = True
If fd.ShowDialog() = DialogResult.OK Then
'If we found a file store it in Character01
edv.dataView(edv.Row).BeginEdit()
edv.dataView(edv.Row)("Character01") = fd.FileName
edv.dataView(edv.Row).EndEdit()
edv.Notify(New EpiNotifyArgs(oTrans, edv.Row, edv.Column))
End If
End Sub
--- In vantage@yahoogroups.com, "Kevin Simon" <simstrak@...> wrote:
>
> That's a great idea by bw. The other thing you may want to try is:
>
> edv.dataView(edv.Row)("RowMod") = "U"
>
>
>
>
>
> From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of
> bw2868bond
> Sent: Thursday, October 06, 2011 7:26 AM
> To: vantage@yahoogroups.com
> Subject: [Vantage] Re: Update Table From VB Code
>
>
>
>
>
> Did you try putting the row into edit mode before assigning a value?
>
> edv.dataView(edv.Row).BeginEdit()
> edv.dataView(edv.Row)("Character01") = "Test"
> edv.dataView(edv.Row).EndEdit()
>
> --- In vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ,
> "carson251" <carsonepicor@> wrote:
> >
> > Kevin,
> > I confirmed the code was hit with a pop up and I am in UD02 Maint. I tried
> the same code in Part maint hitting the part table and it worked. I'll try
> contacting support to see if it's a bug in 9.04.507A.
> >
> > Thanks fr your help.
> >
> >
> >
> > --- In vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> , "Kevin
> Simon" <simstrak@> wrote:
> > >
> > > And, I assume this is a UD02 maint program you're in?
> > >
> > >
> > >
> > > From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> [mailto:vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ] On
> Behalf Of
> > > carson251
> > > Sent: Wednesday, October 05, 2011 3:36 PM
> > > To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> > > Subject: [Vantage] Re: Update Table From VB Code
> > >
> > >
> > >
> > >
> > >
> > > Thanks for the quick answer.
> > > I tried:
> > > Private Sub epiButtonC2_Click(ByVal sender As Object, ByVal args As
> > > System.EventArgs)
> > > ' ** Place Event Handling Code Here **
> > > Dim edv As EpiDataView = CType(oTrans.EpiDataViews("UD02"), EpiDataView)
> > >
> > > edv.dataView(edv.Row)("Character01") = "Test"
> > > 'edv.Notify(New EpiNotifyArgs(oTrans, edv.Row, edv.Column))
> > > otrans.update()
> > >
> > > End Sub
> > >
> > > And
> > >
> > > Private Sub epiButtonC2_Click(ByVal sender As Object, ByVal args As
> > > System.EventArgs)
> > > ' ** Place Event Handling Code Here **
> > > Dim edv As EpiDataView = CType(oTrans.EpiDataViews("UD02"), EpiDataView)
> > >
> > > edv.dataView(edv.Row)("Character01") = "Test"
> > > edv.Notify(New EpiNotifyArgs(oTrans, edv.Row, edv.Column))
> > > otrans.update()
> > >
> > > End Sub
> > >
> > > With no luck.
> > > Any other thoughts?
> > >
> > > Thanks
> > >
> > > --- In vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> <mailto:vantage%40yahoogroups.com> , "Kevin
> > > Simon" <simstrak@> wrote:
> > > >
> > > > Try: otrans.update()
> > > >
> > > >
> > > >
> > > > In place of the notify, or after the notify.
> > > >
> > > >
> > > >
> > > > From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> <mailto:vantage%40yahoogroups.com>
> > > [mailto:vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> <mailto:vantage%40yahoogroups.com> ] On
> > > Behalf Of
> > > > carson251
> > > > Sent: Wednesday, October 05, 2011 2:35 PM
> > > > To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> <mailto:vantage%40yahoogroups.com>
> > > > Subject: [Vantage] Update Table From VB Code
> > > >
> > > >
> > > >
> > > >
> > > >
> > > > Hi,
> > > > I'm trying to update a UD table with VB code on a button press. I can
> get
> > > > the screen to change, but saving doesn't do anything.
> > > >
> > > > Here is the code.
> > > >
> > > > Private Sub epiButtonC2_Click(ByVal sender As Object, ByVal args As
> > > > System.EventArgs)
> > > > ' ** Place Event Handling Code Here **
> > > > Dim edv As EpiDataView = CType(oTrans.EpiDataViews("UD02"),
> EpiDataView)
> > > >
> > > > edv.dataView(edv.Row)("Character01") = "Test"
> > > > edv.Notify(New EpiNotifyArgs(oTrans, edv.Row, edv.Column))
> > > >
> > > >
> > > > End Sub
> > > >
> > > > I feel like I'm missing something really simple, but I've been
> searching
> > > for
> > > > hours with no luck.
> > > >
> > > > Any help would be appreciated.
> > > >
> > > > Thanks
> > > > Carson
> > > >
> > > >
> > > >
> > > >
> > > >
> > > > [Non-text portions of this message have been removed]
> > > >
> > >
> > >
> > >
> > >
> > >
> > > [Non-text portions of this message have been removed]
> > >
> >
>
>
>
>
>
> [Non-text portions of this message have been removed]
>