大家来看看我这段代码，我都快疯了。

fan0217

LinkChildFields 和 LinkMasterFields 属性:当为这两个属性的设置指定多个字段或控件的名称时，则必须为每一属性设置输入相同数目的字段或控件名称，并在名称之间使用分号 (;) 进行[url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acproLinkMasterFields.htm#]分隔[/url]

fan0217

不是不能实现,你的方法没有对

在子窗体中手工设置好LinkChildFields 和 LinkMasterFields 属性,凡是全部满足条件的记录都会在子窗体中显示.

fengyunhun

程序又改进了，不过没有反映。这次没有错误提示，就是没有效果。把“Me.lianjie”改成“Forms!窗体1.lianjie”也没有反映。

Private Sub 下单日期_Exit(Cancel As Integer)
Me.下单日期.BackColor = RGB(255, 255, 255)
Me.lianjie
Me.精品任务单_子表.Requery
End Sub

Public Function lianjie()
If ((Me.精品任务编号 = "") And (Me.下单日期 = "") And (Me.任务日期 = "")) Then
Me.Form!精品任务单_子表.LinkMasterFields = ""
Me.Form!精品任务单_子表.LinkChildFields = ""
ElseIf ((Me.精品任务编号 <> "") And (Me.下单日期 = "") And (Me.任务日期 = "")) Then
Me.Form!精品任务单_子表.LinkMasterFields = "精品任务编号"
Me.Form!精品任务单_子表.LinkChildFields = "精品任务编号"
ElseIf ((Me.精品任务编号 = "") And (Me.下单日期 <> "") And (Me.任务日期 = "")) Then
Me.Form!精品任务单_子表.LinkMasterFields = "下单日期"
Me.Form!精品任务单_子表.LinkChildFields = "下单日期"
ElseIf ((Me.精品任务编号 = "") And (Me.下单日期 = "") And (Me.任务日期 <> "")) Then
Me.Form!精品任务单_子表.LinkMasterFields = "任务日期"
Me.Form!精品任务单_子表.LinkChildFields = "任务日期"
ElseIf ((Me.精品任务编号 <> "") And (Me.下单日期 <> "") And (Me.任务日期 = "")) Then
Me.Form!精品任务单_子表.LinkMasterFields = "精品任务编号;下单日期"
Me.Form!精品任务单_子表.LinkChildFields = "精品任务编号;下单日期"
ElseIf ((Me.精品任务编号 = "") And (Me.下单日期 <> "") And (Me.任务日期 <> "")) Then
Me.Form!精品任务单_子表.LinkMasterFields = "下单日期;任务日期"
Me.Form!精品任务单_子表.LinkChildFields = "下单日期;任务日期"
ElseIf ((Me.精品任务编号 <> "") And (Me.下单日期 = "") And (Me.任务日期 <> "")) Then
Me.Form!精品任务单_子表.LinkMasterFields = "精品任务编号;任务日期"
Me.Form!精品任务单_子表.LinkChildFields = "精品任务编号;任务日期"
ElseIf ((Me.精品任务编号 <> "") And (Me.下单日期 <> "") And (Me.任务日期 <> "")) Then
Me.Form!精品任务单_子表.LinkMasterFields = "精品任务编号;下单日期;任务日期"
Me.Form!精品任务单_子表.LinkChildFields = "精品任务编号;下单日期;任务日期"
End If
End Function

[此贴子已经被作者于2006-4-9 20:23:56编辑过]

fan0217

Private Sub 下单日期_Exit(Cancel As Integer)
Me.下单日期.BackColor = RGB(255, 255, 255)
Me.lianjie
Me.精品任务单_子表.Requery
End Sub

红色部分是什么意思,调用函数?

用call lianjie试试

使用LinkChildFields 和 LinkMasterFields 属性,可以不要Me.精品任务单_子表.Requery这句.

[此贴子已经被作者于2006-4-9 20:34:11编辑过]

fengyunhun

call lianjie试了一下，没有反映。我觉得这两个方法没有区别。

fengyunhun

我大概已经发现原因了。因为我修改的数据在退出之后也会自动在刷新（可能会独占），因为我用的是同一张表单，所以刷新的时候可能有点问题。

如果我用另一张表，可能就不会有问题了，我把子“表单”换成“查询”再试一试，完后上报一下。

[此贴子已经被作者于2006-4-9 20:37:33编辑过]

fan0217

用这种方法最方便.

在SQL语句的Where子句中设置条件,然后为子窗体的RecordSource 属性赋值

例如:Sub cmboCompanyName_AfterUpdate()
    Dim strNewRecord As String
    strNewRecord = "SELECT * FROM Customers " _
        & " WHERE CustomerID = '" _
        & Me!cmboCompanyName.Value & "'"
    Me.RecordSource = strNewRecord
End Sub