================================
Private Sub 类型_AfterUpdate()
If Me.类型 = "上柜" Then
Me.离厂时间.Visible = False
Me.进场时间.Visible = False
Else
Me.离厂时间.Visible = True
Me.进场时间.Visible = True
End If
End Sub (这样写就是第2行会影响第1行)
=====================================
B、当输入类型为“回柜”时显示“离厂时间""进场时间”输入框、隐藏“提箱时间”“到厂时间”,并且在“离厂时间""进场时间”输入完成后,在“出口委托”窗体--“集装箱信息”选项框对应的柜号“操作”这个字段显示“已返箱”
并且该行颜色变红色
tmtony老师,我是这样想的,我把“提箱时间”和“离场时间”重叠,因为不管上柜还是回柜,只可能出现一个的,上面我把它们拉开是方便各位老师看一下。
==========================================
Private Sub 类型_AfterUpdate()
If Me.类型 = "上柜" Then
Me.离厂时间.Visible = False
Me.进场时间.Visible = False
Else
Me.离厂时间.Visible = True
Me.进场时间.Visible = True
End If
End Sub '(这样写就是第2行会影响第1行)
===================================
现在问题是连续窗体下,这样写代码的话第1行选上柜,显示的时间是“提箱时间”和“到厂时间”,但是到第2行的时候选 回柜,显示的时间是“离厂时间”和“进场时间”,可是问题出来了,这个时候它会一起把第一行时间也给改了。。。。