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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  简化命令  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153540)

--  作者：13796361423
--  发布时间：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
End If
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
End If
End If
请问这个命令我是不是写的麻烦？能简化吗？

--  作者：有点蓝
--  发布时间：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
End If
End If