[求助]帮忙转内部函数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我想把以下代码换成内部函数，请哪位大侠帮帮忙。

'操作日志

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

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