# Re: 两个资料库同步的问题??

Posted by 小琳 on June 30, 1999 at 20:29:12:

In Reply to: 两个资料库同步的问题?? posted by Chang Lee. on June 30, 1999 at 12:57:54:

: 这两个资料库指的是同一个资料档,但是因我有两种用途,
: 例如:当我移动 Data1 的指标时,Data2 也会跟着移动??

:::程式如下：
Option Explicit
Dim temp As Integer
Private Sub Data1_Reposition()
If temp <> 0 Then
Data2.Recordset.MoveFirst
Do While Not Data2.Recordset.EOF
If Data2.Recordset(0) = Data1.Recordset(0) Then
Exit Do
End If
Data2.Recordset.MoveNext
Loop
Else
temp = 1
End If
End Sub

Private Sub Form_Load()
temp = 0
End Sub

Follow Ups: