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

在表事件的DataColChanged写入如下代码，求精简，谢谢！

Select Case e.DataCol.name

Case "版次","修订日期","批准日期","培训日期","生效日期","发布日期"

Dim dr As DataRow = e.DataRow

If dr.IsNull("版次") = False And dr.IsNull("修订日期") = False And dr.IsNull("批准日期") = False And dr.IsNull("培训日期") = False And dr.IsNull("生效日期") = False And dr.IsNull("发布日期") = False Then

dr("报备人") = _username

dr("报备日期") = dt

End If

End Select

主题：精简代码