4. select หลาย record แสดงใน datalist
พอดึงมาแสดงบนหน้าจอเป็น 2555
Sub DataList1_ItemDataBound(ByVal sender As Object, ByVal e As DataListItemEventArgs)
Dim lblCreateDate As Label = CType(e.Item.FindControl("lblCreateDate"), Label)
If Not IsNothing(lblCreateDate) Then
If e.Item.DataItem("CreateDate").ToString = "" Then
lblCreateDate.Text = e.Item.DataItem("CreateDate").ToString
Else
Dim shortDate1 As DateTime = DateTime.Parse(e.Item.DataItem("CreateDate"))
lblCreateDate.Text = shortDate1.ToShortDateString()
End If
End If
End Sub
Tag : .NET, Ms Access, Web (ASP.NET), VB.NET, VS 2003 (.NET 1.1)