以文本方式查看主题

-  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=12077)

--  作者:雨中的泪
--  发布时间:2011/8/22 10:37:00
--  如何判断录入?谢谢

有一列由用户自行录入,但是必须是录入大于0的整数;

1、录入的这列,数据是:1

                                 1

                                 1

                                 2

                                 2

                                 ......

2、必须是从1开始录不能录入0;中间不能出现断数(比如:2未使用时,就不能录3) 

如何实现,谢谢


--  作者:狐狸爸爸
--  发布时间:2011/8/22 10:42:00
--  

沙发,留给大家做练习。


--  作者:雨中的泪
--  发布时间:2011/8/22 11:34:00
--  
各位,帮忙看看
--  作者:mr725
--  发布时间:2011/8/22 12:36:00
--  

0、如果第一行时,如果数字不等于 1 时,提示····    其他行:

1、为空时,提示···

2、如果录入的整数 减 上一行的整数不等于 1 或 不等于 0 时,提示····

.................

 

楼主已经是老狐了····  呵呵


--  作者:雨中的泪
--  发布时间:2011/8/22 14:29:00
--  
恰恰不是第一行
--  作者:雨中的泪
--  发布时间:2011/8/22 14:30:00
--  

是作为整个数据表中,某些数据的标志


--  作者:雨中的泪
--  发布时间:2011/8/22 14:31:00
--  

作为整个数据表中,某些数据行的标志;不是全部的数据行都要使用该列


--  作者:blackzhu
--  发布时间:2011/8/22 15:46:00
--  
If e.Col.Name = "第三列" Then
    If e.Row("第三列") = 0 Then
        e.Row("第三列") = Nothing
    Else
        Dim i As Integer
        e.Row("第三列")= e.Table.Compute("count(第三列)") 
    End If
End If

在表属性的AfterEdit执行,看看效果对不对.


--  作者:c
--  发布时间:2011/8/22 16:13:00
--  

地板

[此贴子已经被作者于2011-8-22 16:25:06编辑过]

--  作者:雨中的泪
--  发布时间:2011/8/22 16:14:00
--  
不行呀,1、2、3---代表批次,可能很多行会出现同一个数字