怎样实现子窗口和主窗口信息（指针）同步

Question

http://www.wzjcw.net/vbgood/taishan/index.html

Answer 1

Data1控件是放在哪个窗体上的呢？你不会是两个窗体上都有一个吧？还有：Data1.Recordset.MoveLast: Data1.Recordset.MoveFirst  我不知道这两句是干什么用的？

Answer 2

谢谢你的解答！！！
我两个窗体上都放Data，因为主窗体上放的是跟text邦定用、查询子窗体放3个Data控件各用3个DBgrid邦定使用，我的查询窗体是这么做的第一个Data1和DBgrid1是单位我用鼠标点击DBgrid1里的要查询的单位（Data2和DBgrid2邦定）DBgrid2里显示所有这个单位的科室，我在点击要查询的科室（Data3和DBgrid3邦定）DBgrid3里显示出我要查询的人现在我在用鼠标点击这个人的信息主菜单里显示可回到主菜单后没有变化可表是一个来操作吗，以上的语句是我在网上找的后实现的（可能花几个月的时间解决的所以Dadat.Recordset.MoveLast 我也不太知道DBgrid里用鼠标点击后有事下一个DBgrid里显示的是上一条记录所以可能用这样调整吧。顺便在问一个吧我DBgrid里Click事件调用DBgrid2里显示相关内容可我用鼠标点击两次才下一个DBgrid里显示有没有用鼠标点击一次马上有反应的事件？

Answer 3

上面这段话我没大看明白，不过我觉得你用一个Data控件就行了。没必要搞这么多另外，如果可以的话你多贴一些代码上来。。

Answer 4

我是查询里不用按钮都直接DBgrid里的内容点击后第二个DBgrid 里显示可我为了取得第一个DBgrid里点击的单位变量我先点击的单位用ComBol里关联在Combo1和Text关联后SQL变量里读进去现在这样我的目的是实现可这里查后主菜单里不能显示，请问只用 Data1一个能行吗？
Private Sub DBGrid1_Click()
On Error GoTo OOPS
Dim Inputstring As String
Text1.Text = Combo1.Text
Inputstring = Text1.Text
If Len(Inputstring) > 0 Then
Data2.RecordSource = "SELECT  distinct 部门  from  通讯 WHERE " & "单位" & " Like " & " '" & Inputstring & "'"
Data2.Refresh
'Data2.Recordset.MoveLast: Data1.Recordset.MoveFirst
Data2.Refresh
End If
Exit Sub
OOPS:
End Sub

Answer 5

建议你多用几个逗号吧，我看得有点头晕。。：）我想用一个Data1是可以的，将Data1放在你的主窗口里，然后在查询窗口的代码这样写：主窗口.Data2.RecordSource = "SELECT  distinct 部门  from  通讯 WHERE " & "单位" & " Like " & " '" & Inputstring & "'"
主窗口.Data2.Refresh这样就是主窗口的Data控件在刷新，当然能够显示出数据了。。

Answer 6

错了，应该是Data1。。主窗口.Data1.RecordSource = "SELECT  distinct 部门  from  通讯 WHERE " & "单位" & " Like " & " '" & Inputstring & "'"
主窗口.Data1.Refresh

Answer 7

我也以前这样做过不行，我想子窗口显示一个人的记录时，内部指针肯定在某一个地方，用什么语句（我这样也做过 data1.RecordSource=主窗口frm.data1)他们们内容同步。

Answer 8

最笨的办法就是用子窗口查询的条件重新定位主窗口的Data控件，用一个循环加IF判断语句就可以了。