主题：是这么写不？？

 Dim dr As DataRow
dr = DataTables("款号登记").SQLFind("款号 = '" & Tables("销售订单_table1").current("款号") & "'")

If Forms("销售订单款式图").Opened Then '如果窗口已经打开    
    Dim pbx As WinForm.PictureBox = Forms("销售订单款式图片").Controls("PictureBox1")    
    If Tables("销售订单_table1").Current Is Nothing Then        
        pbx.Image = Nothing        
    Else        
        pbx.Image = dr("款式图") '从后台提取照片并显示        
    End If    
End If