主题：[求助]菜单中的 % 命令

使用菜单中的 %  命令对  实体材料分析表  单位是 % 的行的 金额 求值

Dim a As Table = Tables("实体预算书.实体材料分析")
Dim r As Integer
r = a.Find("%", 0, "单位", True, True, False)
If r = - 1 Then
    MessageBox.Show("此项目不包含 % 材料", "提示")
    Dim S1 As Double = a.Compute("Sum(金额)", "RCJ = 'R'")
    Dim S2 As Double = a.Compute("Sum(金额)", "RCJ = 'C'")
    Dim S3 As Double = a.Compute("Sum(金额)", "RCJ = 'J'")
    Dim b As Double = a.Rows(r)("定额用量")
ElseIf a.Rows(r)("材料编号") = "AW0021" Then
DataTables("实体材料分析").DataCols("金额").Expression = "S2*b/100"
End If

红色字体代码出现错误（有7个材料编号的单位是%，需要对“RCJ”列为“R” 、“C”、“J”求和后，乘以一个百分比数获得金额）



已解决！方法是参照了帮助中下面代码：

Dim exp As String = "[数量] * [单价] * 0.8"
Dim drs As List(of DataRow) = DataTables("订单").Select("数量 > 500")
For Each dr As DataRow In drs
    dr("金额") = Eval(exp,dr)
Next

单元格公式这样做。