触发代码事件实现

zzll15888

实际运用中遇到如下问题，该如何将数据表（一）中不连续的起止号码，通过触发代码事件实现数据表（二）的归并。

起始	截止
1	2
3	5
8	10
11	12
15	18
19	20
（表一）

起始	截止
1	5
8	12
15	20
（表二）

Henry D. Sy

看不出你的要求规律

zzll15888

表（一）中的起止号如果是连续的，就串连在一起，生成表（二）的结果。

如：表（一）中的1至2、3至5中间没有断号，所以在表（二）中就生成1至5结果；而表（一）中的8至10、11至12,存在5和8之间有断号，所以在表（二）中需要在另一行生成8至12结果。

不知这样表达是否清楚。

Henry D. Sy

似乎有点明白
1 。暂且称，表1为a，表2为b，字段均为start ，end
2. 新建一个窗体，上面放一个按钮command2，按钮事件如下，（你自己测试一下）
Private Sub Command2_Click()
    Dim rs As New ADODB.Recordset
    Dim rst As New ADODB.Recordset
    Dim S, S1, E, E1 As Long
    rs.Open "a", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
    Do While Not rs.EOF
        S = rs("start")
        E = rs("end")

        rst.Open "b", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        rs.MoveNext
        S1 = rs("start")
        E1 = rs("end")
        If E + 1 = S1 Then
            rst.AddNew
            rst("star") = S
            rst("end") = E1
            rst.Update
            rst.Close
        End If
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Set rst = Nothing
End Sub