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

来源：互联网发布：金凤焊割循环编程编辑：程序博客网时间：2024/04/29 04:35

在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