Foxtable(狐表)用户栏目专家坐堂 → 列表达式问题


  共有32788人关注过本帖树形打印复制链接

主题:列表达式问题

帅哥哟,离线,有人找我吗?
菜鸟冬瓜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:24 积分:316 威望:0 精华:0 注册:2008/9/1 11:17:00
列表达式问题  发帖心情 Post By:2008/9/2 11:04:00 [只看该作者]

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

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

Today

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

例如:

Dim d As Date = Date.Today

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




我就是想在日期列里得到当天的日期  怎么才能写这个表达式呢?

 回到顶部
帅哥哟,离线,有人找我吗?
kylin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 F6
等级:狐精 帖子:3036 积分:19223 威望:0 精华:2 注册:2008/9/1 7:50:00
  发帖心情 Post By:2008/9/2 11:07:00 [只看该作者]

参考 取值代码

 回到顶部
帅哥,在线噢!
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2008/9/2 11:10:00 [只看该作者]

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


 回到顶部
帅哥,在线噢!
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2008/9/2 11:11:00 [只看该作者]

例如:

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


增加行的时候,日期列会自动填入当天日期。
代码在表的DataRowAdded事件中。
[此贴子已经被作者于2008-9-2 11:11:57编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
菜鸟冬瓜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:24 积分:316 威望:0 精华:0 注册:2008/9/1 11:17:00
  发帖心情 Post By:2008/9/2 11:12:00 [只看该作者]

看了 《取值代码》  还要等开发篇 是吗?

 回到顶部
帅哥,在线噢!
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2008/9/2 11:19:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
菜鸟冬瓜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:24 积分:316 威望:0 精华:0 注册:2008/9/1 11:17:00
  发帖心情 Post By:2008/9/2 11:22:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
菜鸟冬瓜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:24 积分:316 威望:0 精华:0 注册:2008/9/1 11:17:00
  发帖心情 Post By:2008/9/2 11:29:00 [只看该作者]

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


 回到顶部
帅哥,在线噢!
狐狸爸爸
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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




[本帖被加为精华]
 回到顶部
帅哥哟,离线,有人找我吗?
kylin
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 F6
等级:狐精 帖子:3036 积分:19223 威望:0 精华:2 注册:2008/9/1 7:50:00
  发帖心情 Post By:2008/9/2 11:44:00 [只看该作者]

好东东,谢谢!


 回到顶部
总数 11 1 2 下一页