以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  三人行 必有我师!继续发问。。。求继续解答  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=21237)

--  作者:高润公司
--  发布时间:2012/7/6 9:34:00
--  三人行 必有我师!继续发问。。。求继续解答
怎么用一个按键 把下图没有连续下去的数字筛选到另一个表中
 
老衲爱狐表 更爱狐表里的朋友 太给力了 嘿嘿

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

--  作者:狐狸爸爸
--  发布时间:2012/7/6 11:02:00
--  

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

 

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


--  作者:高润公司
--  发布时间:2012/7/6 11:53:00
--  
求老大解决下小弟的问题 在线等图片点击可在新窗口打开查看
--  作者:高润公司
--  发布时间:2012/7/6 13:42:00
--  

各位前辈 求教育啊

 


--  作者:blackzhu
--  发布时间: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

--  作者:高润公司
--  发布时间:2012/7/6 16:19:00
--  
感谢blackzhu 学习了 研究代码 直至适合自己使用
--  作者:blackzhu
--  发布时间:2012/7/6 16:57:00
--  
不好意思 这两句可以不要的;

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