简化命令 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 简化命令

共有3356人关注过本帖树形打印复制链接主题：简化命令

13796361423

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：179 积分：1932 威望：0 精华：0 注册：2020/2/14 18:49:00

简化命令

Post By：2020/8/14 11:19:00 [只看该作者]

If e.DataCol.Name = "房产证地址" Then

If e.DataRow.IsNull("房产证地址") Then '

e.DataRow("录取中学") = Nothing

Else

If e.DataRow("房产证地址") Like "*胜利乡*"

e.DataRow("录取中学") = "第二中学"

ElseIf e.DataRow("房产证地址") Like "*幸福家园*"

e.DataRow("录取中学") = "第一中学"

End If

If e.DataCol.Name = "房产证地址" Then

If e.DataRow.IsNull("房产证地址") Then '

e.DataRow("录取中学") = Nothing

Else

If e.DataRow("房产证地址") Like "*梦约家园*"

e.DataRow("录取中学") = "第一中学"

ElseIf e.DataRow("房产证地址") Like "*福源小区*"

e.DataRow("录取中学") = "第一中学"

End If

请问这个命令我是不是写的麻烦？能简化吗？

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110784 积分：563852 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/8/14 11:27:00 [只看该作者]

If e.DataCol.Name = "房产证地址" Then

If e.DataRow.IsNull("房产证地址") Then '

e.DataRow("录取中学") = Nothing

Else

If e.DataRow("房产证地址") Like "*胜利乡*"

e.DataRow("录取中学") = "第二中学"

ElseIf e.DataRow("房产证地址") Like "*幸福家园*" OrElse e.DataRow("房产证地址") Like "*梦约家园*" OrElse e.DataRow("房产证地址") Like "*福源小区*"

e.DataRow("录取中学") = "第一中学"

End If

主题：简化命令