在datagrid中有一列是显示日期的,但是设计人员在数据库中插入的是一个连续的字符串,现在要求在datagird中显示如2004/08/03 23:16:16的格式,有几个想法:在数据集中修改,然后写回数据集显示出来,另一个是写一个sql语句,然后直接对查询出来的数据修改后再写入数据集,最后采用了一个更简单的方法,直接修改datagird的输出,写了一个函数:
Private Function FormatDate(ByVal strIn As String) As String
Dim strRtn As String = ""
strRtn = Left(strIn, 4) & "/"
strRtn += Mid(strIn, 5, 2) & "/"
strRtn += Mid(strIn, 7, 2) & " "
strRtn += Mid(strIn, 9, 2) & ":"
strRtn += Mid(strIn, 11, 2) & ":"
strRtn += Mid(strIn, 13, 2)
Return strRtn
End Function
最后在databing()插入这个函数
For i = 0 To Me.DataGrid1.Items.Count - 1
DataGrid1.Items(i).Cells(1).Text = FormatDate(DataGrid1.Items(i).Cells(1).Text)
Next