Private Sub 业务类型_AfterUpdate()
If Me.业务类型 = "001" Then
Me.障碍现象.RowSource = "SELECT 障碍现象.障碍现象ID, 障碍现象.障碍现象, 障碍现象.业务类型编号 FROM 障碍现象 WHERE (((障碍现象.业务类型编号)='YWLX001'))"
End If
If Me.业务类型 = "002" Then
Me.障碍现象.RowSource = "SELECT 障碍现象.障碍现象ID, 障碍现象.障碍现象, 障碍现象.业务类型编号 FROM 障碍现象 WHERE (((障碍现象.业务类型编号)='YWLX002'))"
End If