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


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

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


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/8/8 9:47:00 [只看该作者]

还是代码问题：删除B表的行，在A表的逻辑列进行反映

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  32楼 | 信息 | 搜索 | 邮箱 | 主页 | 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表绝对有反应，除非你没有对应的值填入。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

表A 的 jhbh 必须等于 表B 的 jhbh
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  34楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/8/8 11:45:00 [只看该作者]

老师，下面这段代码又 不对，看来还是有点难啊。。。
'根据填入合同类别列名称,自动填写合同类别简码
Select Case e.DataCol.("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
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  36楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/8/8 11:47:00 [只看该作者]

很奇怪哦，发言里不能包括两个字，否则提示非法字符，不能发表呢，Y就是”CAI QIAN“的汉字

[此贴子已经被作者于2014-8-8 11:48:44编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  38楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/8/8 12:47:00 [只看该作者]

老师，下面这段代码，如果不变，如果增加了行，编辑之前HTLB（合同类别）列为空，则LBJM（类别简码）的值是“QT”，但是，当HTLB输入相应的值后，LBJM的值却无法更新。
Dim L As String = e.DataRow("HTLB") 
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
如果代码转为这样，则LBJM无法赋值：
Dim L As String = e.DataRow("HTLB") 
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 "其他类别合同"
        E.DataRow("LBJM") = "QT"
    Case Else
        E.DataRow("LBJM") = " " 或 NOTHING
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/8/8 12:54:00 [只看该作者]

哦，知道了，把它们放在另外的地方就可以了，谢谢了。。。

 回到顶部
总数 40 上一页 1 2 3 4
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询