DateTime in DataSet, want to display as Date (11/11/1111) type

[Helen]

I have an array being passed as a parameter to Crystal 9 (using vb .net in VS 2002). The listbox containing the dataset output at runtime shows DateTime format, but I want to only show mm/dd/yyyy format to the user. How is this accomplished? I changed the dataset type for the field to "Date" but it made no difference
Tks.

[Eric Lemmon]

Hi Helen,

There's no really good way to store a date. It is either free text or
date/time. (Not until the next edition of SQL Server will we have a
seperate date data type.)

Until then, you might want to keep the data as it is in the data set. Then,
in the binding's parse and format events, use the Format(myText, "Short
Date") function to format the list box items.

Hope this helps...

Eric

"Helen" <an*******@disc ussions.microso ft.com> wrote in message
news:79******** *************** ***********@mic rosoft.com...

I have an array being passed as a parameter to Crystal 9 (using vb .net in VS 2002). The listbox containing the dataset output at runtime shows
DateTime format, but I want to only show mm/dd/yyyy format to the user. How
is this accomplished? I changed the dataset type for the field to "Date"
but it made no difference. Tks.

[Cor Ligthert]

Hi Helen,

Have a look at this.
http://msdn.microsoft.com/library/de...ormattopic.asp

I hope this helps?

Cor

[Helen]

Thanks, Eric and Cor, but I'm still not resolving this. Here's my code
Private Sub ConfigureCrysta lReports(
AReport = New A(
Dim myCrystalReport Viewer = CrystalReportVi ewer

Dim myArrayList As ArrayList = New ArrayList(
myArrayList.Add ("6/11/2001"
myArrayList.Add ("1/31/2001"

ListBox1.DataSo urce = GetDefaultValue sFromParameterF ield(AReport
SetCurrentValue sForParameterFi eld(A, myArrayList
myCrystalReport Viewer.ReportSo urce = ARepor

End Su

Private Sub SetCurrentValue sForParameterFi eld(ByVal myReportDocumen t As ReportDocument, ByVal myArrayList As ArrayList
Dim currentParamete rValues As ParameterValues = New ParameterValues (
Dim submittedValue As Objec
For Each submittedValue In myArrayLis
Dim myParameterDisc reteValue As ParameterDiscre teValue = New ParameterDiscre teValue(
myParameterDisc reteValue.Value = submittedValue. ToString(
currentParamete rValues.Add(myP arameterDiscret eValue
Nex

Dim myParameterFiel dDefinitions As ParameterFieldD efinitions = myReportDocumen t.DataDefinitio n.ParameterFiel d
Dim myParameterFiel dDefinition As ParameterFieldD efinition = myParameterFiel dDefinitions(PA RAMETER_FIELD_N AME
myParameterFiel dDefinition.App lyCurrentValues (currentParamet erValues
End Su

Private Function GetDefaultValue sFromParameterF ield(ByVal myReportDocumen t As ReportDocument) As ArrayLis
Dim myParameterFiel dDefinitions As ParameterFieldD efinitions = myReportDocumen t.DataDefinitio n.ParameterFiel d
Dim myParameterFiel dDefinition As ParameterFieldD efinition = myParameterFiel dDefinitions(PA RAMETER_FIELD_N AME
Dim defaultParamete rValues As ParameterValues = myParameterFiel dDefinition.Def aultValue

Dim myArrayList As ArrayList = New ArrayList(

Dim myParameterValu e As ParameterValu
For Each myParameterValu e In defaultParamete rValue
If (Not myParameterValu e.Kind.RangeVal ue) The
Dim myParameterDisc reteValue As ParameterDiscre teValue = CType(myParamet erValue, ParameterDiscre teValue
myArrayList.Add (myParameterDis creteValue.Valu e.ToString
End I
Nex
Return myArrayLis

End Functio

I'm not finding parse and format events for the bindings, Eric. How would I handle this
Thanks

[Cor Ligthert]

Hi Helen,

I misreaded your message totally the firsttime,

Does this sample help you?

Cor
\\\
Dim dt As New DataTable("Hele n")
dt.Columns.Add( New DataColumn("Dat es", _
Type.GetType("S ystem.DateTime" )))
For i As Integer = 0 To 10
Dim dr As DataRow = dt.NewRow
dr("Dates") = CDate("01-01-2004").AddMonth s(i)
dt.Rows.Add(dr)
Next
MessageBox.Show (CDate(dt.Rows( 5)("Dates")).To String("MM-dd-yyyy"))
////

[Helen]

Hi, Cor:

I see this works, tks for the help. Can I bind a datatable to a listbox, just like a dataset, so then I can build your logic into the listbox?

I've started hardcoding the datasets and it seems more stable. I'd like to try your datatable concept.

Tks, Helen

[Cor Ligthert]

Hi Helen,

Yes you can.
The listbox and combobox works both a little bit the same and I saw you
managed to do that, the both derive from listcontrol.

I hope this helps?

Cor

I see this works, tks for the help. Can I bind a datatable to a listbox, just like a dataset, so then I can build your logic into the listbox?