Foxtable(狐表)用户栏目专家坐堂 → 表间引用的代码编写问题


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

主题:表间引用的代码编写问题

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


加好友 发短信
等级:二尾狐 帖子:555 积分:5037 威望:0 精华:0 注册:2012/2/11 13:27:00
表间引用的代码编写问题  发帖心情 Post By:2013/6/21 9:51:00 [只看该作者]

在DataDolChanged事件中语句,这个语句的目的是在编辑了单元格之后进行表间引用。

  If e.DataCol.name = "岗位" Then

      If e.NewValue Is Nothing Then

         e.DataRow("工资") = Nothing

     Else

         Dim dr As DataRow

         dr =DataTables("字典").Find("[岗位]='" & e.newvalue & "'")

         If dr IsNot Nothing Then

          e.DataRow("工资") = dr("工资")

         End If

      End If

  End If

 

请教各位,在表属性的AfterEdit事件和按钮控件的click事件中,进行表间引用的代码怎么写?


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/6/21 9:56:00 [只看该作者]

一样的.

AfterEdit代码差不多的啊

按钮的话把 e.DataRow 换
 tables("XX").current

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


加好友 发短信
等级:二尾狐 帖子:555 积分:5037 威望:0 精华:0 注册:2012/2/11 13:27:00
  发帖心情 Post By:2013/6/21 10:00:00 [只看该作者]

原来的DataDolChanged事件 是数据编辑了有变化才执行

现在的AfterEdit事件是编辑了就执行,不管有没有变化


 回到顶部
帅哥哟,离线,有人找我吗?
zhangchi96
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:555 积分:5037 威望:0 精华:0 注册:2012/2/11 13:27:00
  发帖心情 Post By:2013/6/23 15:31:00 [只看该作者]

恳请大侠帮我把我发的代码事件改成  AfterEdit事件和click事件,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/6/24 9:02:00 [只看该作者]

 If e.Col.name = "岗位" Then

      If e.row.Isnull("岗位") Then

         e.Row("工资") = Nothing

     Else

         Dim dr As DataRow

         dr =DataTables("字典").Find("[岗位]='" & e.row("岗位")  & "'")

         If dr IsNot Nothing Then

              e.Row("工资") = dr("工资")

         End If

      End If

  End If


 回到顶部