Foxtable(狐表)用户栏目专家坐堂 → 请教老师!附件中的编码怎么在另一个表中找到,然后找到的标记红色!


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

主题:请教老师!附件中的编码怎么在另一个表中找到,然后找到的标记红色!

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


加好友 发短信
等级:幼狐 帖子:178 积分:1555 威望:0 精华:0 注册:2015/7/28 21:23:00
请教老师!附件中的编码怎么在另一个表中找到,然后找到的标记红色!  发帖心情 Post By:2016/5/22 13:23:00 [只看该作者]

请教老师!附件中的编码怎么在另一个表中找到,然后找到的标记红色!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/22 15:36:00 [只看该作者]

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


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


加好友 发短信
等级:幼狐 帖子:178 积分:1555 威望:0 精华:0 注册:2015/7/28 21:23:00
  发帖心情 Post By:2016/5/22 18:06:00 [只看该作者]

袍姐!有点不对。我的思路是如果我表B中判断列打钩后表示选中该编号标记红色,取消后恢复!我现在难点是在表B中找不到表A的值。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/22 20:19:00 [只看该作者]

单独做一个按钮执行代码

 

Dim dt As DataTable = DataTables("表A")
For Each dr As DataRow In DataTables("表B").datarows
    Dim filter As String = "1=2"
    For Each dc As DataCol In dt.DataCols
        filter &= " or " & dc.name & "='" & dr("编号") & "'"
    Next
    Dim fdr As DataRow = dt.find(filter)
   
    dr("是否存在") = fdr IsNot Nothing
Next


 回到顶部