主题：用FIND写入不了表达式列的内容

Dim cc As DataRow

cc = DataTables("订单").Find("[主订单号] = '" & e.NewValue & "'")

If cc IsNot Nothing Then

    If cc("主次") = "次"

        e.DataRow("重出") = Nothing

    Else

        Dim s As Double

        If cc("订单状态") = "已取消" OrElse cc.isnull("折算数")

            s = 0

        Else

            s =  cc("折算数")

        End If

        If cc.isnull("直出数") = False

            s =  s - cc("直出数")

        End If

        If cc.isnull("分出数") = False

            s =  s - cc("分出数")

        End If

        If s >= 0

            e.DataRow("重出") = Nothing

        Else

            e.DataRow("重出") = "重"

        End If

    Else

        e.DataRow("重出") = "无记录"

    End If

    ……