للأخوة الذين يعانون من ظهور الوقت بجانب التاريخ ...

للأخوة الذين يعانون من ظهور الوقت بجانب التاريخ عند الربط بمربعات نص

اقتباس

12/12/2006 12:00:00

قمت بتعديل الكود لكي يظهر التاريخ فقط

الموضوع الاصلي في الرابط التالي

/index.php?showtopic=82022

Private Sub myroutine()
		Dim Mybinding As Binding = New Binding("Text", DS1, "Date")
		Me.txtDate.DataBindings.Add(Mybinding)
		AddHandler Mybinding.Format, AddressOf convertToDate
	End Sub
	Private Sub convertToDate(ByVal sender As Object, _
	ByVal cevent As ConvertEventArgs)
		If cevent.Value Is DBNull.Value Then
			cevent.Value = ""
		Else
			cevent.Value = Format(CType(cevent.Value, Date), "dd/MM/yyyy")
		End If
	End Sub

ان شاء يفي بالغرض