以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  表格时间自动更新  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=60567)

--  作者:stop505
--  发布时间:2014/11/27 8:56:00
--  表格时间自动更新
在更改前面空格内容时,记录添加时间和记录添加人如何自动更新?
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20141127085718.jpg
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2014/11/27 8:58:00
--  
DataColChanged事件

if e.datacol.name <> "记录添加时间" andalso e.datacol.name <> "记录添加人" then
   e.datarow("记录添加时间")=date.now
   e.datarow("记录添加人")=user.name
end if

--  作者:stop505
--  发布时间:2014/11/27 9:06:00
--  如何具体操作
如何具体操作
--  作者:stop505
--  发布时间:2014/11/27 9:08:00
--  知道了
知道了,谢谢
--  作者:stop505
--  发布时间:2014/11/27 9:24:00
--  代码问题
If e.DataCol.name <> "记录添加时间" AndAlso e.DataCol.name <> "记录添加人" Then
    e.DataRow("记录添加时间")=Date.now
    e.DataRow("记录添加人")=_username
    If e.DataCol.Name = "身份证号码" Then
        If e.NewValue Is Nothing Then
            e.DataRow("单位") = Nothing
            e.DataRow("姓名") = Nothing
        Else
            Dim dr As DataRow
            dr = e.DataRow.GetParentRow("总人事库")
            If dr IsNot Nothing
                e.DataRow("单位") = dr("单位")
                e.DataRow("姓名") = dr("姓名")
            End If
        End If
    End If
End If

--  作者:stop505
--  发布时间:2014/11/27 9:24:00
--  代码
以上代码有什么问题吗?
--  作者:Bin
--  发布时间:2014/11/27 9:25:00
--  
出现什么问题?
--  作者:stop505
--  发布时间:2014/11/27 9:26:00
--  恩
改动前面内容,记录添加人和记录添加时间仍然没有变化
--  作者:有点甜
--  发布时间:2014/11/27 9:26:00
--  
以下是引用stop505在2014-11-27 9:24:00的发言:
以上代码有什么问题吗?

 

报错还是怎样?


--  作者:stop505
--  发布时间:2014/11/27 9:28:00
--  
改动前面(得分、评价等)内容,记录添加人和记录添加时间仍然没有变化