主题：数据录入

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

 

 

 

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

 

可以：

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目93.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目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

窗口的话，删除原来的代码，改为在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

呵呵，因为有这个判断：

 

s.IndexOf("-") <0

 

所以不会死循环的，不用担心。

 

 

13-8898-1

是字符型，这一列应该设置为字符型，而不是双进度小数。

这是不可能的，你做个例子发上来看看