以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 转成按钮代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151321)
--  作者：leoli
--  发布时间：2020/6/20 15:15:00
--  [求助] 转成按钮代码
老师，麻烦帮忙转成按钮代码，谢谢了。


If e.DataCol.Name = "UserName" Then 
        Dim dr As DataRow
         dr = DataTables("t_Base_User").Find("[FName] = \'" & e.NewValue & "\'")
        If dr IsNot Nothing Then 
            e.DataRow("FLastModifiedBy") = dr("FUserID")
        End If
    End If
--  作者：有点蓝
--  发布时间：2020/6/20 15:26:00
--  
dim r as row = tables("xxx").current
if r isnot nothing then
        Dim dr As DataRow
         dr = DataTables("t_Base_User").Find("[FName] = \'" & r("UserName") & "\'")
        If dr IsNot Nothing Then 
            r("FLastModifiedBy") = dr("FUserID") 
        End If
end if