主题：[求助]缺少运算符

Select Case e.DataCol.name
    Case "数量", "K数", "粘片基"
        Dim zpj As String = iif(e.DataRow("粘片基") = True, "粘片基", "")
        If zpj = "" Then
            e.DataRow("粘片基费") = Nothing
        Else
            Dim fdr1 As DataRow = DataTables("粘片基").find("盒子大小K <= " & e.DataRow("K数") & "", "盒子大小K desc")
            If fdr1 IsNot Nothing Then
                e.DataRow("粘片基费") = IIF(e.DataRow("数量")>fdr1("起订个数"),fdr1("开机费") + (e.DataRow("数量") - fdr1("起订个数")) * fdr1("单价"), fdr1("开机费"))
            End If
        End If
End Select