以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  菜鸟求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77073)
--  作者：xiaoyuylx
--  发布时间：2015/11/10 16:29:00
--  菜鸟求助
当前表A列=800KG时，C列=B列*0.8，求教这个编程应该怎么写
--  作者：大红袍
--  发布时间：2015/11/10 16:32:00
--  

表达式列

 

iif(A=800, B, B*0.8)
--  作者：xiaoyuylx
--  发布时间：2015/11/10 16:53:00
--  
谢谢，其实问题的全部是这样的，当前表A列=800KG时，C列=B列*0.8；当前表A列=700KG时，C列=B列*0.7；当前表A列=600KG时，C列=B列*0.6以此类推。高手们，有人帮我解答下么，我还是大学毕业后第一次写这个，以前的VB都忘得差不多
--  作者：大红袍
--  发布时间：2015/11/10 16:57:00
--  

DataColChanged事件

 

If e.DataCol.name = "第一列" OrElse e.DataCol.name = "第二列" Then
    e.DataRow("第三列") = val(e.DataRow("第一列") / 1000) * val(e.DataRow("第二列"))
End If
--  作者：xiaoyuylx
--  发布时间：2015/11/11 14:31:00
--  
最后完成的结果是这样的
  DataColChanged事件
If e.DataRow("包装规格") = "800KG" Then
    e.DataRow("吨位") =e.DataRow("数量_个")*0.8
   ElseIf  e.DataRow("包装规格") = "700KG" Then
    e.DataRow("吨位") =e.DataRow("数量_个")*0.7
   ElseIf  e.DataRow("包装规格") = "600KG" Then
    e.DataRow("吨位") =e.DataRow("数量_个")*0.6
   ElseIf  e.DataRow("包装规格") = "500KG" Then
    e.DataRow("吨位") =e.DataRow("数量_个")*0.5
   ElseIf  e.DataRow("包装规格") = "400KG" Then
    e.DataRow("吨位") =e.DataRow("数量_个")*0.4
   ElseIf  e.DataRow("包装规格") = "25KG" Then
    e.DataRow("吨位") =e.DataRow("数量_个")*1
End If
可否有简化点方法，请指教
--  作者：大红袍
--  发布时间：2015/11/11 14:39:00
--  

Dim kgs() As String = {"800KG", "700KG"}

Dim vls() As double = {0.8, 0.7}

If e.DataCol.name = "包装规格" OrElse e.DataCol.name = "数量_个" Then
   
    Dim idx As Integer = Array.indexOf(kgs, e.DataRow("包装规格"))
   
    If idx >= 0 Then
        e.DataRow("吨位") =e.DataRow("数量_个")*vls(idx)
    Else
        e.DataRow("吨位") = Nothing
    End If
End If
--  作者：xiaoyuylx
--  发布时间：2015/11/11 16:44:00
--  
谢谢大师