以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]datachanged代码报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=134842)
--  作者：天一生水
--  发布时间：2019/5/10 12:55:00
--  [求助]datachanged代码报错


图片点击可在新窗口打开查看此主题相关图片如下：截屏图片.jpg
图片点击可在新窗口打开查看

 

重置这两列报错：

If e.DataCol.Name = "裁判类型" Or e.DataCol.Name = "结案方式" Then
    If e.DataRow("审判程序") = "一审" Or e.DataRow("审判程序") = "行审" Or e.DataRow("审判程序") = "行辖"  Then
        e.DataRow("一审结果") =  e.DataCol.Name("裁判类型") & e.DataCol.Name("结案方式")

    ElseIf e.DataRow("审判程序") = "二审" Or e.DataRow("审判程序") = "行审复" Then
        e.DataRow("二审结果") =  e.DataCol.Name("裁判类型") & e.DataCol.Name("结案方式")
    Else
        Return
    End If
End If

 

 
--  作者：有点甜
--  发布时间：2019/5/10 15:11:00
--  


If e.DataCol.Name = "裁判类型" Or e.DataCol.Name = "结案方式" Then
    If e.DataRow("审判程序") = "一审" Or e.DataRow("审判程序") = "行审" Or e.DataRow("审判程序") = "行辖"  Then
        e.DataRow("一审结果") =  e.DataRow("裁判类型") & e.DataRow("结案方式")
    ElseIf e.DataRow("审判程序") = "二审" Or e.DataRow("审判程序") = "行审复" Then
        e.DataRow("二审结果") =  e.DataRow("裁判类型") & e.DataRow("结案方式")
    Else
        Return
    End If
End If