不能整除如何取整？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 不能整除如何取整？

共有30人关注过本帖树形打印复制链接主题：不能整除如何取整？

lin98

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1370 积分：9115 威望：0 精华：0 注册：2020/11/4 22:15:00

不能整除如何取整？ 发帖心情

Post By：2025/1/10 10:11:00 [显示全部帖子]

执行下面代码，无法实现上面的需求，如何解决？

Dim dre As DataRow = e.DataRow

Select Case e.DataCol.Name

Case "列1", "列2"

If dre.IsNull("列1") OrElse dre.IsNull("列2") Then

dre("列3") = Nothing

Else

'dre("列3") = dre("列1") / dre("列2")

Dim d As Double = dre("列1") / dre("列2")

' If d > 0 Then

If d = 0 Then

dre("列3") = d

Else

dre("列3") = d+ 1

End If

End Select

lin98

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1370 积分：9115 威望：0 精华：0 注册：2020/11/4 22:15:00

Post By：2025/1/10 11:15:00 [显示全部帖子]

Dim dre As DataRow = e.DataRow

Select Case e.DataCol.Name

Case "第一列", "第二列"

If dre.IsNull("第一列") OrElse dre.IsNull("第二列") Then

dre("第三列") = Nothing

Else

dre("第三列") = dre("第一列") / dre("第二列")

Dim Lng As Long = Math.Ceiling(dre("第三列"))

End If

End Select

执行上面的代码，无法实现下面需求，下面红色的第三列，如何实现？

主题：不能整除如何取整？