从数据库提取出数据修改后让datagird显示

作者：zhaozj
发表时间：2020-12-23 10:55
来源：未知

在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