主题：表格函数问题

 我想问下，在做表格时，想把一个数的余数给单独取值，例如：1.65，那么一栏保留1，另一栏保留0.65，该如何做

DataColChanged事件

 

Select Case e.DataCol.Name
    Case "第一列"
        If e.DataRow.IsNull("第一列") Then
            e.DataRow("第二列") = Nothing
            e.DataRow("第三列") = Nothing
        Else
            Dim ary() As String = cstr(e.DataRow("第一列")).split(".")
            If ary.length = 2 Then
                e.DataRow("第二列") = ary(0)
                e.DataRow("第三列") = ary(1)
            Else
                e.DataRow("第二列") = ary(0)
                e.DataRow("第三列") = nothing
            End If
        End If
End Select