Dim 修改字段 As String ="字段1|字段2|字段3"
Dim 修改字段集() As String
Dim 窗口名 As String = "窗口名称"
dim _UserName ="用户名"
'getdate() 为服务器时间函数
修改字段集= 修改字段.split("|")
Dim i As Integer
For i = 0 To 修改字段集.length-1
If Tables(窗口名 & "_Table1").current(修改字段集(i)) <> e.Form.Controls(修改字段集(i)).text And Tables(窗口名 & "_Table1").current(修改字段集(i))<>"" Then
Tables(窗口名 & "_Table1").current("变更记录") = Tables(窗口名 & "_Table1").current("变更记录") & vbcrlf & "【" & _UserName & "】于【" & getdate() & "】" & "修改" & (修改字段集(i)) & ": " & Tables(窗口名 & "_Table1").current(修改字段集(i)) & " 为 " & e.Form.Controls(修改字段集(i)).text
Tables(窗口名 & "_Table1").current(修改字段集(i)) = e.Form.Controls(修改字段集(i)).text
End If
Next
上面这段目前只适用字符类文本框，对应数字及时间类不能通用，怎么修改下以匹配？
[此贴子已经被作者于2019/2/21 11:47:11编辑过]
加好友 
发短信
Post By：2019/2/21 11:22:00 [显示全部帖子]
