Binding ListBox to Date Only

[Eric Lemmon]

Greetings,

I have a VB.NET Windows app where I bind a listbox to a DataView column that contains date values. In this list, however, only the date (not the time) is relavent, so I want to eliminate the time. As an example, SQL Server returns: 2004-04-18 00:00:00.000. Instead, I want: 4/18/2004.
Is there a way to alter the format in which the DataView displays a table's rows without having to alter data source?

As a (hopefully) temporary solution, I am simply adding a "FormattedD ate" column to the underlying data table. Then I loop through the rows and insert the formatted date to this column using the ToString("d") method. It does work, but surely there is a more efficient way. Any suggestions are greatly appreciated.

For reference, here is the sub I wrote:

Private Sub AddDateColumn()

Try



With dsCIVM.MVRs



' Make sure column does not already exist.

If .Columns(.Colum ns.Count - 1).ColumnName <> "FormattedD ate" Then

dsCIVM.MVRs.Col umns.Add("Forma ttedDate")

End If



' Format date in each row, adding it to the new column.

Dim i As Integer

For i = 0 To .Rows.Count - 1



If Not IsDBNull(.Rows( i).Item("DateRu n")) Then

Dim dt As DateTime = .Rows(i).Item(" DateRun")

.Rows(i).Item(" FormattedDate") = dt.ToString("d" )

End If

Next

End With



' Set the display member to formatted date.

listDriverMVRDa tesRun.DisplayM ember = "FormattedD ate"



Catch ex As Exception

WriteErrorToEve ntLog("AddDateC olumn()", ex)

End Try

End Sub
Thank you!

Eric

[Cor Ligthert]

Hi Eric,

I once made this sample, with that it should go.
(I am in Europe so look yourself for your properiate tostring format)

I hope this helps?

Cor

\\\
Private Sub myroutine()
Mybinding = New Binding("Text", ds.Tables(0), "mydatfield ")
textdatfield.Da taBindings.Add( Mybinding)
AddHandler mybinding.Forma t, AddressOf DBdateTextbox
AddHandler mybinding.Parse , AddressOf TextBoxDBdate
End sub
Private Sub DBdateTextbox(B yVal sender As Object, _
ByVal cevent As ConvertEventArg s)
If cevent.Value Is DBNull.Value Then
cevent.Value = ""
Else
Dim datum As Date
cevent.Value = datum.ToString( "dd - MM - yyyy")
End If
End Sub
Private Sub TextBoxDBdate(B yVal sender As Object, _
ByVal cevent As ConvertEventArg s)
If cevent.Value.To String = "" Then
cevent.Value = DBNull.Value
End If
End Sub
///

[Ken Tucker [MVP]]

Hi,

The parse and format events dont work with the listbox because it a complex bind. Try making an owner drawn listbox and formatting it before you draw it. Here is a simple example.
Dim dsXML As New DataSet

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load

dsXML.ReadXml(" http://msdn.microsoft. com/rss.xml")
ListBox1.DataSo urce = dsXML.Tables("i tem")
ListBox1.Displa yMember = "pubDate"
ListBox1.DrawMo de = DrawMode.OwnerD rawFixed
End Sub

Private Sub ListBox1_DrawIt em(ByVal sender As Object, ByVal e As System.Windows. Forms.DrawItemE ventArgs) Handles ListBox1.DrawIt em
Dim g As Graphics = e.Graphics
Dim dr As DataRowView
Dim dt As Date
Dim s As String

Try
dr = DirectCast(List Box1.Items.Item (e.Index), DataRowView)
dt = Date.Parse(dr.I tem("pubDate"). ToString)
s = dt.ToShortDateS tring
Catch ex As Exception
Trace.WriteLine (ex.ToString)
End Try

g.FillRectangle (Brushes.White, e.Bounds)

If CBool(e.State And DrawItemState.S elected) Then
g.FillRectangle (Brushes.LightB lue, e.Bounds)
End If

g.DrawString(s, ListBox1.Font, Brushes.Black, _
RectangleF.op_I mplicit(e.Bound s))
End Sub
Ken
-------------------------
"Eric Lemmon" <E_************ ********@hotmai l.com> wrote in message news:uj******** ******@TK2MSFTN GP12.phx.gbl...
Greetings,

I have a VB.NET Windows app where I bind a listbox to a DataView column that contains date values. In this list, however, only the date (not the time) is relavent, so I want to eliminate the time. As an example, SQL Server returns: 2004-04-18 00:00:00.000. Instead, I want: 4/18/2004.
Is there a way to alter the format in which the DataView displays a table's rows without having to alter data source?

As a (hopefully) temporary solution, I am simply adding a "FormattedD ate" column to the underlying data table. Then I loop through the rows and insert the formatted date to this column using the ToString("d") method. It does work, but surely there is a more efficient way. Any suggestions are greatly appreciated.

For reference, here is the sub I wrote:

Private Sub AddDateColumn()

Try



With dsCIVM.MVRs



' Make sure column does not already exist.

If .Columns(.Colum ns.Count - 1).ColumnName <> "FormattedD ate" Then

dsCIVM.MVRs.Col umns.Add("Forma ttedDate")

End If



' Format date in each row, adding it to the new column.

Dim i As Integer

For i = 0 To .Rows.Count - 1



If Not IsDBNull(.Rows( i).Item("DateRu n")) Then

Dim dt As DateTime = ..Rows(i).Item( "DateRun")

.Rows(i).Item(" FormattedDate") = dt.ToString("d" )

End If

Next

End With



' Set the display member to formatted date.

listDriverMVRDa tesRun.DisplayM ember = "FormattedD ate"



Catch ex As Exception

WriteErrorToEve ntLog("AddDateC olumn()", ex)

End Try

End Sub
Thank you!

Eric

[Eric Lemmon]

Thanks for the replies everyone. It is greatly appreciated.

And, Ken, you are absolutely right. Your owner drawing idea works perfectly, and it is much faster than looping through the DataSet like I was doing before.

Thanks again,

Eric