Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
If lvw.Current IsNot Nothing Then
If Forms.Contains("'" & lvw.Current.Text & "'") Then
Forms("'" & lvw.Current.Text & "'").Open()
Else
MessageBox.Show( "《" & lvw.Current.Text & " 》模块正在设计中......","提示")
End If
End If
请问代码有什么问题吗?窗口存在,可是打不开,为什么。