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


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

主题:列表达式问题

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

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


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

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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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




[本帖被加为精华]
 回到顶部