datagrid
在这里我们来讲一篇关于如何进行数据列内容与显示操作的方法。这种方法类似于实现：有数据表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
'编写人员：闵峰
'日期时间：
'遗留问题：点击列标题排序会发生显示值的改变，这是一个bug吗？有待解决
'************************************************************************************
Public Class cansetvaluedatagridtextbox
Inherits System.Windows.Forms.DataGridTextBoxColumn
#Region " Windows 窗体设计器生成的代码 "
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
End Sub
'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 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
'注意：以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
#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, _
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, _
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_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
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
