I know someone post the solution before, but I didn't keep in mind .
So I am sorry to ask the same question again
I had bind a datatime to the textbox name txtInvoice

I want it displayed in dd-mm-yyyy
I try txtInvoice.txt = Format(txtInvoice.txt,"dd-mm-yyyy"), its return
error.
Anyone know to do it ??
Thanks

* "Agnes" <(E-Mail Removed)> scripsit:
> I had bind a datatime to the textbox name txtInvoice
>
> I want it displayed in dd-mm-yyyy
> I try txtInvoice.txt = Format(txtInvoice.txt,"dd-mm-yyyy"), its return
> error.

\\\
Dim d As Date = Date.Parse(txtInvoice.Text)
txtInvoice.Text = d.ToString(...)
///

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

Hi Agnes,

It was still on my clipboard as answer to John,

I hope this helps?

Cor

Private Sub myroutine()
Mybinding = New Binding("Text", ds.Tables(0), "mydatfield")
textdatfield.DataBindings.Add(Mybinding)
AddHandler mybinding.Format, AddressOf DBdateTextbox
AddHandler mybinding.Parse, AddressOf TextBoxDBdate
End sub
Private Sub DBdateTextbox(ByVal sender As Object, _
ByVal cevent As ConvertEventArgs)
If cevent.Value Is DBNull.Value Then
cevent.Value = ""
Else
Dim datum As Date
datum = CDate(cevent.Value)
cevent.Value = datum.ToString("dd - MM - yyyy")
End If
End Sub
Private Sub TextBoxDBdate(ByVal sender As Object, _
ByVal cevent As ConvertEventArgs)
If cevent.Value.ToString = "" Then
cevent.Value = DBNull.Value
End If
End Sub
///

Dear Cor,
It works BUT as i want to overwrite the date , it won't allow . I over
the date e.g 15-07-2004 to 05-07-2004,after press'tab'
It changed back into '15-07-2004'
Please ~~~
From AGnes
p.s- Your got a cliboard ?? where is it ?



"Cor Ligthert" <(E-Mail Removed)> ¦b¶l¥ó
news:(E-Mail Removed) ¤¤¼¶¼g...
> Hi Agnes,
>
> It was still on my clipboard as answer to John,
>
> I hope this helps?
>
> Cor
>
> Private Sub myroutine()
> Mybinding = New Binding("Text", ds.Tables(0), "mydatfield")
> textdatfield.DataBindings.Add(Mybinding)
> AddHandler mybinding.Format, AddressOf DBdateTextbox
> AddHandler mybinding.Parse, AddressOf TextBoxDBdate
> End sub
> Private Sub DBdateTextbox(ByVal sender As Object, _
> ByVal cevent As ConvertEventArgs)
> If cevent.Value Is DBNull.Value Then
> cevent.Value = ""
> Else
> Dim datum As Date
> datum = CDate(cevent.Value)
> cevent.Value = datum.ToString("dd - MM - yyyy")
> End If
> End Sub
> Private Sub TextBoxDBdate(ByVal sender As Object, _
> ByVal cevent As ConvertEventArgs)
> If cevent.Value.ToString = "" Then
> cevent.Value = DBNull.Value
> End If
> End Sub
> ///
>
>

Hi Agnes,

What is the standard time notation in Hongkong?

Cor

ps my clipboard was the place I had copied things.

> It works BUT as i want to overwrite the date , it won't allow . I over
> the date e.g 15-07-2004 to 05-07-2004,after press'tab'
> It changed back into '15-07-2004'
> Please ~~~
> From AGnes
> p.s- Your got a cliboard ?? where is it ?
>
>
>
> "Cor Ligthert" <(E-Mail Removed)> ¦b¶l¥ó
> news:(E-Mail Removed) ¤¤¼¶¼g...
> > Hi Agnes,
> >
> > It was still on my clipboard as answer to John,
> >
> > I hope this helps?
> >
> > Cor
> >
> > Private Sub myroutine()
> > Mybinding = New Binding("Text", ds.Tables(0), "mydatfield")
> > textdatfield.DataBindings.Add(Mybinding)
> > AddHandler mybinding.Format, AddressOf DBdateTextbox
> > AddHandler mybinding.Parse, AddressOf TextBoxDBdate
> > End sub
> > Private Sub DBdateTextbox(ByVal sender As Object, _
> > ByVal cevent As ConvertEventArgs)
> > If cevent.Value Is DBNull.Value Then
> > cevent.Value = ""
> > Else
> > Dim datum As Date
> > datum = CDate(cevent.Value)
> > cevent.Value = datum.ToString("dd - MM - yyyy")
> > End If
> > End Sub
> > Private Sub TextBoxDBdate(ByVal sender As Object, _
> > ByVal cevent As ConvertEventArgs)
> > If cevent.Value.ToString = "" Then
> > cevent.Value = DBNull.Value
> > End If
> > End Sub
> > ///
> >
> >
>
>

Standard time notation in Hong kong ? normally dd-mm-yyyy
If i used in vfp . it is called italian date format

From Agnes

"Cor Ligthert" <(E-Mail Removed)> ¦b¶l¥ó
news:(E-Mail Removed) ¤¤¼¶¼g...
> Hi Agnes,
>
> What is the standard time notation in Hongkong?
>
> Cor
>
> ps my clipboard was the place I had copied things.
>
> > It works BUT as i want to overwrite the date , it won't allow . I
over
> > the date e.g 15-07-2004 to 05-07-2004,after press'tab'
> > It changed back into '15-07-2004'
> > Please ~~~
> > From AGnes
> > p.s- Your got a cliboard ?? where is it ?
> >
> >
> >
> > "Cor Ligthert" <(E-Mail Removed)> ¦b¶l¥ó
> > news:(E-Mail Removed) ¤¤¼¶¼g...
> > > Hi Agnes,
> > >
> > > It was still on my clipboard as answer to John,
> > >
> > > I hope this helps?
> > >
> > > Cor
> > >
> > > Private Sub myroutine()
> > > Mybinding = New Binding("Text", ds.Tables(0), "mydatfield")
> > > textdatfield.DataBindings.Add(Mybinding)
> > > AddHandler mybinding.Format, AddressOf DBdateTextbox
> > > AddHandler mybinding.Parse, AddressOf TextBoxDBdate
> > > End sub
> > > Private Sub DBdateTextbox(ByVal sender As Object, _
> > > ByVal cevent As ConvertEventArgs)
> > > If cevent.Value Is DBNull.Value Then
> > > cevent.Value = ""
> > > Else
> > > Dim datum As Date
> > > datum = CDate(cevent.Value)
> > > cevent.Value = datum.ToString("dd - MM - yyyy")
> > > End If
> > > End Sub
> > > Private Sub TextBoxDBdate(ByVal sender As Object, _
> > > ByVal cevent As ConvertEventArgs)
> > > If cevent.Value.ToString = "" Then
> > > cevent.Value = DBNull.Value
> > > End If
> > > End Sub
> > > ///
> > >
> > >
> >
> >
>
>

Hi Agnes,

Before I wrote this message I tested it completly again, while I have used
it before, however I could not simulate your problem so show some code as
you have implemented it?

Cor

I just wrote a simple form with 2 textbox , txtDate is binded as following
As form load, it showed my data e.g 19-05-2004, and then i overwrite the
date field into '20-05-2004' ,press tab
it changed back into '19-05-2004'
Anything I done wrong ???
From Agnes

Private Sub Form1_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Load
daTest.Fill(DsTest)
Dim Mybinding As New Binding("Text", DsTest.Tables(0), "date")
txtDate.DataBindings.Add(Mybinding)
AddHandler txtDate.DataBindings("Text").Format, AddressOf
DBdateTextbox
AddHandler txtDate.DataBindings("Text").Parse, AddressOf
TextBoxDBdate
End Sub

"Cor Ligthert" <(E-Mail Removed)> ¦b¶l¥ó
news:(E-Mail Removed) ¤¤¼¶¼g...
> Hi Agnes,
>
> Before I wrote this message I tested it completly again, while I have used
> it before, however I could not simulate your problem so show some code as
> you have implemented it?
>
> Cor
>
>

Hi Agnes,

Can you try this sample, it needs one textbox and one button on a form.

I hope this helps?

Cor

\\\
Dim dt As New DataTable
Private Sub Form4_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
dt.Columns.Add(New DataColumn("mydate", GetType(System.DateTime)))
dt.Rows.Add(dt.NewRow)
Dim Mybinding As New Binding("Text", dt, "mydate")
TextBox1.DataBindings.Add(Mybinding)
AddHandler Mybinding.Format, AddressOf DBdateTextbox
AddHandler Mybinding.Parse, AddressOf TextBoxDBdate
dt.Rows(0)("mydate") = New Date(2004, 7, 15)
End Sub
Private Sub DBdateTextbox(ByVal sender As Object, _
ByVal cevent As ConvertEventArgs)
If cevent.Value Is DBNull.Value Then
cevent.Value = ""
Else
Dim datum As Date
datum = CDate(cevent.Value)
cevent.Value = datum.ToString("dd - MM - yyyy")
End If
End Sub
Private Sub TextBoxDBdate(ByVal sender As Object, _
ByVal cevent As ConvertEventArgs)
If cevent.Value.ToString = "" Then
cevent.Value = DBNull.Value
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
BindingContext(dt).EndCurrentEdit()
MessageBox.Show(dt.Rows(0)(0).ToString)
End Sub
///

Dear Cor,
I just try it.. [I overwrite the date to 16-07-2004 ,after press button
, it changed back >_< ]
Anyway, thanks for your kind help and coding.
I will try my best to search thr internet and seek the solution.
Thanks in advance
From Agnes

"Cor Ligthert" <(E-Mail Removed)> ¦b¶l¥ó
news:%(E-Mail Removed) ¤¤¼¶¼g...
> Hi Agnes,
>
> Can you try this sample, it needs one textbox and one button on a form.
>
> I hope this helps?
>
> Cor
>
> \\\
> Dim dt As New DataTable
> Private Sub Form4_Load(ByVal sender As Object, _
> ByVal e As System.EventArgs) Handles MyBase.Load
> dt.Columns.Add(New DataColumn("mydate", GetType(System.DateTime)))
> dt.Rows.Add(dt.NewRow)
> Dim Mybinding As New Binding("Text", dt, "mydate")
> TextBox1.DataBindings.Add(Mybinding)
> AddHandler Mybinding.Format, AddressOf DBdateTextbox
> AddHandler Mybinding.Parse, AddressOf TextBoxDBdate
> dt.Rows(0)("mydate") = New Date(2004, 7, 15)
> End Sub
> Private Sub DBdateTextbox(ByVal sender As Object, _
> ByVal cevent As ConvertEventArgs)
> If cevent.Value Is DBNull.Value Then
> cevent.Value = ""
> Else
> Dim datum As Date
> datum = CDate(cevent.Value)
> cevent.Value = datum.ToString("dd - MM - yyyy")
> End If
> End Sub
> Private Sub TextBoxDBdate(ByVal sender As Object, _
> ByVal cevent As ConvertEventArgs)
> If cevent.Value.ToString = "" Then
> cevent.Value = DBNull.Value
> End If
> End Sub
> Private Sub Button1_Click(ByVal sender As System.Object, _
> ByVal e As System.EventArgs) Handles Button1.Click
> BindingContext(dt).EndCurrentEdit()
> MessageBox.Show(dt.Rows(0)(0).ToString)
> End Sub
> ///
>
>