Foxtable(狐表)用户栏目专家坐堂 → [求助]如何排出临时表?


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

主题:[求助]如何排出临时表?

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


加好友 发短信
等级:小狐 帖子:316 积分:2899 威望:0 精华:0 注册:2009/7/25 18:29:00
[求助]如何排出临时表?  发帖心情 Post By:2020/2/5 19:26:00 [只看该作者]

各位老师新年好!
我在全局事件中,写下如下代码,请问如何才能避开已经生成的临时表“XJHHZLSHZB”,我在If e.DataTable.Name <> "WorkLogfile" Then后面跟上
If e.DataTable.name = "XJHHZLSHZB" Then
e.Cancel = True
End If
可是没有成功,请老师指教!!

If e.DataTable.Name <> "WorkLogfile" Then
    If e.DataRow.RowState = 2 Then
       Return
   Else
        Dim dr As DataRow = DataTables("WorkLogfile").AddNew
        dr("ID") = e.DataRow("_Identify")
       dr("用户") = _UserName
      dr("涉及表") = e.DataTable.Name
        dr("涉及列") = e.DataCol.Name
        dr("涉及行") = e.DataRow("_Identify")
        dr("时间") = Date.Now
        dr("操作") = """" & e.OldValue &  """ 改成了 """ & e.NewValue & """"
        Dim str As String = ""
        For Each c As DataCol In e.DataTable.DataCols
          str += c.Name & "=" & e.DataRow(c.Name) & "|"
        Next
        dr("原行数据") = str
   End If
End If

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


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

If e.DataTable.Name <> "WorkLogfile" andalso e.DataTable.Name <> "XJHHZLSHZB" Then

 回到顶部