Foxtable(狐表)用户栏目专家坐堂 → 三人行 必有我师!继续发问。。。求继续解答


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

主题:三人行 必有我师!继续发问。。。求继续解答

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


加好友 发短信
等级:婴狐 帖子:30 积分:284 威望:0 精华:0 注册:2012/7/3 9:06:00
三人行 必有我师!继续发问。。。求继续解答  发帖心情 Post By:2012/7/6 9:34:00 [只看该作者]

怎么用一个按键 把下图没有连续下去的数字筛选到另一个表中
 
老衲爱狐表 更爱狐表里的朋友 太给力了 嘿嘿

图片点击可在新窗口打开查看此主题相关图片如下:2hefv}jrbb_tic772f%}k.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2012-7-6 11:52:25编辑过]

 回到顶部
帅哥,在线噢!
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

你的图片别人看不见,图片需要上传,其他人才能看见。

 

图片点击可在新窗口打开查看


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


加好友 发短信
等级:婴狐 帖子:30 积分:284 威望:0 精华:0 注册:2012/7/3 9:06:00
  发帖心情 Post By:2012/7/6 11:53:00 [只看该作者]

求老大解决下小弟的问题 在线等图片点击可在新窗口打开查看

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


加好友 发短信
等级:婴狐 帖子:30 积分:284 威望:0 精华:0 注册:2012/7/3 9:06:00
  发帖心情 Post By:2012/7/6 13:42:00 [只看该作者]

各位前辈 求教育啊

 


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


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/7/6 14:51:00 [只看该作者]

比较简单的办法:

Dim Values As New List(Of Integer)
Dim Value As Integer
For i As Integer = 1 To 200 Step 1
    Dim r As Row = Tables("表d").AddNew
    r("第三列") = i
Next
For Each dr As DataRow In DataTables("表B").DataRows
    DataTables("表D").DeleteFor("第三列 ='" & dr("第三列") & "'")
Next

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


加好友 发短信
等级:婴狐 帖子:30 积分:284 威望:0 精华:0 注册:2012/7/3 9:06:00
  发帖心情 Post By:2012/7/6 16:19:00 [只看该作者]

感谢blackzhu 学习了 研究代码 直至适合自己使用

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/7/6 16:57:00 [只看该作者]

不好意思 这两句可以不要的;

Dim Values As New List(Of Integer)
Dim Value As Integer

 回到顶部