以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  逻辑列的一个问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75563)
--  作者：douglas738888
--  发布时间：2015/10/10 13:21:00
--  逻辑列的一个问题
老师们指导下下，下面代码（有错误）想实现勾选逻辑列”订单退单“后，原来未付余款的值显示为”0“，
表A里的代码：

Dim dr1 As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "订单金额","预付订金","未付余款"
        dr1("未付余款") = dr1("订单金额")-dr1("预付订金")
End Select

If e.DataCol.Name ="订单退单" = True Then
   Dim dr2 As DataRow = DataTables("表A").Find("未付余款 \'" & e.OldValue & "\'")
      dr2("未付余款") = Nothing
End If
--  作者：zhchn888
--  发布时间：2015/10/10 13:36:00
--  
If e.DataCol.Name ="订单退单" = True Then?这好像不对吧，不是这么表达的吧?我也是学习学习
--  作者：Hyphen
--  发布时间：2015/10/10 14:28:00
--  

If e.DataCol.Name ="订单退单"  Then

 

或者

 

Dim dr1 As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "订单金额","预付订金","未付余款"
        dr1("未付余款") = dr1("订单金额")-dr1("预付订金")
    Case "订单退单"
        Dim dr2 As DataRow = DataTables("表A").Find("未付余款 \'" & e.OldValue & "\'")
        dr2("未付余款") = Nothing
End Select
--  作者：douglas738888
--  发布时间：2015/10/10 14:42:00
--  
老师，上述代码也有错误，报错，说FLASE没有操作数
--  作者：Hyphen
--  发布时间：2015/10/10 15:13:00
--  
Dim dr2 As DataRow = DataTables("表A").Find("未付余款 =\'" & e.OldValue & "\'")