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

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

共有1850人关注过本帖树形打印复制链接主题：精简代码

一笑

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

加好友

发短信

等级：四尾狐帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00

精简代码

Post By：2017/1/23 16:06:00 [只看该作者]

在表事件的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

有点蓝

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

加好友

发短信

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

Post By：2017/1/23 16:18:00 [只看该作者]

精简不了

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/1/24 2:08:00 [只看该作者]

Dim dcs As String() = {"版次","修订日期","批准日期","培训日期","生效日期","发布日期"}
Dim hasnull As Boolean = False
If array.indexof(dcs, e.DataCol.name) >= 0 Then
    For Each dc As String In dcs
        If e.DataRow.isnull(dc) Then
            hasnull = True
            Exit For
        End If
    Next
    If hasnull = False Then
        e.datarow("报备人") = _username
        e.datarow("报备日期") = dt
    End If
End If

下一主题 >> << 上一主题

主题：精简代码