类似BOOLEAN列的DATAGRIDTEXTBOX的改进

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