| 列1 |
列2 |
列3 |
说明列1/列二的值 |
| 3000 |
950 |
3 |
3.157894737 |
| 2000 |
600 |
3 |
3.333333333 |
| 1000 |
350 |
3 |
2.857142857 |
| 1500 |
500 |
3 |
3 |
| 5000 |
1000 |
5 |
5 |
执行下面代码，无法实现上面的需求，如何解决？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 If
End Select
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
执行上面的代码，无法实现下面需求，下面红色的第三列，如何实现？
| 第一列 |
第二列 |
第三列 |
说明列1/列二的值 |
| 3000 |
950 |
4 |
3.157894737 |
| 2000 |
600 |
4 |
3.333333333 |
| 1000 |
350 |
3 |
2.857142857 |
| 1500 |
500 |
3 |
3 |
| 5000 |
1000 |
5 |
5 |
强烈建议先花一个月时间，重新学习编程基础。基础的概念如果不搞懂，写再多的代码都学不会。
dre("第三列") = Math.Ceiling(dre("第一列") / dre("第二列") ）