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

设定101到120为循环，120结束后接下来继续101，如设定101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,101,102,103……要设定这样的顺序。

有一多值字段列，比如为内容为101,102,105,110,111,112,119,120。

“开始”列输入101时在“计数“列得到2，就相当于从101开始有2个连续的数，

“开始”列输入105时在“计数“列得到1，就相当于从105开始有1个连续的数，

“开始”列输入110时在“计数“列得到3，就相当于从110开始有3个连续的数，

“开始”列输入119时在“计数“列得到4，就相当于从119开始有4个连续的数，

“开始”列输入120时在“计数“列得到3，就相当于从120开始有3个连续的数，

“开始”列输入115时在“计数“列得到0，就相当于从101开始有0个连续的数。

请问如何实现，谢谢

[此贴子已经被作者于2018/3/1 12:49:00编辑过]

不明白逻辑，最好上例子+详细说明

设定101到120为循环，120结束后接下来继续101，如设定101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,101,102,103……要设定这样的顺序。

有一多值字段列，比如为内容为101,102,105,110,111,112,119,120。

“开始”列输入101时在“计数“列得到2，就相当于从101开始有2个连续的数（101,102），

“开始”列输入105时在“计数“列得到1，就相当于从105开始有1个连续的数（105），

“开始”列输入110时在“计数“列得到3，就相当于从110开始有3个连续的数（110，111,112），

“开始”列输入119时在“计数“列得到4，就相当于从119开始有4个连续的数（119，

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

120,101,102），

“开始”列输入120时在“计数“列得到3，就相当于从120开始有3个连续的数（120,101,102），

“开始”列输入115时在“计数“列得到0，就相当于从115开始有0个连续的数（无）。

请问如何实现，谢谢

[此贴子已经被作者于2018/3/1 13:32:15编辑过]

麻烦再看看

[此贴子已经被作者于2018/3/1 13:46:38编辑过]

Select Case e.DataCol.name
    Case "序号开始数","内容"
        Dim tmp As Integer = e.DataRow("序号开始数")
        If tmp >= 101 Then
            Dim count As Integer = 0
            For i As Integer = 1 To 20
                Dim ii As Integer = tmp + i - 1
                If ii > 120 Then ii = ii-20
                If e.DataRow("内容").contains(ii) = False Then
                    Exit For
                Else
                    count += 1
                End If
            Next
            e.DataRow("从序号开始数计数起连续数") = count
        Else
            e.DataRow("从序号开始数计数起连续数") = 0
        End If
End Select

主题：多值字段计数