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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]求查找公式

共有23817人关注过本帖树形打印复制链接主题：[求助]求查找公式

barryliu

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

加好友

发短信

等级：婴狐帖子：48 积分：360 威望：0 精华：0 注册：2008/9/1 8:08:00

[求助]求查找公式 发帖心情

Post By：2008/10/11 9:52:00 [只看该作者]

有如下一表:

日期                            ID
2008-01-01                 1
2008-01-01                 2
2008-01-02                 1
2008-01-02                 2
2008-01-02                (查到当前日ID,最大为2,此ID则为3)
2008-10-11                (查到当前日ID集合为1,且此列数为空,此ID则为1)

在DataColChanged 中不知如何设置 ID

日期列为自动录入
新增行时,则查找DATE.TODAY对应的ID列的最大数,则E.DATEROW("ID")=这个最大数+1,如集合只为1,则E.DATEROW("ID")='1'

麻烦各位老师指教

yuanbin

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

加好友

发短信

等级：贵宾帖子：102 积分：880 威望：0 精华：4 注册：2008/8/31 21:47:00

Post By：2008/10/11 10:45:00 [只看该作者]

IF e.DataCol.Name = "日期" Then
e.datarow("ID")=CurrentTable.Compute("max(ID)","[日期] =#" & DATE.TODAY & "#")+1
end if

smileboy

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

加好友

发短信

好心情

等级：超级版主帖子：715 积分：5564 威望：0 精华：1 注册：2008/8/31 20:45:00

Post By：2008/10/11 11:04:00 [只看该作者]

以下是引用yuanbin在2008-10-11 10:45:00的发言：
IF e.DataCol.Name = "日期" Then
e.datarow("ID")=CurrentTable.Compute("max(ID)","[日期] =#" & DATE.TODAY & "#")+1
end if

修改日期就不行了
IF e.DataCol.Name = "日期" Then
e.datarow("ID")=CurrentTable.Compute("count(日期)","[日期] =#" & e.datarow("日期") & "#")
end if

barryliu

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

加好友

发短信

等级：婴狐帖子：48 积分：360 威望：0 精华：0 注册：2008/9/1 8:08:00

Post By：2008/10/11 11:29:00 [只看该作者]

谢谢,日期是不能更改的,呵呵

gdtgl

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

加好友

发短信

等级：一尾狐帖子：445 积分：3025 威望：0 精华：0 注册：2008/9/13 10:49:00

Post By：2008/10/11 11:40:00 [只看该作者]

IF e.DataCol.Name = "日期" Then
e.datarow("ID")=CurrentTable.Compute("max(id)","[日期] =#" & e.datarow("日期") & "#") +1
end if

应是用找最大值（防止有删除，数据重复）

barryliu

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

加好友

发短信

等级：婴狐帖子：48 积分：360 威望：0 精华：0 注册：2008/9/1 8:08:00

Post By：2008/10/11 12:48:00 [只看该作者]

以下是引用gdtgl在2008-10-11 11:40:00的发言：
IF e.DataCol.Name = "日期" Then
e.datarow("ID")=CurrentTable.Compute("max(id)","[日期] =#" & e.datarow("日期") & "#") +1
end if

应是用找最大值（防止有删除，数据重复）

非常感谢三位!

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

主题：[求助]求查找公式