重写datagridtextboxcolumn实现设置显示与实际列值！（例如性别的显示）

在这里我们来讲一篇关于如何进行数据列内容与显示操作的方法。这种方法类似于实现：有数据表test(id int not null primary key ,name varchar(20) ,sex bit ), 那么是否有方法不通过直接使用sql语句，如：select id ,name ,sex =case sex ( when true then ‘男’ when false then ‘女’ else sex end) 的形式来构建要显示的是“男”，“女”，而实际上存储的是true和false呢？当然，如果我们使用datagridboolcolumn，通过设置它的一些属性（truevalue,falsevalue）可以达到类似的效果，但对于那些非bit列呢？回答是肯定的。我们使用继承datagridtextboxcolumn类，然后重写GetColumnValueAtRow方法，来达到效果。GetColumnValueAtRow方法，把要从数据源的数据取出，然后判断后，返回我们想要在网格中显示的值。（代码见后面的详细代码）

这样，我们可以顺利地在网格中显示我们想要的数据了，但是还有另外一个问题，就是如果我们想在网格中修改数据，那么是否可以被提交给数据库呢？如果仅仅通过上面的操作，只是达到了显示的目的，还要重写edit,commit，abort方法，来达到点击单元格后修改内容，然后提交，最后更新到数据库。

效果图1

下面是程序的完整代码，这里只是抛砖引玉，希望你可以根据需要来作出相应的改进。

'************************************************************************************

'程序名称：CanSetValueDatagridTextbox

'功能说明：继承自datagridtextboxcolumn类的列样式，主要实现显示值与实际值的显示与更新                                                

'参数说明：无

'返回值  ：cansetvaluedatagridtextbox

'编写人员：闵峰

'日期时间： 2005-06-16上午

'遗留问题：点击列标题排序会发生显示值的改变，这是一个bug吗？有待解决

'************************************************************************************

Public Class cansetvaluedatagridtextbox

Inherits System.Windows.Forms.DataGridTextBoxColumn

 #Region " Windows 窗体设计器生成的代码 " 

 #Region " Windows 窗体设计器生成的代码 " 

 #Region " Windows 窗体设计器生成的代码 " 

 #Region " Windows 窗体设计器生成的代码 " 

 #Region " Windows 窗体设计器生成的代码 " 

    Public Sub New()

        MyBase.New()

         '该调用是 Windows 窗体设计器所必需的。

         '该调用是 Windows 窗体设计器所必需的。

         '该调用是 Windows 窗体设计器所必需的。

         '该调用是 Windows 窗体设计器所必需的。

         '该调用是 Windows 窗体设计器所必需的。

        InitializeComponent()

         '在 InitializeComponent() 调用之后添加任何初始化

         '在 InitializeComponent() 调用之后添加任何初始化

         '在 InitializeComponent() 调用之后添加任何初始化

         '在 InitializeComponent() 调用之后添加任何初始化

         '在 InitializeComponent() 调用之后添加任何初始化

 End Sub

     'UserControl 重写 dispose 以清理组件列表。

     'UserControl 重写 dispose 以清理组件列表。

     'UserControl 重写 dispose 以清理组件列表。

     'UserControl 重写 dispose 以清理组件列表。

     'UserControl 重写 dispose 以清理组件列表。

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

        If disposing Then

            If Not (components Is Nothing) Then

                components.Dispose()

            End If

        End If

        MyBase.Dispose(disposing)

    End Sub

    'Windows 窗体设计器所必需的

    'Windows 窗体设计器所必需的

    'Windows 窗体设计器所必需的

    'Windows 窗体设计器所必需的

    'Windows 窗体设计器所必需的

    Private components As System.ComponentModel.IContainer

    '注意：以下过程是 Windows 窗体设计器所必需的

    '注意：以下过程是 Windows 窗体设计器所必需的

    '注意：以下过程是 Windows 窗体设计器所必需的

    '可以使用 Windows 窗体设计器修改此过程。

    '不要使用代码编辑器修改它。

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        components = New System.ComponentModel.Container()

    End Sub

 #End Region

 #End Region

 #End Region

    Private rnum As Integer '列序号

    Private rname As String = "" '列名称

    Private m_type As Type '列的类型

 Public Sub New(ByVal source As DataTable, ByVal rnum As Integer, ByVal displaytrue As String, ByVal truevalue As String, _

 Public Sub New(ByVal source As DataTable, ByVal rnum As Integer, ByVal displaytrue As String, ByVal truevalue As String, _

 Public Sub New(ByVal source As DataTable, ByVal rnum As Integer, ByVal displaytrue As String, ByVal truevalue As String, _

    ByVal displayfalse As String, ByVal falsevalue As String)

        rnum = rnum

        m_displaytrue = displaytrue

        m_valuetrue = truevalue

        m_displayfalse = displayfalse

        m_valuefalse = falsevalue

        m_type = source.Columns(rnum).DataType

    End Sub

 Public Sub New(ByVal source As DataTable, ByVal rname As String, ByVal displaytrue As String, ByVal truevalue As String, _

 Public Sub New(ByVal source As DataTable, ByVal rname As String, ByVal displaytrue As String, ByVal truevalue As String, _

 Public Sub New(ByVal source As DataTable, ByVal rname As String, ByVal displaytrue As String, ByVal truevalue As String, _

    ByVal displayfalse As String, ByVal falsevalue As String)

        rname = rname

        m_displaytrue = displaytrue

        m_valuetrue = truevalue

        m_displayfalse = displayfalse

        m_valuefalse = falsevalue

        m_type = source.Columns(rname).GetType

    End Sub

    Private m_displaytrue As String '显示的真值

    Private m_displaytrue As String '显示的真值

    Private m_displaytrue As String '显示的真值

    Private m_displayfalse As String '显示的假值

    Private m_valuefalse As String '存储的假值

    Private m_valuetrue As String '存储的真值

  '-------------以下内容操作数据的显示---------------

  '-------------以下内容操作数据的显示---------------

  '-------------以下内容操作数据的显示---------------

    '重写该过程是为了以合适的形式来显示数据（★）

    Protected Overrides Function GetColumnValueAtRow(ByVal source As System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer) As Object

        '从数据源获得指定行的数据(注意：这里使用的类型是object)

        Dim Result As Object = MyBase.GetColumnValueAtRow(source, rowNum)

        '显示的设置

        If Result.ToString = m_valuetrue Then

            Return Me.m_displaytrue

        ElseIf Result.ToString = m_valuefalse Then

            Return Me.m_displayfalse

        ElseIf Result Is DBNull.Value Then

            If Me.NullText Is Nothing Then

                Return DBNull.Value

            Else

                Return Me.NullText

            End If

        Else

            Throw New Exception("该列中存在没有指定显示的字符！")

        End If

    End Function

    '---------------以下内容操作更新------------------

    Private isediting As Boolean = False '是否在修改状态

    Private oldvalue As Object '原始值

 '点击单元格，准备编辑（★）

 '点击单元格，准备编辑（★）

 '点击单元格，准备编辑（★）

    Protected Overloads Overrides Sub Edit(ByVal source As System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer, ByVal bounds As System.Drawing.Rectangle, ByVal [readOnly] As Boolean, ByVal instantText As String, ByVal cellIsVisible As Boolean)

        Console.WriteLine("edit") '---------

        '直接触发父类事件，是为了达到点击后选中文本的效果。（如果不触发就要自己把textbox移动到对应的边框内）

        MyBase.Edit(source, rowNum, bounds, [readOnly], instantText, cellIsVisible)

        '设置修改码

        isediting = True

        '记录原始值

        oldvalue = Me.GetColumnValueAtRow(source, rowNum)

    End Sub

  '对输入的修改进行提交（★）

  '对输入的修改进行提交（★）

  '对输入的修改进行提交（★）

    Protected Overrides Function Commit(ByVal dataSource As System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer) As Boolean

        Console.WriteLine("in commit") '---------

        '如果修改码为真则意味着修改完毕

        If Not isediting Then Return True

        '获得单元格的内容

        Dim currentvalue As Object = Me.TextBox.Text

        Console.WriteLine(currentvalue) '---------

        Try

            currentvalue = setsuitablevalue(currentvalue)

            SetColumnValueAtRow(dataSource, rowNum, currentvalue)

        Catch ex As Exception

            Return False

        End Try

        isediting = False

        Invalidate()

        Console.WriteLine("out commit") '---------

   Return True

   Return True

   Return True

 End Function

 End Function

 End Function

   '放弃的处理

   '放弃的处理

   '放弃的处理

    Protected Overrides Sub Abort(ByVal rowNum As Integer)

        Console.WriteLine("abort")

        isediting = False

        Me.TextBox.Text = oldvalue

        Me.Invalidate()

    End Sub

    '显示类型转换函数

    '显示类型转换函数

    '显示类型转换函数

    Private Function getchangetype(ByVal s As String) As Object

        Select Case m_type.ToString

            Case "System.Integer"

                Console.WriteLine("integer")

                Return Convert.ToInt32(s)

            Case "System.Boolean"

                Console.WriteLine("boolean")

                Return Convert.ToBoolean(s)

            Case "System.String"

                Return s

            Case "System.Decimal"

                Return Convert.ToDecimal(s)

        End Select

    End Function

    Private Function setsuitablevalue(ByVal s As String) As Object

        If s = Me.NullText Then

            Return DBNull.Value

        ElseIf s = m_displaytrue Then

            Return getchangetype(m_valuetrue)

        ElseIf s = m_displayfalse Then

            Return getchangetype(m_valuefalse)

        Else

            Throw New Exception("输入非法，请检查输入后准备提交的值！")

        End If

    End Function

End Class