[求助]在一个控件显示几个控件值的新问题

羽佳

一点通老师，在您修改后的例子里可以按ESC键来清除Text10框里的值，于是我照着您的代码用到别的数据库中就只有点在窗体中制作的取消控件才能清除文本框里的值，而点ESC只能清除别的控件里的值，我也搞不清楚我出在哪里，现在把我的代码发上来请您帮我看一下错在哪里。

Option Compare Database

Private Sub Form_Load()
    Label22.Visible = False
    操作员ID.Visible = False
    Label25.Visible = False
    收货人ID.Visible = False
    Label27.Visible = False
    发货日期.Visible = False
End Sub

Private Sub 订单编号_AfterUpdate()
     Call Form_current
End Sub

Private Sub 类别ID_AfterUpdate()
     Call Form_current
End Sub

Private Sub 区域ID_AfterUpdate()
     Call Form_current
End Sub

Private Sub 城市名字_AfterUpdate()
     Call Form_current
End Sub

Private Sub 运输公司_AfterUpdate()
     Call Form_current
End Sub

Private Sub 发货人_AfterUpdate()
     Call Form_current
End Sub

Private Sub 收货人_AfterUpdate()
     Call Form_current
End Sub

Private Sub 收货人电话_AfterUpdate()
     Call Form_current
End Sub

Private Sub 收货人地址_AfterUpdate()
     Call Form_current
End Sub

Private Sub 订货时间_AfterUpdate()
     Call Form_current
End Sub

Private Sub 发货时间_AfterUpdate()
     Call Form_current
End Sub

Private Sub 订单金额_AfterUpdate()
     Call Form_current
End Sub

Private Sub 备注_AfterUpdate()
     Call Form_current
End Sub

Private Sub Form_current()
    Text50 = "编号: " & 订单编号 & vbNewLine & "类别: " & 类别ID & vbNewLine & "区域: " & 区域ID & vbNewLine & "城市: " & 城

市名字 & vbNewLine & "运输公司: " & 运输公司 & vbNewLine & "发货人: " & 员工ID & vbNewLine & "发货人: " & 客户ID & vbNewLine

& "收货人电话: " & 客户电话号码 & vbNewLine & "收货人地址: " & 客户地址 & vbNewLine & "订货时间: " & 订货时间 & " 发货时间" &

发货时间 & vbNewLine & "本订单金额: " & 本订单金额 & vbNewLine & 备注 & vbNewLine
    Text50.Requery

End Sub

Private Sub command52_Click()
    Me.Undo
    Call Form_current
End Sub


Private Sub 是否发货_AfterUpdate()
    If Me!是否发单 <> Yes Then
        Label22.Visible = False
        操作员ID.Visible = False
        Label25.Visible = True
        收货人ID.Visible = True
        Label27.Visible = True
        发货日期.Visible = True
    Else
        Label22.Visible = True
        操作员ID.Visible = True
        Label25.Visible = False
        收货人ID.Visible = False
        Label27.Visible = False
        发单价格.Visible = False
    End If
End Sub

Private Sub 是否发单_BeforeUpdate(cancel As Integer)
    If Me!是否发单 <> Yes Then
       Label22.Visible = False
        操作员ID.Visible = False
        Label25.Visible = True
        收货人ID.Visible = True
        Label27.Visible = True
        发货日期.Visible = True
    Else
        Label22.Visible = True
        操作员ID.Visible = True
        Label25.Visible = False
        收货人ID.Visible = False
        Label27.Visible = False
        发单价格.Visible = False
    End If
End Sub
Private Sub 是否是货_AfterUpdate()
    Call 保存_Click
End Sub

Private Sub 保存_Click()
    Me.发货记录 = IIf([是否发货] <> No, "发货", "未发")
End Sub

一点通

太长了,不是这些代码的问题,你再仔细看一下我给你的哪个按钮属性与你的按钮属性有什么不同,找出这个设置就行了,花点时间找一下吧

羽佳

找到了，我没把控件里的一个设置设好，谢谢一点通老师。