가져오기 버튼 , 출력 버튼하고 동일하게 노출

파일 열리지 않았을때 가져오기 버튼 오류 표시

ArinWarev1/Forms_Input/Frm_kongjo.vb

@@ -1,9 +1,11 @@
-Public Class Frm_kongjo
+Imports System.Windows.Forms
+
+Public Class Frm_kongjo
 
     Dim Init As Boolean = False
     Dim SrcDrv As DataRowView
 
-   
+
     Public Sub New(_opentime)
 
         ' 이 호출은 디자이너에 필요합니다.
@@ -346,7 +348,7 @@
             공기식태양열적용ComboBox.Text = drKongjo.공기식태양열적용
             집열기방위ComboBox.Text = drKongjo.집열기방위
 
-            Dim DR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("냉난방공조처리시스템='" & Drv("code").ToString & "'")
+            Dim DR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("냉난방공조처리시스템='" & drv("code").ToString & "'")
             If DR.GetUpperBound(0) = -1 Then   '//해당되는 데이터가없을경우
                 Me.tb_zone_cnt.Text = "0"
                 Me.TextBox1.Text = "0"
@@ -515,7 +517,7 @@
 
     Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown
 
-      
+
 
         '//여기보시면   alt+d 누르면  한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는
         If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then  '//2011.03.08 추가