主题：[求助]帮忙转内部函数

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参数传递进去。