代码前面加上e.Cancel = True,试试
Dim dr As Row = e.Row
e.Cancel = True
Forms("目录窗口").open()
If forms("目录窗口").opened Then
forms("目录窗口").controls("Label2").text=dr("ajdjh")
End If
Forms("一般程序管理").open()
If forms("一般程序管理").opened Then
forms("一般程序管理").controls("ComboBox1").text=dr("jbxx_zfry1")
forms("一般程序管理").controls("Label8").text=dr("jbxx_zfzh1")
forms("一般程序管理").controls("ComboBox2").text=dr("jbxx_zfry2")
forms("一般程序管理").controls("Label9").text=dr("jbxx_zfzh2")
End If