以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]帮忙转内部函数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121756)
--  作者：188802386
--  发布时间：2018/7/12 15:48:00
--  [求助]帮忙转内部函数
我想把以下代码换成内部函数，请哪位大侠帮帮忙。
\'操作日志
Dim d As Date = Functions.Execute("获取服务器时间")
If e.DataTable.Name <> "QY_跟进记录" Then \'AndAlso e.OldValue <> Nothing
    Dim cmd As New SQLCommand
    Dim dtt As DataTable
    cmd.C
    cmd.CommandText = "se lect * From {QY_跟进记录} where [_Identify] Is Null"
    dtt = cmd.ExecuteReader(True) \'记得将参数设置为True
    Dim drr As DataRow = dtt.AddNew()
    drr("部门名称") = user_group
    drr("编号") = e.DataRow("编号")
    drr("姓名") = user_name
    drr("日期") = d
    drr("类型") = e.DataTable.Name
    drr("跟进类型") = "修改操作"
    drr("创建人") = user_name
    drr("创建日期") = d
    drr("内容") = user_name & "_将【" & e.DataCol.Name &  "】的【" & e.OldValue & "】改成【" & e.NewValue & "】"
    dtt.save
End If
--  作者：有点甜
--  发布时间：2018/7/12 17:18:00
--  

Dim e = args(0)

Dim d As Date = Functions.Execute("获取服务器时间")
If e.DataTable.Name <> "QY_跟进记录" Then \'AndAlso e.OldValue <> Nothing
    Dim cmd As New SQLCommand
    Dim dtt As DataTable
    cmd.C
    cmd.CommandText = "se lect * From {QY_跟进记录} where [_Identify] Is Null"
    dtt = cmd.ExecuteReader(True) \'记得将参数设置为True
    Dim drr As DataRow = dtt.AddNew()
    drr("部门名称") = user_group
    drr("编号") = e.DataRow("编号")
    drr("姓名") = user_name
    drr("日期") = d
    drr("类型") = e.DataTable.Name
    drr("跟进类型") = "修改操作"
    drr("创建人") = user_name
    drr("创建日期") = d
    drr("内容") = user_name & "_将【" & e.DataCol.Name &  "】的【" & e.OldValue & "】改成【" & e.NewValue & "】"
    dtt.save
End If

 

调用的时候，要把e参数传递进去。