以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于列属性中的默认值问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=34509)

--  作者:yanxin04
--  发布时间:2013/6/8 14:08:00
--  [求助]关于列属性中的默认值问题
我想知道,列属性中默认值可不可以用代码写入,就是可以用代码随时变化默认值。
--  作者:Bin
--  发布时间:2013/6/8 14:11:00
--  
在DataColADDED 行增加事件中为列赋值即可.
--  作者:XYT
--  发布时间:2013/6/8 14:12:00
--  
可以,http://www.foxtable.com/help/topics/0630.htm
--  作者:yanxin04
--  发布时间:2013/6/8 15:47:00
--  
好像不是这样的,我有两张表,表A,表B,表A是每月做运算的,每月做完运算后,将这张表的所有数据都复制的表B中,为了便于记录复制的时间,表B中增加了“复制日期”字段,我一开始用列的默认值来做的,但是没回都要更改时间,比较麻烦(说是两张实际是4张),我想如果可应用代码,我该一次时间就行了。各位高手给想个好办法。
--  作者:XYT
--  发布时间:2013/6/8 15:51:00
--  
这个不是更简单吗,如果你用的是按钮的话。在里面加上tables("表B").current("复制日期")=date.today
--  作者:yanxin04
--  发布时间:2013/6/8 16:04:00
--  

我是用这个复制的,

Dim f As New Filler
        f.SourceTable = DataTables("表A") \'指定数据来源
        f.DataTable = DataTables("表B") \'指定数据接收表
        f.ExcludeExistValue = False
        f.Fill() \'填充数据
你的办法好像不行


--  作者:狐狸爸爸
--  发布时间:2013/6/8 16:08:00
--  
做个简单例子发上来,说明问题和需求。
--  作者:yanxin04
--  发布时间:2013/6/8 16:23:00
--  
我在复制表时,第三列是空的,用默认值可以满足我的要求,但是我有4张表都是这样,来回改太麻烦,我想知道用什么代码可以解决,第三列我要的是日期,便于区分时间段。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目8.table


--  作者:XYT
--  发布时间:2013/6/8 16:37:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目8.table

代码在表B的表属性
[此贴子已经被作者于2013-6-8 16:37:44编辑过]

--  作者:yanxin04
--  发布时间:2013/6/8 16:51:00
--  

不是这个意思,要是这样可以在列属性的默认值输入 now()就可以了。