左边的子表名称是sub1,右边的子表是sub2,我设置了数据连接。
连接子字段:计算单号;编号
连接主字段:sub1.form!计算单号;sub1.form!编号
并且在sub1中的当前事件的代代码是:
'当前事件
Private Sub Form_Current()
On Error Resume Next
If Err <> 0 Then
GoTo Form_Current_Exit
Else
On Error GoTo Form_Current_Err
Me.Parent![sub2].Requery
End If
Form_Current_Exit:
Exit Sub
Form_Current_Err:
MsgBox Err.Description
Resume Form_Current_Exit
End Sub
连接的设置是没有问题的。
可是当我按主表的下一记录的时候,就出现如上的错误,并且是单击确定后退出软件,晕死了。
[此贴子已经被作者于2006-7-26 18:49:41编辑过]
|