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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据录入

共有5234人关注过本帖树形打印复制链接主题：数据录入

狐狸爸爸

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

加好友

发短信

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

Post By：2013/11/14 16:08:00 [显示全部帖子]

http://www.foxtable.com/help/topics/1445.htm

图片点击可在新窗口打开查看

看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》

狐狸爸爸

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

加好友

发短信

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

Post By：2013/11/14 17:02:00 [显示全部帖子]

可以：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目93.table

狐狸爸爸

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

加好友

发短信

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

Post By：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

狐狸爸爸

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

加好友

发短信

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

Post By：2013/11/14 17:47:00 [显示全部帖子]

窗口的话，删除原来的代码，改为在Datacolchanged事件写入代码：

If e.DataCol.name="第一列" Then
   If e.DataRow.isnull("第一列")=False Then
        Dim s As String = e.DataRow("第一列")
       If s < 9999 AndAlso s.IndexOf("-") <0 Then
           e.DataRow("第一列") = Date.today.year - 2000 & "-" & e.DataRow("第一列") & "-" & "1"
       End If
   End If
End If