Foxtable(狐表)用户栏目专家坐堂 → 代码编写


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

主题:代码编写

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


加好友 发短信
等级:一尾狐 帖子:463 积分:4163 威望:0 精华:0 注册:2011/4/5 16:54:00
代码编写  发帖心情 Post By:2017/10/13 18:02:00 [只看该作者]

Select Case e.DataCol.Name

    Case "年龄","在读"

        If e.DataCol.Name = "在读" Then and “年龄”>18

               e.DataRow("GS603") = 100 '年龄大于18,但属于在读则补助金额为100

            If e.DataRow.IsNull("在读") Then and “年龄”<18 

               e.DataRow("GS603") = 100 '年龄小于18则补助金额为100

Else

                '否则

                e.DataRow("GS603") = 180

            End If

        End If

End Select


“年龄小于18,“GS603”=100;

“年龄”大于18,“GS603”=180;

“年龄大于18,但“在读”为真时,“GS603”=100


要实现上述目标,代码如何编写,求专家指点


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/13 18:10:00 [只看该作者]

Select Case e.DataCol.Name
    Case "年龄","在读"
       
        If e.DataCol.Name = "在读" AndAlso e.DataRow("年龄")>18 Then
            e.DataRow("GS603") = 100 '年龄大于18,但属于在读则补助金额为100
        ElseIf  e.DataRow("年龄")<=18 Then
            e.DataRow("GS603") = 100 '年龄小于18则补助金额为100
        ElseIf  e.DataRow("年龄")>18 Then        
            e.DataRow("GS603") = 180          
        End If         
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
jygyyl
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:463 积分:4163 威望:0 精华:0 注册:2011/4/5 16:54:00
谢谢  发帖心情 Post By:2017/10/13 19:03:00 [只看该作者]

Select Case e.DataCol.Name 
    Case "在读"
        If e.NewValue = True Then
            e.DataRow("GS602") = 100
        Else
            e.DataRow("GS602") =180
        End If
    Case "年龄" 
        If e.DataRow.IsNull("年龄") Then
            e.DataRow("GS602") = Nothing
        ElseIf  e.DataRow("年龄")<=18 Then
            e.DataRow("GS602") = 100 '年龄小于18则补助金额为100
        Else
            e.DataRow("GS602") =180
        End If
End Select

这样可以实现“年龄”不能为空,“在读”改变为“假”是按年龄取值

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/10/13 20:21:00 [只看该作者]

1、“年龄”不能为空,参考:http://www.foxtable.com/webhelp/scr/0624.htm,看示例五

2、
Select Case e.DataCol.Name
    Case "在读","年龄"
        If e.DataRow("在读") = True Then
            e.DataRow("GS602") = 100
        Else
            If e.DataRow.IsNull("年龄")  Then
                e.DataRow("GS602") = Nothing
            ElseIf  e.DataRow("年龄")<=18 Then
                e.DataRow("GS602") = 100 '年龄小于18则补助金额为100
            Else
                e.DataRow("GS602") =180
            End If
        End If
End Select

[此贴子已经被作者于2017/10/13 20:22:39编辑过]

 回到顶部