以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表格函数问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107660)
--  作者：李筅笙
--  发布时间：2017/10/7 9:23:00
--  表格函数问题
 我想问下，在做表格时，想把一个数的余数给单独取值，例如：1.65，那么一栏保留1，另一栏保留0.65，该如何做
--  作者：shenyl0211
--  发布时间：2017/10/7 9:34:00
--  
a=1.65
b=a取整数=1
c=a-b=0.65
--  作者：有点甜
--  发布时间：2017/10/7 9:54:00
--  

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