主题：求助：导出报表时间显示不对

1、

For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
    For c As Integer = 0 To nms.length -1       
        If dt.cols(nms(c)).isdate Then           
            Sheet(r + 2, c).Style = st '从第三行第二列开始调用新样式:居中           
            Sheet(r + 2, c).Value = dt.rows(r)(nms(c))          
        Else
            Sheet(r + 2, c).Style = Style '从第三行第二列开始调用新样式:居中
            Sheet(r + 2, c).Value = dt.rows(r)(nms(c))
        End If
    Next
Next

2、

For r As Integer = 0 To dt.Rows.Count - 1 '填入数据

    Sheet.Rows(r+2).Height = 30  '设置第2行的行高
    For c As Integer = 0 To nms.length -1       
        If dt.cols(nms(c)).isdate Then           
            Sheet(r + 2, c).Style = st '从第三行第二列开始调用新样式:居中           
            Sheet(r + 2, c).Value = dt.rows(r)(nms(c))          
        Else
            Sheet(r + 2, c).Style = Style '从第三行第二列开始调用新样式:居中
            Sheet(r + 2, c).Value = dt.rows(r)(nms(c))
        End If
    Next
Next

加上代码

        st.BorderTop = XLS.LineStyleEnum.Thin
        st.BorderBottom = XLS.LineStyleEnum.Thin
        st.BorderLeft = XLS.LineStyleEnum.Thin
        st.BorderRight = XLS.LineStyleEnum.Thin
        st.BorderColorTop = Color.Black
        st.BorderColorBottom = Color.Black
        st.BorderColorLeft = Color.Black
        st.BorderColorRight = Color.Black
        st.AlignHorz = XLS.AlignHorzEnum.Center '水平居中
        st.AlignVert = XLS.AlignVertEnum.Center '垂直居中

再设置一种样式（不带边框的日期格式），设置

If dt.cols(nms(c)).isdate Then
    If dt.rows(r)(nms(c)) = Nothing Then
        Sheet(r + 2, c).Style = 新样式
    Else
        Sheet(r + 2, c).Style = st
    End If
    Sheet(r + 2, c).Value = dt.rows(r)(nms(c))
Else
    Sheet(r + 2, c).Style = Style '从第三行第一列开始调用新样式:居中,带边框
    Sheet(r + 2, c).Value = dt.rows(r)(nms(c))
End If