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
加好友 
发短信
Post By：2017/1/24 2:08:00 [显示全部帖子]
