主题：[求助]多列多条件求值问题求助

iif(机械名称='推土机' and 单位='台班', 1000*0.45*租赁价, iif(机械名称='水车' and 单位='台班',600*0.45*租赁价, iif(机械名称='水车' and 单位='月',640*0.45*租赁价,0)))

 1、单价列做成数据列

 

 2、datacolchanged事件，代码

 

If e.DataCol.Name = "机械名称" OrElse e.DataCol.Name = "单位" OrElse e.DataCol.Name = "租赁价" Then
    If e.DataRow("机械名称")="推土机" AndAlso e.DataRow("单位")="台班" Then
        e.DataRow("单价") = 1000*0.45*e.DataRow("租赁价")
    Else If e.DataRow("机械名称")="水车" AndAlso e.DataRow("单位")="台班" Then
        e.DataRow("单价") = 640*0.45*e.DataRow("租赁价")
    Else If e.DataRow("机械名称")="水车" AndAlso e.DataRow("单位")="月" Then
        e.DataRow("单价") = 640*0.45*e.DataRow("租赁价")
    Else
        e.DataRow("单价") = Nothing
    End If
End If

 你要填入对应数据才会计算

 我测试可以。

 

 1、填入机械名称；

 

 2、填入单位；

 

 3、填入租赁价

 按钮代码

 

DataTables("机械费表").DataCols("机械名称").RaiseDataColChanged()

  看楼上，直接触发某一列的重置列啊

 单用的话，就买商业版，如果多人用，就买开发版。

 

 可以联系客服要求签合同。

 我不清楚你的逻辑，但是我看你的需求就是这样说的 1000*0.45*租赁价，具体你可以改一下公式

For Each dr As DataRow In DataTables("表A").DataRows
    If dr("机械名称")="推土机" AndAlso dr("单位")="台班" Then
        dr("单价") = 1000*0.45*dr("租赁价")
    Else If dr("机械名称")="水车" AndAlso dr("单位")="台班" Then
        dr("单价") = 640*0.45*dr("租赁价")
    Else If dr("机械名称")="水车" AndAlso dr("单位")="月" Then
        dr("单价") = 640*0.45*dr("租赁价")
    Else
        dr("单价") = Nothing
    End If
Next

 直接写到按钮的的click事件即可