Foxtable(狐表)用户栏目专家坐堂 → [求助]若若的请教


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

主题:[求助]若若的请教

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


加好友 发短信
等级:四尾狐 帖子:822 积分:5885 威望:0 精华:0 注册:2013/7/29 12:00:00
[求助]若若的请教  发帖心情 Post By:2014/1/8 15:37:00 [只看该作者]

 

实现目的:如果“表A”第一列的前三个字符 等于“表B”第一列的内容,那么,"表A"第七列的内容 =“表B” 第二列的内容!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.foxdb


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


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

.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3 (1).foxdb


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


加好友 发短信
等级:童狐 帖子:281 积分:2264 威望:0 精华:0 注册:2013/12/2 13:34:00
  发帖心情 Post By:2014/1/8 15:50:00 [只看该作者]

哥还是试用版呢。



'DataColChanged事件中
If e.DataCol.Name="第一列" And len(e.NewValue)>=3 Then
    Dim dr As DataRow
    dr=DataTables("表B").Find("[第二列] Like '"& left(e.NewValue,3) &"'")
    If dr IsNot Nothing Then
        e.DataRow("第七列")=dr("第二列")
    End If
End If

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


加好友 发短信
等级:四尾狐 帖子:822 积分:5885 威望:0 精华:0 注册:2013/7/29 12:00:00
  发帖心情 Post By:2014/1/8 15:53:00 [只看该作者]

谢谢版主,我会继续努力!

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


加好友 发短信
等级:四尾狐 帖子:822 积分:5885 威望:0 精华:0 注册:2013/7/29 12:00:00
  发帖心情 Post By:2014/1/8 23:01:00 [只看该作者]

谢谢三楼!

 回到顶部