回复 杜超

子窗体加了此代码

Private Sub Form_Current()
Dim ctl As Control
For Each ctl In Me
    If ctl.ControlType = acTextBox Then
        ctl.FormatConditions(0).Modify acExpression, , "[DDID]=" & Nz([DDID], -1)
    End If
Next ctl
End Sub
Private Sub Form_Open(Cancel As Integer)
Dim ctl As Control
For Each ctl In Me
    If ctl.ControlType = acTextBox Then
        ctl.FormatConditions.Delete
        ctl.FormatConditions.Add acExpression, , "[DDID] = -1"
        ctl.FormatConditions(0).BackColor = vbBlue
        ctl.FormatConditions(0).ForeColor = vbWhite
    End If
Next ctl
End Sub