以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  今天加了一句代码，就一直闪退  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132177)
--  作者：cyrollin
--  发布时间：2019/3/15 15:48:00
--  今天加了一句代码，就一直闪退
Select Case e.DataCol.name
    Case "服务内容","支付方式", "包月价","预付","付款状态"
       If e.DataRow("服务内容") Like "foxtable*" AndAlso e.DataRow("支付方式") Like "月付*"
          e.DataRow("付款状态") = "未付"
          Dim bh As String = e.DataRow("编号")
          Dim drcs = DataTables("客户资料").find("编号 = \'"& bh &"\'")   
              If drcs IsNot Nothing Then
                e.DataRow("包月价") = IIF(drcs("支付方式") Like "预付*",Nothing, drcs("包月价"))
                Else
                e.DataRow("包月价") = Nothing
              End If
          Else
          e.DataRow("包月价") = Nothing
          e.DataRow("付款状态") = Nothing   \'今天加了这二句，在此行执行这段代码就会闪退。没加之前，一直正常。
       End If
End Select
[此贴子已经被作者于2019/3/15 15:48:43编辑过]
--  作者：y2287958
--  发布时间：2019/3/15 15:56:00
--  
反复赋值反复循环计算，不堪重负
--  作者：cyrollin
--  发布时间：2019/3/15 15:59:00
--  
哦，要怎么简化？
--  作者：cyrollin
--  发布时间：2019/3/15 16:03:00
--  
我把新增的代码注释了，改用原来的代码，也删掉bin文件夹了，也还是闪退，怎么了呢？
[此贴子已经被作者于2019/3/15 16:04:57编辑过]
--  作者：有点甜
--  发布时间：2019/3/15 16:16:00
--  
Select Case e.DataCol.name
    Case "服务内容","支付方式", "包月价","预付","付款状态"

 

改成

 

Select Case e.DataCol.name
    Case "服务内容","支付方式", "包月价","预付"
--  作者：cyrollin
--  发布时间：2019/3/15 17:23:00
--  
好的，谢谢