雨笑烟燃-无所收获....

无所收获....

总感觉有点忙忙的,事情摆着还摆着没完成...
明天休息了,也算的是加班.. 汗·～
N天来有两点需要记录
1.在.net中Enum枚举如果要使用特殊字符或中文.需要使用"[]",今天偶然的测试发现.
[其实在每次新建web控件时都会自动有一个[Text]属性,只是一直没重视.]
举个例子说明下使用:
public Enum Charset
[中文gb2312]=0
[Utf-8]=1
[Windows]=2
end Enum '中文不需要加引号.
2.更新了datagrid数据导出到excel中组件
采用了两种方式,datagrid和datatable方式.
datagrid中只是输出datagrid中当前页的数据.并且没办法解决长数字被excel当成文本处理
而datatable很好好的解决,datatable是输出所有的记录.
部门源代码如下:
'------------------------------
Imports System
Imports System.IO
Imports System.Text
Imports System.ComponentModel
Imports System.Web.UI
Imports System.Web.UI.WebControls
'--------------------------------


#Region "Enum"
    <Browsable(False)> Public Enum OutputType
        CurrentPageDataGrid = 0
        AllPageDataGrid = 1
    End Enum
#End Region
#Region "Field"

    Private _AutoDatToFile As Boolean = True
    Private _page As Page
    Private _dt As DataTable
    Private _filename As String = String.Empty
    Private _outputtype As OutputType = OutputType.CurrentPageDataGrid
    Private _datagrid As Datagrid
    Friend WithEvents _ouputdatagrid As New Datagrid
    Private _formatnumbertostring As Boolean = False
#End Region

#Region "ProPerty"

    <Description("设置输出的page页面.必须设置")> Property Page() As Page
        Get
            If _page Is Nothing Then

                Throw New ArgumentException("请设置Page属性")
            Else
                Return _page
            End If
        End Get
        Set(ByVal Value As Page)
            _page = Value
        End Set
    End Property
    <Description("要输出的Datagrid的名称")> Property Datagrid() As Datagrid
        Get
            Return _datagrid
        End Get
        Set(ByVal Value As Datagrid)
            _datagrid = Value
        End Set
    End Property
    <Description("输出默认文件名")> Property FileName() As String
        Get
            Return _filename
        End Get
        Set(ByVal Value As String)
            If LCase(Right(Value, 4)) = ".xls" Then
                If _AutoDatToFile = True Then
                    _filename = AutoCurrentDate() & Value
                Else
                    _filename = Value
                End If

            Else
                Throw New Exception("输入正确的Excel文件格式", Nothing)
            End If

        End Set
    End Property
    <Description("要输出的DataTable的名称")> Property DataTable() As DataTable
        Get
            Return _dt
        End Get
        Set(ByVal Value As DataTable)
            _dt = Value
        End Set
    End Property
    <Description("输出类型,两种:输出当前的Datagrid或整个Datagrid[有分页的]")> Property OutputTypes() As OutputType
        Get
            Return _outputtype
        End Get
        Set(ByVal Value As OutputType)
            _outputtype = Value
        End Set
    End Property
    <Description("把长数字以文本格式输出,只对使用datatable有效.")> Property FormatOutputNumber() As Boolean
        Get
            Return _formatnumbertostring
        End Get
        Set(ByVal Value As Boolean)
            _formatnumbertostring = Value
        End Set
    End Property
    <Description("是否在输出的文件名中加入当前日期,默认为true")> Property AutoDatToFile() As Boolean
        Get
            Return _AutoDatToFile
        End Get
        Set(ByVal Value As Boolean)
            _AutoDatToFile = Value
        End Set
    End Property
#End Region
    Public Sub New()
    End Sub
    Public Sub New(ByVal OutputPage As System.Web.UI.Page, ByVal OutputDatagrid As System.Web.UI.WebControls.DataGrid, ByVal SavefileName As String)
        Page = OutputPage
        Datagrid = OutputDatagrid
        FileName = SavefileName
    End Sub
    Public Sub New(ByVal OutputPage As System.Web.UI.Page, ByVal OutputDatagrid As System.Web.UI.WebControls.DataGrid)
        Page = OutputPage
        Datagrid = OutputDatagrid
    End Sub
    Public Sub New(ByVal OutputPage As System.Web.UI.Page, ByVal dt As DataTable)
        Page = OutputPage
        DataTable = dt
    End Sub

    Private Sub AllDatagridOutput()
        Try
            With _page.Response
                .Clear()
                .ContentType = "application/vnd.ms-excel"
                .Buffer = True
                If _filename <> String.Empty AndAlso _filename <> "" Then
                    .AppendHeader("Content-Disposition", "attachment;filename=" & _filename)
                End If
                .Charset = "utf-8"
            End With
            _page.EnableViewState = False
            Dim oStringwriter As New StringWriter
            Dim ohtmltextwriter As New HtmlTextWriter(oStringwriter)

            _ouputdatagrid.DataSource = _dt
            _ouputdatagrid.DataBind()
            _ouputdatagrid.RenderControl(ohtmltextwriter)
            _page.Response.Write(oStringwriter.ToString)
            _page.Response.End()
        Catch
            Throw New ArgumentException
        End Try
    End Sub
    Private Sub CurrentDatagridOutput()
        Try
            _page.Response.Clear()
            _page.Response.Buffer = True
            _page.Response.ContentType = "application/vnd.ms-excel"

            If FileName <> String.Empty Then
                _page.Response.AppendHeader("Content-Disposition", "attachment;filename=" & _filename)
            End If

            _page.Response.Charset = "utf-8"
            _page.EnableViewState = False
            Dim oStringwriter As New StringWriter
            Dim ohtmltextwriter As New HtmlTextWriter(oStringwriter)
            Me.ClearControls(_datagrid)
            _datagrid.RenderControl(ohtmltextwriter)
            _page.Response.Write(oStringwriter.ToString)
            _page.Response.End()
        Catch ex As Exception
            Throw New Exception("可能是由于page设置错误.", Nothing)
        End Try
    End Sub
    Private Sub _ouputdatagrid_ItemDataBound(ByVal sender As Object, ByVal e As DataGridItemEventArgs) Handles _ouputdatagrid.ItemDataBound
        If _formatnumbertostring = True Then
            If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
                e.Item.Attributes.Add("style", "vnd.ms-excel.numberformat:@")
            End If
        End If
    End Sub

    Public Sub DatagridOutputToExcel()
        Select Case _outputtype
            Case OutputType.CurrentPageDataGrid
                CurrentDatagridOutput()
            Case OutputType.AllPageDataGrid
                AllDatagridOutput()
        End Select
    End Sub
    Private Sub ClearControls(ByVal control As Control)
        Dim i As Integer
        For i = control.Controls.Count - 1 To 0 Step -1
            ClearControls(control.Controls(i))
        Next i

        If Not TypeOf control Is TableCell Then
            If Not (control.GetType().GetProperty("SelectedItem") Is Nothing) Then
                Dim literal As New LiteralControl
                control.Parent.Controls.Add(literal)
                Try
                    literal.Text = CStr(control.GetType().GetProperty("SelectedItem").GetValue(control, Nothing))
                Catch
                End Try


                control.Parent.Controls.Remove(control)


            Else
                If Not (control.GetType().GetProperty("Text") Is Nothing) Then
                    Dim literal As New LiteralControl
                    control.Parent.Controls.Add(literal)
                    literal.Text = CStr(control.GetType().GetProperty("Text").GetValue(control, Nothing))
                    control.Parent.Controls.Remove(control)
                End If
            End If
        End If
        Return
    End Sub 'ClearControls
    Private Function AutoCurrentDate() As String
        Dim str As String
        Dim newdat As Date = Date.Now
        Return CStr(Right(Year(newdat), 2)) & CStr(Right("00" & Month(newdat), 2))

    End Function

写的匆忙,没有整理.望大家见谅。

雨笑烟燃

导航菜单

2006-3-24 17:42:8

无所收获....

Tags: works

发布:yuxiaoyanran | 分类:工作笔记 | 评论:0 | 引用:228 |

日历

网站目录

最新评论

最近发表

Powered By Z-Blog 1.6 Beta Build 60517

Copyright yxyr.com ,Some Rights Reserved.浙ICP备06021833号

雨笑烟燃

导航菜单

2006-3-24 17:42:8

无所收获....

Tags: works

发布:yuxiaoyanran | 分类:工作笔记 | 评论:0 | ShowViewNum(262) 引用:228 | ReSizeFont()

日历

网站目录

最新评论

最近发表

Powered By Z-Blog 1.6 Beta Build 60517

Copyright yxyr.com ,Some Rights Reserved.浙ICP备06021833号

发布:yuxiaoyanran | 分类:工作笔记 | 评论:0 | 引用:228 |