Foxtable(狐表)用户栏目专家坐堂 → [求助]请大侠进一步,简单语句逻辑捋顺了!{求优化方案}


  共有4522人关注过本帖树形打印复制链接

主题:[求助]请大侠进一步,简单语句逻辑捋顺了!{求优化方案}

帅哥哟,离线,有人找我吗?
Bin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/17 11:33:00 [显示全部帖子]

SystemReady = False
Select Case e.DataCol.name
    Case "第一列","第二列","第三列"
        If e.DataRow.isnull("第一列") then
        e.DataRow("第四列")= Nothing
        else
        If e.DataRow.isnull("第二列") OrElse e.DataRow.isnull("第三列") Then
            e.DataRow("第四列")=Nothing
        ElseIf e.DataRow("第二列")=e.DataRow("第三列") And e.DataRow("第二列")="aaa" And e.DataRow("第三列")="aaa" Then
            e.DataRow("第四列")="同类同"
        ElseIf e.DataRow("第二列")<>"aaa" And e.DataRow("第三列")<>"aaa" And e.DataRow("第二列")=e.DataRow("第三列") Then
            e.DataRow("第四列")="异同类"
        ElseIf e.DataRow("第二列") <> e.DataRow("第三列") And e.DataRow("第二列")<>"aaa"  And e.DataRow("第三列")<>"aaa" Then
            e.DataRow("第四列")="差异"
        ElseIf e.DataRow("第二列")="aaa" And e.DataRow("第三列")<>"aaa" Then
            e.DataRow("第四列")="顺差"
        ElseIf e.DataRow("第二列")<>"aaa" And e.DataRow("第三列")="aaa" Then
            e.DataRow("第四列")="逆差"
        Else
            e.DataRow("第四列")="异常错误"
        End If
End Select
SystemReady = True

这个意思?

 回到顶部