以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70594)
--  作者：dj68301367
--  发布时间：2015/6/24 20:17:00
--  代码问题
Select Case e.DataCol.Name
    Case "退仓数量"
        For Each Vdr As DataRow In DataTables("材料退仓申请单").DataRows
vdr("不良比例")=vdr("退仓数量")/vdr("订单数量")
Next

如果想写成以下格式应该怎么改

dim Vdr as Tables("材料退仓申请单")
Select Case e.DataCol.Name
    Case "退仓数量"
        vdr.datarow("不良比例")=vdr.datarow("退仓数量")/vdr.datarow("订单数量")
Next
--  作者：yinyb36
--  发布时间：2015/6/24 20:21:00
--  
dim Vdr as Tables("材料退仓申请单")
Select Case e.DataCol.Name
    Case "退仓数量"
if vdr.datarow("订单数量") =  0 then
         vdr.datarow("不良比例")= Nothing
else
        vdr.datarow("不良比例")=vdr.datarow("退仓数量")/vdr.datarow("订单数量")
end if
End Select
--  作者：大红袍
--  发布时间：2015/6/24 20:24:00
--  

Select Case e.DataCol.Name
    Case "退仓数量"
        If e.DataRow("订单数量") =  0 Then
            e.DataRow("不良比例")= Nothing
        Else
            e.DataRow("不良比例")=e.DataRow("退仓数量")/e.DataRow("订单数量")
        End If
End Select

[此贴子已经被作者于2015/6/24 20:24:39编辑过]
--  作者：yinyb36
--  发布时间：2015/6/24 20:29:00
--  

Select Case e.DataCol.Name
    Case "退仓数量"
        If e.DataRow("订单数量") =  0 Then
            e.DataRow("不良比例")= Nothing
        Else
            e.DataRow("不良比例")=e.DataRow("退仓数量")/e.DataRow("订单数量")
        End If
End Select