Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创]代码问题


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

主题：[原创]代码问题
帅哥哟，离线，有人找我吗？
有点甜
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/8 10:09:00 [显示全部帖子]

以下是引用爱相随在2014-8-8 9:47:00的发言：
还是代码问题：删除B表的行，在A表的逻辑列进行反映

 

代码没有问题，删除B表的行，A表绝对有反应，除非你没有对应的值填入。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/8 10:10:00 [显示全部帖子]

表A 的 jhbh 必须等于 表B 的 jhbh
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/8 10:12:00 [显示全部帖子]

谢谢老师，还是代码的问题，下面这段代码，无论是在哪张表，删除行时都要提示 "数据已经审核通过,你不能删除!.")，请问老师是什么原因呢？
For Each r As Row In Tables("ZJJHB").GetCheckedRows
If User.IsRole("录入人") Then
    If r("SHR") = False Then
        MessageBox.Show("数据已经审核通过,你不能删除!.")
    Else
       r.Delete()
    End If
  Else
      MessageBox.show("你非数据填列人,不能删除数据!")
End If
Next
For Each r As Row In Tables("ZJsqB").GetCheckedRows
If User.IsRole("录入人") Then
    If r.Isnull("jlyj3") = False Then
        MessageBox.Show("监理单位已经通过审核,你不能删除!.")
    Else
       r.Delete()
    End If
  Else
      MessageBox.show("你非资金申报人,不能删除数据!")
End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/8 11:47:00 [显示全部帖子]

Select Case e.DataRow("HTLB") 
    Case "工程施工合同"
        E.DataRow("LBJM") = "SG"
    Case "工程设计合同"
        E.DataRow("LBJM") = "SJ"
    Case "工程绿化合同"
        E.DataRow("LBJM") = "LH"
    Case "工程勘测合同"
        E.DataRow("LBJM") = "KC"
    Case "工程合同"
        E.DataRow("LBJM") = "CQ"
    Case "工程前期合同"
        E.DataRow("LBJM") = "QQ"
    Case "行政管理合同"
        E.DataRow("LBJM") = "HZ"
    Case "投融资类合同"
        E.DataRow("LBJM") = "TR"
    Case Else
        E.DataRow("LBJM") = "QT"
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/8 11:56:00 [显示全部帖子]

习 近 平 拆 迁，加空格可以屏蔽

[此贴子已经被作者于2014-8-8 11:56:28编辑过]
 回到顶部
总数 16 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询