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

파일 열리지 않았을때 가져오기 버튼 오류 표시
2023-05-20 23:01:04 +09:00
parent 8813ad3289
commit 3eed3c6cd4
10 changed files with 351 additions and 320 deletions
--- a/ArinWarev1/Forms_Input/Frm_NaengBang.vb
+++ b/ArinWarev1/Forms_Input/Frm_NaengBang.vb
@@ -1,4 +1,6 @@
-Public Class Frm_NaengBang
+Imports System.Windows.Forms
+
+Public Class Frm_NaengBang

    Dim Init As Boolean = False
    Dim SrcDrv As DataRowView
@@ -140,7 +142,7 @@
        If e.KeyCode = Keys.Enter AndAlso e.Control Then
            Try
                Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField)
-                For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "")
+                For Each Dr As DataRow In DT.Select(Me.bs.Filter, "")
                    Dr(Field) = CType(sender, MyTb).Text
                Next
                Work_msg_timer("모든값이 변경되었습니다", 25)
@@ -154,7 +156,7 @@
        If e.KeyCode = Keys.Enter AndAlso e.Control Then
            Try
                Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField)
-                For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "")
+                For Each Dr As DataRow In DT.Select(Me.bs.Filter, "")
                    Dr(Field) = CType(sender, MyCmb).SelectedValue
                Next
                Work_msg_timer("모든값이 변경되었습니다", 25)
@@ -371,7 +373,7 @@
            End If

            For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0)
-                If Me.bs.Count = 0 OrElse ii > 0 Then Me.bt_Add.PerformClick() '//한줄추가
+                If Me.bs.Count = 0 OrElse ii > 0 Then Me.bt_add.PerformClick() '//한줄추가

                Dim Cnt As Short = 0
                For i As Integer = 0 To CB.GetUpperBound(0)
@@ -677,8 +679,8 @@
        If drv Is Nothing Then Return
        Me.lb_code.Text = "[" + drv("code").ToString + "]"

-        If Drv Is Nothing Then Return
-        Dim DR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("열생산냉방생산기기='" & Drv("code").ToString & "' or 공조냉방생산기기='" & Drv("code").ToString & "'") '//2010.12.02 수정
+        If drv Is Nothing Then Return
+        Dim DR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("열생산냉방생산기기='" & drv("code").ToString & "' or 공조냉방생산기기='" & drv("code").ToString & "'") '//2010.12.02 수정
        Dim cnt As Integer = 0
        For Each drow As DS.tbl_zoneRow In DR
            Dim 입력존수문자 As Integer = drow.입력존의수
@@ -726,8 +728,8 @@
        If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then  '//2011.03.08 추가
            If e.Button = Windows.Forms.MouseButtons.Right Then
                Dim Frm_FilterA As New Frm_Filter
-                Frm_FilterA.ColumTitle = getColCaption(Me.Dt)
-                Frm_FilterA.ColumList = getColName(Me.Dt)
+                Frm_FilterA.ColumTitle = getColCaption(Me.DT)
+                Frm_FilterA.ColumList = getColName(Me.DT)
                Frm_FilterA.Colorlist = "온수열생산기기,연결된시스템"
                Frm_FilterA.Numfield = ""    '//20100618  Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망)
                Frm_FilterA.Default_Filter = "code <> '0'"
@@ -740,7 +742,7 @@
                    '//바꾸기값이 있으면 변경 20100618
                    If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _
                    Frm_FilterA.tb_valuec.Text <> "" Then
-                        Dim Drow() As DataRow = Me.Dt.Select(Filter)
+                        Dim Drow() As DataRow = Me.DT.Select(Filter)
                        For Each Dr As DataRow In Drow
                            Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text
                        Next
@@ -777,7 +779,7 @@
                        Me.bt_add.PerformClick()  '//신규추가
                        Dim NewDrv As DataRowView = Me.bs.Current

-                        For Each C As DataColumn In Me.Dt.Columns
+                        For Each C As DataColumn In Me.DT.Columns
                            If C.ColumnName.ToUpper = "CODE" Then
                            ElseIf C.ColumnName.ToUpper = "설명" Then
                                NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1"
--- a/ArinWarev1/Forms_Input/Frm_kongjo.vb
+++ b/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 추가
--- a/ArinWarev1/Forms_Input/Frm_v20091231_Myoun.Designer.vb
+++ b/ArinWarev1/Forms_Input/Frm_v20091231_Myoun.Designer.vb
@@ -34,8 +34,8 @@ Partial Class Frm_V20091231_Myoun
        Dim Label147 As System.Windows.Forms.Label
        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_V20091231_Myoun))
        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_V20091231_Myoun))
        Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
        Me.NTb1 = New Eco2Ar.MyTb()
        Me.NTb2 = New Eco2Ar.MyTb()
@@ -54,7 +54,12 @@ Partial Class Frm_V20091231_Myoun
        Me.bt_cancel = New System.Windows.Forms.ToolStripButton()
        Me.lbl_pos = New System.Windows.Forms.ToolStripLabel()
        Me.Arindv1 = New CEnergy.arindv()
+        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.dv = New CEnergy.arindv()
+        Me.sortkey = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.존분류 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components)
        Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
        Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox()
@@ -131,11 +136,6 @@ Partial Class Frm_V20091231_Myoun
        Me.cmb_방위 = New Eco2Ar.MyCmb()
        Me.tb_02 = New Eco2Ar.MyTb()
        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
-        Me.sortkey = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.존분류 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Label157 = New System.Windows.Forms.Label()
        Label160 = New System.Windows.Forms.Label()
        Label148 = New System.Windows.Forms.Label()
@@ -529,6 +529,15 @@ Partial Class Frm_V20091231_Myoun
        Me.Arindv1.Size = New System.Drawing.Size(152, 527)
        Me.Arindv1.TabIndex = 2
        '
+        'DataGridViewTextBoxColumn2
+        '
+        Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.DataGridViewTextBoxColumn2.DataPropertyName = "설명"
+        Me.DataGridViewTextBoxColumn2.HeaderText = "존"
+        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
+        Me.DataGridViewTextBoxColumn2.ReadOnly = True
+        Me.DataGridViewTextBoxColumn2.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
+        '
        'dv
        '
        Me.dv.A_DelCurrentCell = True
@@ -555,6 +564,42 @@ Partial Class Frm_V20091231_Myoun
        Me.dv.Size = New System.Drawing.Size(219, 527)
        Me.dv.TabIndex = 0
        '
+        'sortkey
+        '
+        Me.sortkey.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+        Me.sortkey.DataPropertyName = "sortkey"
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
+        Me.sortkey.DefaultCellStyle = DataGridViewCellStyle3
+        Me.sortkey.HeaderText = "▼"
+        Me.sortkey.Name = "sortkey"
+        Me.sortkey.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
+        Me.sortkey.Width = 30
+        '
+        'Column1
+        '
+        Me.Column1.DataPropertyName = "code"
+        Me.Column1.HeaderText = "코드"
+        Me.Column1.Name = "Column1"
+        Me.Column1.Visible = False
+        Me.Column1.Width = 51
+        '
+        '존분류
+        '
+        Me.존분류.DataPropertyName = "존분류"
+        Me.존분류.HeaderText = "존분류"
+        Me.존분류.Name = "존분류"
+        Me.존분류.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
+        Me.존분류.Visible = False
+        Me.존분류.Width = 42
+        '
+        'DataGridViewTextBoxColumn1
+        '
+        Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명"
+        Me.DataGridViewTextBoxColumn1.HeaderText = "면/건축부위"
+        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
+        Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
+        '
        'BindingNavigator1
        '
        Me.BindingNavigator1.AddNewItem = Nothing
@@ -1454,51 +1499,6 @@ Partial Class Frm_V20091231_Myoun
        Me.PictureBox2.TabIndex = 11
        Me.PictureBox2.TabStop = False
        '
-        'sortkey
-        '
-        Me.sortkey.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
-        Me.sortkey.DataPropertyName = "sortkey"
-        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
-        Me.sortkey.DefaultCellStyle = DataGridViewCellStyle3
-        Me.sortkey.HeaderText = "▼"
-        Me.sortkey.Name = "sortkey"
-        Me.sortkey.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
-        Me.sortkey.Width = 30
-        '
-        'Column1
-        '
-        Me.Column1.DataPropertyName = "code"
-        Me.Column1.HeaderText = "코드"
-        Me.Column1.Name = "Column1"
-        Me.Column1.Visible = False
-        Me.Column1.Width = 52
-        '
-        '존분류
-        '
-        Me.존분류.DataPropertyName = "존분류"
-        Me.존분류.HeaderText = "존분류"
-        Me.존분류.Name = "존분류"
-        Me.존분류.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
-        Me.존분류.Visible = False
-        Me.존분류.Width = 45
-        '
-        'DataGridViewTextBoxColumn1
-        '
-        Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
-        Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명"
-        Me.DataGridViewTextBoxColumn1.HeaderText = "면/건축부위"
-        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
-        Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
-        '
-        'DataGridViewTextBoxColumn2
-        '
-        Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
-        Me.DataGridViewTextBoxColumn2.DataPropertyName = "설명"
-        Me.DataGridViewTextBoxColumn2.HeaderText = "존"
-        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
-        Me.DataGridViewTextBoxColumn2.ReadOnly = True
-        Me.DataGridViewTextBoxColumn2.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
-        '
        'Frm_V20091231_Myoun
        '
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None