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

羽佳

昨天请教了在一个控件上显示几个控件的值，现在出现了一个新的问题那就是我输入的值在文本框里显示后我撤消输入时，文本框的内容也没能跟着清空，来后我加上了一些IF语句来判断其中一个必填的控件值是否Null值来清空文本框可是没有成功，现在想请教高手应该怎么去实现这个功能

Private sub Text10_AfterUpdate()   

IF Me!c1= Null then

           Me.Text10 = " "

End IF

End Sub

[此贴子已经被作者于2006-4-22 16:19:58编辑过]

羽佳

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

一点通

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

羽佳

一点通老师，在您修改后的例子里可以按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

羽佳

谢谢一点通管理员,又学了一招~

一点通

羽佳

我顶,还有没有人能帮忙解决一下?

羽佳

放在时间事件吗？应该怎么放呢？请问您能说得详细点吗？

qlm

把代码放到时钟事件里啦.

羽佳

我是为了方便复制里面的内容出来才想用这个方法的,谁能帮忙解决一下.

[此贴子已经被作者于2006-4-21 19:21:17编辑过]