Foxtable(狐表)用户栏目专家坐堂 → 二个表有很多相同的列名称,一个表提取另一个的数据


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

主题:二个表有很多相同的列名称,一个表提取另一个的数据

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


加好友 发短信
等级:五尾狐 帖子:810 积分:7727 威望:0 精华:0 注册:2014/7/4 20:32:00
二个表有很多相同的列名称,一个表提取另一个的数据  发帖心情 Post By:2017/3/4 1:59:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/4 9:29:00 [只看该作者]

代码运行后有什么错误?

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


加好友 发短信
等级:五尾狐 帖子:810 积分:7727 威望:0 精华:0 注册:2014/7/4 20:32:00
  发帖心情 Post By:2017/3/4 15:00:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/4 15:03:00 [只看该作者]

1、只有重置case里的列才有效

 

2、说明没有符合的数据


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


加好友 发短信
等级:五尾狐 帖子:810 积分:7727 威望:0 精华:0 注册:2014/7/4 20:32:00
  发帖心情 Post By:2017/3/4 15:43:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:五尾狐 帖子:810 积分:7727 威望:0 精华:0 注册:2014/7/4 20:32:00
  发帖心情 Post By:2017/3/4 15:43:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/4 15:54:00 [只看该作者]

这个代码本身的逻辑有问题,先理清自己要做什么

 

如果没有输入内容,就没有查询的条件,如果输入内容,查询后的结果也就和原来的值是一样的,再赋值回原来的列有什么意义呢


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


加好友 发短信
等级:五尾狐 帖子:810 积分:7727 威望:0 精华:0 注册:2014/7/4 20:32:00
  发帖心情 Post By:2017/3/4 16:08:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/4 16:15:00 [只看该作者]

Select Case e.DataCol.name
    Case "其它列1","其它列2","其它列三",......
        Dim dt As DataTable = DataTables("表B")
        If dt.DataCols.Contains(e.DataCol.name) Then
            Dim fdr As DataRow = dt.find("项目名称 = '" & e.DataRow("项目名称") & "' And 咨询类型 = '" & e.DataRow("咨询类型") & "'")
            If fdr IsNot Nothing Then
                e.DataRow(e.DataCol.name) = fdr(e.DataCol.name)
            End If
        End If
End Select

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


加好友 发短信
等级:五尾狐 帖子:810 积分:7727 威望:0 精华:0 注册:2014/7/4 20:32:00
  发帖心情 Post By:2017/3/4 16:31:00 [只看该作者]

用户已被锁定

 回到顶部
总数 19 1 2 下一页