- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 数据录入 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=42532)
-- 发布时间：2013/11/14 15:26:00
-- 数据录入
老师好，我想问问在列输入数据时，9999以内的，如8888自动变成今年的年号13加上8888-1变成13-8888-1
-- 发布时间：2013/11/14 15:34:00
--
AlterEdit 事件
if e.col.name="列名" then
if e.row.isnull("列名")=false then
if Val(e.row("列名"))<9999 then
e.row("列名")=date.today.year & "-" & e.row("列名") & "-" & "1"
end if
end if
end if
-- 发布时间：2013/11/14 16:02:00
--
弱弱的问问 AlterEdit 事件在哪里设置，没找到呢？
-- 发布时间：2013/11/14 16:03:00
--
表属性的表事件里,新手建议先按部就班看一下帮助哦.
-- 发布时间：2013/11/14 16:08:00
--
http://www.foxtable.com/help/topics/1445.htm
看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》
-- 发布时间：2013/11/14 16:55:00
--
-- 发布时间：2013/11/14 17:02:00
--
可以：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目93.table |
-- 发布时间：2013/11/14 17:09:00
--
老师，我想要的是13-8888-1，只要2013的后两位，可以实现不？
-- 发布时间：2013/11/14 17:11:00
--
if e.col.name="列名" then
if e.row.isnull("列名")=false then
if Val(e.row("列名"))<9999 then
e.row("列名")=date.today.year.tostring().substring(2,2) & "-" & e.row("列名") & "-" & "1"
end if
end if
end if
[此贴子已经被作者于2013-11-14 17:11:22编辑过]
-- 发布时间：2013/11/14 17:14:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目93.table |
If e.Col.name="第一列" Then
If e.Row.isnull("第一列")=False Then
Dim s As String = e.Row("第一列")
If s < 9999 AndAlso s.IndexOf("-") <0 Then
e.Row("第一列") = Date.today.year - 2000 & "-" & e.Row("第一列") & "-" & "1"
End If
End If
End If