vb学习实例。。。带讲解 Private Sub cmdOpen_Click() With CommonDialog1 .Filter = "dnr files (*.dnr)|*.dnr" .ShowOpen If .FileName "" Then cmdOpen.Enabled = False ViewReportByFile DNPrinter1, .FileName End