Foxtable(狐表)用户栏目专家坐堂 → [求助]版主来帮忙


  共有1882人关注过本帖树形打印复制链接

主题:[求助]版主来帮忙

帅哥哟,离线,有人找我吗?
奶粉大王
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:167 积分:1803 威望:0 精华:0 注册:2018/1/26 16:11:00
[求助]版主来帮忙  发帖心情 Post By:2019/2/21 11:22:00 [只看该作者]

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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/21 11:50:00 [只看该作者]

For i = 0 To 修改字段集.length-1
    If Tables(窗口名 & "_Table1").current(修改字段集(i)) <> e.Form.Controls(修改字段集(i)).value And Tables(窗口名 & "_Table1").current.isnull(修改字段集(i)) = false Then
        Tables(窗口名 & "_Table1").current("变更记录") = Tables(窗口名 & "_Table1").current("变更记录") & vbcrlf & "【" & _UserName & "】于【" & getdate() & "】" & "修改" & (修改字段集(i))  & ": " & Tables(窗口名 & "_Table1").current(修改字段集(i))  & " 为 " & e.Form.Controls(修改字段集(i)).value
        Tables(窗口名 & "_Table1").current(修改字段集(i)) = e.Form.Controls(修改字段集(i)).value
    End If
Next

 回到顶部
帅哥哟,离线,有人找我吗?
奶粉大王
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:167 积分:1803 威望:0 精华:0 注册:2018/1/26 16:11:00
  发帖心情 Post By:2019/2/21 13:33:00 [只看该作者]

当 有值改为空值时 条件漏了。

怎么判断日期控件的空值

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/21 13:56:00 [只看该作者]

比如:
if e.Form.Controls(修改字段集(i)).value = nothing

 回到顶部