列表达式问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有29485人关注过本帖树形打印复制链接主题：列表达式问题

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2008/9/2 11:10:00 [显示全部帖子]

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

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：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

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2008/9/2 11:19:00 [显示全部帖子]

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

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：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

[本帖被加为精华]

下一主题 >> << 上一主题

主题：列表达式问题