导出到excel后以美国格式显示的日期

问题描述

您好



我的数据存储在Access 2007数据库中。我创建了一个GUI，用于读取数据，日期显示为英国格式。 GUI读取数据库并将查询的信息放入数据表中，日期格式为英国格式。用户将数据从数据表导出到Excel 2007（工作正常），其中日期显示为英国格式。我使用以下代码：

Hello

My data is stored in an Access 2007 database. I have created a GUI which reads the data and the dates show in UK format. The GUI reads the database and put queried information into a datatable, the formats of the dates are in UK format. The user exports data from the datatable to Excel 2007 (works fine) where the dates show as UK format. I use the following code:

'Export the Columns to excel file
For Each dc In datatableMain.Columns
    colIndex = colIndex + 1
    oSheet.Cells(1, colIndex) = dc.ColumnName
Next

'Export the rows to excel file
For Each dr In datatableMain.Rows
    rowIndex = rowIndex + 1
    colIndex = 0
    For Each dc In datatableMain.Columns
        colIndex = colIndex + 1
        oSheet.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName)
        'ProgressBar.PerformStep()
        Progresslbl.Text = "Total rows exported = " & rowIndex & " out of " & MaxRows2
        Me.Refresh()
    Next
Next

导出正常，输出完全符合预期。但是当表格在GUI上重新加载时，日期已经从英国格式改为美国格式。



我试过处理数据表但这没有效果。 />


非常感谢任何帮助。

The export works fine and the output is exactly as expected. But when the form reloads on the GUI the dates have changed format from UK to USA format.

I have tried disposing of the datatable but this has no effect.

Any help would be greatly appreciated.

For Each item As ListViewItem In DocumentedLst.SelectedItems
    Ref.Text = item.SubItems(0).Text
    fwords = Ref.Text.Split(New Char() {" "c})

    For Each row In myDataTable.Rows
        Dim tempvalue As String = ds.Tables("FullDetails").Rows(inc)("SMART").ToString()

        words = tempvalue.Split(New Char() {" "c})
        If words(0) = fwords(0) Then
            fwords = tempvalue.Split(New Char() {" "c})
            foundRow = row
        End If
        inc = inc + 1
    Next row

    If item.Selected = True Then
        Ref.Text = fwords(0)

        Retrieve.Visible = False
        Submit.Visible = True
        Delete.Visible = True

        If foundRow IsNot Nothing Then

            If Mid(fwords(1), 1, 2) = "IM" Then
                IM.Text = fwords(1)
                Server.Text = fwords(2)
            Else
                IM.Text = ""
                Server.Text = fwords(1)
            End If

            LocationName.Text = foundRow(3).ToString()
            StartTime.Text = foundRow(4).ToString() ****** This is displaying as USA format after the export has completed and the form is reloaded. If I exit the application and relaunch it shows correctly. The only only appears after the export. ******

推荐答案

这篇关于导出到excel后以美国格式显示的日期的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！