IF Option1(0).value=ture Then

With DataEnvironment.rscommand1

IF .state=adstateopen Then .close

.source=..........

.open

End With

Datareport_PL_BC.viseble=ture

Exit Sub

End If

这是单位的一段班次配料累计vb程序，本人感觉第二个if没有end_if，不知道到那里结束，但是程序运行正常，请高手指教