Formatting a UD field in an Form

Yahoo Archive
1
Worked perfectly. Thanks so much
--- In vantage@yahoogroups.com, "Kevin Simon" <simstrak@...> wrote:
>
> Carl,
>
>
>
> Add the following call in the InitializeCustomCode() section:
>
> SetExtendedProps()
>
>
>
>
>
> Then, add the following sub:
>
>
>
> Private Sub SetExtendedProps()
>
> Dim edv As EpiDataView = CType(oTrans.EpiDataViews("Part"),
> EpiDataView)
>
> edv.dataView.Table.Columns("Number01").ExtendedProperties("Format")
> = ">>>9"
>
> End Sub
>
>
>
> Hope that helps,
>
>
>
> Kevin Simon
>
> SimsTrak Consulting
>
>
>
> From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of
> CarlH
> Sent: Monday, July 18, 2011 3:37 PM
> To: vantage@yahoogroups.com
> Subject: [Vantage] Formatting a UD field in an Form
>
>
>
>
>
> Can someobdy help me out with the code necessary to set the format of a UD
> numeric field to one without decimals, i.e. Format: <<<9. My field is the
> Number01 field from the Part table and form
>
> I assume that this can be handled as a Form Load event but I'm not clear
> what the code is to change this.
>
> What goes here?
>
> Private Sub UserAccountForm_Load(ByVal sender As object, ByVal args As
> EventArgs) Handles UserAccountForm.Load
> '//
> '// Add Event Handler Code
> '//
> End Sub
>
> Thanks
>
>
>
>
>
> [Non-text portions of this message have been removed]
>
2
Can someobdy help me out with the code necessary to set the format of a UD numeric field to one without decimals, i.e. Format: <<<9. My field is the Number01 field from the Part table and form

I assume that this can be handled as a Form Load event but I'm not clear what the code is to change this.

What goes here?

Private Sub UserAccountForm_Load(ByVal sender As object, ByVal args As EventArgs) Handles UserAccountForm.Load
'//
'// Add Event Handler Code
'//
End Sub


Thanks
3
Carl,



Add the following call in the InitializeCustomCode() section:

SetExtendedProps()





Then, add the following sub:



Private Sub SetExtendedProps()

Dim edv As EpiDataView = CType(oTrans.EpiDataViews("Part"),
EpiDataView)

edv.dataView.Table.Columns("Number01").ExtendedProperties("Format")
= ">>>9"

End Sub



Hope that helps,



Kevin Simon

SimsTrak Consulting



From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of
CarlH
Sent: Monday, July 18, 2011 3:37 PM
To: vantage@yahoogroups.com
Subject: [Vantage] Formatting a UD field in an Form





Can someobdy help me out with the code necessary to set the format of a UD
numeric field to one without decimals, i.e. Format: <<<9. My field is the
Number01 field from the Part table and form

I assume that this can be handled as a Form Load event but I'm not clear
what the code is to change this.

What goes here?

Private Sub UserAccountForm_Load(ByVal sender As object, ByVal args As
EventArgs) Handles UserAccountForm.Load
'//
'// Add Event Handler Code
'//
End Sub

Thanks





[Non-text portions of this message have been removed]