1、你已经知道获取指定日期同周的第一天和最后一天，是不是？
2、你不会根据这个这个合成条件，筛选出这一周的所有行？
3、还是筛选出后，不会向行写入数据，抑或不会获取剪贴板的内容。
我不明白，是那一步将你难倒了：
Dim dd As Date = Tables("表A").Current("日期")
Dim y As Integer = dd.Year
Dim w As Integer = dd.DayOfWeek '算出今天是星期几
Dim dt1 As Date = dd.AddDays(-w) '获取本周的第一天
Dim dt2 As Date = dd.AddDays(6 - w) '获取本周的最后一天
For Each dr As DataRow In DataTables("表A").Select("日期>=#" & dt1 & "# And 日期 <= #" & dt2 & "#")
dr("第二列") = Clipboard.gettext()
Next
select方法的使用，以及动态合成表达式，我们应该帮你做了无数的例子，可以依然不能掌握:
http://www.foxtable.com/webhelp/scr/0400.htm
http://www.foxtable.com/webhelp/scr/1284.htm
http://www.foxtable.com/webhelp/scr/2919.htm
其实别人帮你写再多的代码，不如你花一个星期，去看一下“编程基础”和“foxtable编程”这章，看两遍，你会节省100倍甚至更多的时间。
加好友 
发短信
Post By：2016/9/4 8:29:00 [显示全部帖子]
