Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共11 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:列表达式问题

1楼
菜鸟冬瓜 发表于:2008/9/2 11:04:00

在易表里的列表达式里加入 TODAY() 就可以得到 我想到的结果---->当天的日期

可是在狐表里的列表达式里,我就不会加函数了。 看帮助文件也看不明白 

Today

这是一个共享属性,返回计算机的当前日期,不含时间。

例如:

Dim d As Date = Date.Today

上述代码将变量d的值设为当前日期。




我就是想在日期列里得到当天的日期  怎么才能写这个表达式呢?
2楼
kylin 发表于:2008/9/2 11:07:00
参考 取值代码
3楼
狐狸爸爸 发表于:2008/9/2 11:10:00

呵呵,其实很容易,你要继续往下看,就会明白的。

4楼
狐狸爸爸 发表于:2008/9/2 11:11:00
例如:

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目9_0902.zip


增加行的时候,日期列会自动填入当天日期。
代码在表的DataRowAdded事件中。
[此贴子已经被作者于2008-9-2 11:11:57编辑过]
5楼
菜鸟冬瓜 发表于:2008/9/2 11:12:00
看了 《取值代码》  还要等开发篇 是吗?
6楼
狐狸爸爸 发表于:2008/9/2 11:19:00

对。
不过这个默认值,不需要去之代码,用DataRowAdded事件即可。
先不要急,慢慢来,看懂每一节,学习是水到渠成的事

7楼
菜鸟冬瓜 发表于:2008/9/2 11:22:00

实际上我要建立一个[日期]列 ,这个列就是要得到今天的日期 。再建立一个[编号]列。以[日期]列为基础建立[编号]列。以前在易表里[编号]列用的刷新公式是:"0"+text(number(format([日期],"yymmdd00"))+CountFor(GridName,"日期","=",[日期],1,Row))   可是现在就不会了。

8楼
菜鸟冬瓜 发表于:2008/9/2 11:29:00

狐狸爸爸说的 我记下了  应该认真的看懂每一节。 心急吃不了热豆腐!!

9楼
狐狸爸爸 发表于:2008/9/2 11:38:00
我给你做了一个自动编号例子,不过最好以后再看:

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目9_0902.zip


其实代码原理一样:

'如果发生变化的是日期列,而且已经输入日期
If e.DataCol.Name = "日期" And e.Datarow.IsNull("日期")  = False Then
    Dim dt As Date = e.DataRow("日期") '获得输入的日期
    '计算编号
    e.Datarow("编号") =  Format(dt,"yyMMdd") & Format(e.DataTable.Compute("Count(日期)", "[日期] = #" & dt & "# And [_identify] < " & e.DataRow("_Identify")) + 1,"000")
End If



10楼
kylin 发表于:2008/9/2 11:44:00

好东东,谢谢!

共11 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 4 queries.