ComboBox 带入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

麻烦大家了感谢感谢
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20160901221214.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:粘贴周期录入.table

2年前你就提过同样的问题，学了2年都没有长进！

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=49370

先自己写，代码不通的再改

粘贴我会就是不知道怎么粘贴到时间为一个星期的时段，我试了很多次，我知道和很麻烦你们，只是我确实把代码凑起来有时候都关闭不掉代码窗口，麻烦你们了。

贴出你写的代码

'Dim dd As Date = e.Form.Controls("日期").Table

'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) '获取本周的最后一天

'Dim Filter As String

'CurrentTable.DataTable "第二列" = (CurrentTable.Cols(CurrentTable.ColSel).Name, ClipBoard.GetText)

我实在是不怎么怎么写才对

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倍甚至更多的时间。

以下是引用yangwenghd在2016/9/1 18:30:00的发言：
问问可以把粘贴板复制到某一个时段吗比如一个星期一个月

http://www.foxtable.com/webhelp/scr/2654.htm

Dim dd As Date = Tables("窗口1_Table1").Current("日期")

为什么改成窗口1_Table1 就不行了啊

谁说不行：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目273.table

主题：ComboBox 带入