主题：菜鸟求助

表达式列

iif(A=800, B, B*0.8)

DataColChanged事件

If e.DataCol.name = "第一列" OrElse e.DataCol.name = "第二列" Then
    e.DataRow("第三列") = val(e.DataRow("第一列") / 1000) * val(e.DataRow("第二列"))
End If

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