'重写该过程是为了以合适的形式来显示数据(★)
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
&nb
| 对此文章发表了评论 |

