- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 列表达式问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=122)
-- 发布时间：2008/9/2 11:04:00
-- 列表达式问题
在易表里的列表达式里加入 TODAY（） 就可以得到 我想到的结果－－－－＞当天的日期
可是在狐表里的列表达式里，我就不会加函数了。 看帮助文件也看不明白
Today
这是一个共享属性，返回计算机的当前日期，不含时间。
例如：
Dim
d As Date = Date.Today上述代码将变量d的值设为当前日期。
我就是想在日期列里得到当天的日期 怎么才能写这个表达式呢？
-- 发布时间：2008/9/2 11:07:00
--
参考 取值代码
-- 发布时间：2008/9/2 11:10:00
--
呵呵，其实很容易，你要继续往下看，就会明白的。
-- 发布时间：2008/9/2 11:11:00
--
例如：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目9_0902.zip |
增加行的时候，日期列会自动填入当天日期。
代码在表的DataRowAdded事件中。
[此贴子已经被作者于2008-9-2 11:11:57编辑过]
-- 发布时间：2008/9/2 11:12:00
--
看了 《取值代码》 还要等开发篇 是吗？
-- 发布时间：2008/9/2 11:19:00
--
对。
不过这个默认值，不需要去之代码，用DataRowAdded事件即可。
先不要急，慢慢来，看懂每一节，学习是水到渠成的事
-- 发布时间：2008/9/2 11:22:00
--
实际上我要建立一个[日期]列 ，这个列就是要得到今天的日期 。再建立一个[编号]列。以[日期]列为基础建立[编号]列。以前在易表里[编号]列用的刷新公式是："0"+text(number(format([日期],"yymmdd00"))+CountFor(GridName,"日期","=",[日期],1,Row)) 可是现在就不会了。
-- 发布时间：2008/9/2 11:29:00
--
狐狸爸爸说的 我记下了 应该认真的看懂每一节。 心急吃不了热豆腐！！
-- 发布时间：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
-- 发布时间：2008/9/2 11:44:00
--
好东东，谢谢！