JAVA 웹 과 비교를 하기위한 기타 기능 추가

This commit is contained in:
chi
2019-11-25 21:06:59 +09:00
parent 8174108238
commit 5cc843777c
14 changed files with 318 additions and 171 deletions

View File

@@ -90,6 +90,18 @@ Partial Class Frm_RepResult_Admin
Me.bs_면적 = New System.Windows.Forms.BindingSource(Me.components)
Me.TabPage5 = New System.Windows.Forms.TabPage()
Me.DataGridView5 = New Eco2OD.ArinDv()
Me.MonDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.난방에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.난방보조에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.냉방에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.냉방보조에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.급탕에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.급탕보조에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.난방 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.냉방 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.조명 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.급탕 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.환기 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.bs_소요량 = New System.Windows.Forms.BindingSource(Me.components)
Me.TabPage6 = New System.Windows.Forms.TabPage()
Me.DataGridView6 = New Eco2OD.ArinDv()
@@ -147,18 +159,7 @@ Partial Class Frm_RepResult_Admin
Me.면적당생산량태양열DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.면적당생산량지열DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.bs_생산E = New System.Windows.Forms.BindingSource(Me.components)
Me.MonDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.난방에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.난방보조에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.냉방에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.냉방보조에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.급탕에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.급탕보조에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.난방 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.냉방 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.조명 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.급탕 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.환기 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bn_all, System.ComponentModel.ISupportInitialize).BeginInit()
Me.bn_all.SuspendLayout()
@@ -300,7 +301,7 @@ Partial Class Frm_RepResult_Admin
Me.bn_all.DeleteItem = Nothing
Me.bn_all.Dock = System.Windows.Forms.DockStyle.Bottom
Me.bn_all.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.bn_all.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton44, Me.ToolStripButton45, Me.ToolStripSeparator25, Me.ToolStripTextBox6, Me.ToolStripLabel6, Me.ToolStripSeparator26, Me.ToolStripButton46, Me.ToolStripButton47, Me.ToolStripSeparator27, Me.ToolStripButton48, Me.ToolStripButton49, Me.ToolStripSeparator28, Me.ToolStripButton50, Me.ToolStripButton51})
Me.bn_all.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton44, Me.ToolStripButton45, Me.ToolStripSeparator25, Me.ToolStripTextBox6, Me.ToolStripLabel6, Me.ToolStripSeparator26, Me.ToolStripButton46, Me.ToolStripButton47, Me.ToolStripSeparator27, Me.ToolStripButton48, Me.ToolStripButton49, Me.ToolStripSeparator28, Me.ToolStripButton50, Me.ToolStripButton51, Me.ToolStripButton1})
Me.bn_all.Location = New System.Drawing.Point(0, 446)
Me.bn_all.MoveFirstItem = Me.ToolStripButton44
Me.bn_all.MoveLastItem = Me.ToolStripButton47
@@ -795,6 +796,102 @@ Partial Class Frm_RepResult_Admin
Me.DataGridView5.Size = New System.Drawing.Size(819, 420)
Me.DataGridView5.TabIndex = 16
'
'MonDataGridViewTextBoxColumn1
'
Me.MonDataGridViewTextBoxColumn1.DataPropertyName = "mon"
Me.MonDataGridViewTextBoxColumn1.HeaderText = "mon"
Me.MonDataGridViewTextBoxColumn1.Name = "MonDataGridViewTextBoxColumn1"
Me.MonDataGridViewTextBoxColumn1.ReadOnly = True
Me.MonDataGridViewTextBoxColumn1.Width = 56
'
'난방에너지소요량DataGridViewTextBoxColumn
'
Me.난방에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "난방에너지소요량"
Me.난방에너지소요량DataGridViewTextBoxColumn.HeaderText = "난방에너지소요량"
Me.난방에너지소요량DataGridViewTextBoxColumn.Name = "난방에너지소요량DataGridViewTextBoxColumn"
Me.난방에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.난방에너지소요량DataGridViewTextBoxColumn.Width = 87
'
'난방보조에너지소요량DataGridViewTextBoxColumn
'
Me.난방보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "난방보조에너지소요량"
Me.난방보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "난방보조에너지소요량"
Me.난방보조에너지소요량DataGridViewTextBoxColumn.Name = "난방보조에너지소요량DataGridViewTextBoxColumn"
Me.난방보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.난방보조에너지소요량DataGridViewTextBoxColumn.Width = 99
'
'냉방에너지소요량DataGridViewTextBoxColumn
'
Me.냉방에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "냉방에너지소요량"
Me.냉방에너지소요량DataGridViewTextBoxColumn.HeaderText = "냉방에너지소요량"
Me.냉방에너지소요량DataGridViewTextBoxColumn.Name = "냉방에너지소요량DataGridViewTextBoxColumn"
Me.냉방에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.냉방에너지소요량DataGridViewTextBoxColumn.Width = 87
'
'냉방보조에너지소요량DataGridViewTextBoxColumn
'
Me.냉방보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "냉방보조에너지소요량"
Me.냉방보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "냉방보조에너지소요량"
Me.냉방보조에너지소요량DataGridViewTextBoxColumn.Name = "냉방보조에너지소요량DataGridViewTextBoxColumn"
Me.냉방보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.냉방보조에너지소요량DataGridViewTextBoxColumn.Width = 99
'
'급탕에너지소요량DataGridViewTextBoxColumn
'
Me.급탕에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "급탕에너지소요량"
Me.급탕에너지소요량DataGridViewTextBoxColumn.HeaderText = "급탕에너지소요량"
Me.급탕에너지소요량DataGridViewTextBoxColumn.Name = "급탕에너지소요량DataGridViewTextBoxColumn"
Me.급탕에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.급탕에너지소요량DataGridViewTextBoxColumn.Width = 87
'
'급탕보조에너지소요량DataGridViewTextBoxColumn
'
Me.급탕보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "급탕보조에너지소요량"
Me.급탕보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "급탕보조에너지소요량"
Me.급탕보조에너지소요량DataGridViewTextBoxColumn.Name = "급탕보조에너지소요량DataGridViewTextBoxColumn"
Me.급탕보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.급탕보조에너지소요량DataGridViewTextBoxColumn.Width = 99
'
'난방
'
Me.난방.DataPropertyName = "난방"
Me.난방.HeaderText = "난방"
Me.난방.Name = "난방"
Me.난방.ReadOnly = True
Me.난방.Width = 52
'
'냉방
'
Me.냉방.DataPropertyName = "냉방"
Me.냉방.HeaderText = "냉방"
Me.냉방.Name = "냉방"
Me.냉방.ReadOnly = True
Me.냉방.Width = 52
'
'조명
'
Me.조명.DataPropertyName = "조명"
Me.조명.HeaderText = "조명"
Me.조명.Name = "조명"
Me.조명.ReadOnly = True
Me.조명.Width = 52
'
'급탕
'
Me.급탕.DataPropertyName = "급탕"
Me.급탕.HeaderText = "급탕"
Me.급탕.Name = "급탕"
Me.급탕.ReadOnly = True
Me.급탕.Width = 52
'
'환기
'
Me.환기.DataPropertyName = "환기"
Me.환기.HeaderText = "환기"
Me.환기.Name = "환기"
Me.환기.ReadOnly = True
Me.환기.Width = 52
'
'bs_소요량
'
Me.bs_소요량.DataMember = "에너지소요량"
@@ -1336,101 +1433,13 @@ Partial Class Frm_RepResult_Admin
Me.bs_생산E.DataMember = "생산에너지"
Me.bs_생산E.DataSource = Me.DSR
'
'MonDataGridViewTextBoxColumn1
'ToolStripButton1
'
Me.MonDataGridViewTextBoxColumn1.DataPropertyName = "mon"
Me.MonDataGridViewTextBoxColumn1.HeaderText = "mon"
Me.MonDataGridViewTextBoxColumn1.Name = "MonDataGridViewTextBoxColumn1"
Me.MonDataGridViewTextBoxColumn1.ReadOnly = True
Me.MonDataGridViewTextBoxColumn1.Width = 56
'
'난방에너지소요량DataGridViewTextBoxColumn
'
Me.난방에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "난방에너지소요량"
Me.난방에너지소요량DataGridViewTextBoxColumn.HeaderText = "난방에너지소요량"
Me.난방에너지소요량DataGridViewTextBoxColumn.Name = "난방에너지소요량DataGridViewTextBoxColumn"
Me.난방에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.난방에너지소요량DataGridViewTextBoxColumn.Width = 87
'
'난방보조에너지소요량DataGridViewTextBoxColumn
'
Me.난방보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "난방보조에너지소요량"
Me.난방보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "난방보조에너지소요량"
Me.난방보조에너지소요량DataGridViewTextBoxColumn.Name = "난방보조에너지소요량DataGridViewTextBoxColumn"
Me.난방보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.난방보조에너지소요량DataGridViewTextBoxColumn.Width = 99
'
'냉방에너지소요량DataGridViewTextBoxColumn
'
Me.냉방에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "냉방에너지소요량"
Me.냉방에너지소요량DataGridViewTextBoxColumn.HeaderText = "냉방에너지소요량"
Me.냉방에너지소요량DataGridViewTextBoxColumn.Name = "냉방에너지소요량DataGridViewTextBoxColumn"
Me.냉방에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.냉방에너지소요량DataGridViewTextBoxColumn.Width = 87
'
'냉방보조에너지소요량DataGridViewTextBoxColumn
'
Me.냉방보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "냉방보조에너지소요량"
Me.냉방보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "냉방보조에너지소요량"
Me.냉방보조에너지소요량DataGridViewTextBoxColumn.Name = "냉방보조에너지소요량DataGridViewTextBoxColumn"
Me.냉방보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.냉방보조에너지소요량DataGridViewTextBoxColumn.Width = 99
'
'급탕에너지소요량DataGridViewTextBoxColumn
'
Me.급탕에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "급탕에너지소요량"
Me.급탕에너지소요량DataGridViewTextBoxColumn.HeaderText = "급탕에너지소요량"
Me.급탕에너지소요량DataGridViewTextBoxColumn.Name = "급탕에너지소요량DataGridViewTextBoxColumn"
Me.급탕에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.급탕에너지소요량DataGridViewTextBoxColumn.Width = 87
'
'급탕보조에너지소요량DataGridViewTextBoxColumn
'
Me.급탕보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "급탕보조에너지소요량"
Me.급탕보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "급탕보조에너지소요량"
Me.급탕보조에너지소요량DataGridViewTextBoxColumn.Name = "급탕보조에너지소요량DataGridViewTextBoxColumn"
Me.급탕보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.급탕보조에너지소요량DataGridViewTextBoxColumn.Width = 99
'
'난방
'
Me.난방.DataPropertyName = "난방"
Me.난방.HeaderText = "난방"
Me.난방.Name = "난방"
Me.난방.ReadOnly = True
Me.난방.Width = 52
'
'냉방
'
Me.냉방.DataPropertyName = "냉방"
Me.냉방.HeaderText = "냉방"
Me.냉방.Name = "냉방"
Me.냉방.ReadOnly = True
Me.냉방.Width = 52
'
'조명
'
Me.조명.DataPropertyName = "조명"
Me.조명.HeaderText = "조명"
Me.조명.Name = "조명"
Me.조명.ReadOnly = True
Me.조명.Width = 52
'
'급탕
'
Me.급탕.DataPropertyName = "급탕"
Me.급탕.HeaderText = "급탕"
Me.급탕.Name = "급탕"
Me.급탕.ReadOnly = True
Me.급탕.Width = 52
'
'환기
'
Me.환기.DataPropertyName = "환기"
Me.환기.HeaderText = "환기"
Me.환기.Name = "환기"
Me.환기.ReadOnly = True
Me.환기.Width = 52
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(89, 22)
Me.ToolStripButton1.Text = "Export CSV"
'
'Frm_RepResult_Admin
'
@@ -1654,4 +1663,5 @@ Partial Class Frm_RepResult_Admin
Friend WithEvents 조명 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents 급탕 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents 환기 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
End Class

View File

@@ -224,6 +224,21 @@
iFabELLuV+NxZzW27EzywNY1iMgm4Uoj65nPSOOlGMpfi+g5TUSCvug3onN5Npp0C/B0yWIM71yHyNm9
qk7s7EWiyQd1lVkIn8mA/uVhi16RiSVHo2eMCapyNHb7VrododNFyhkzxxox88h/mvZO/vN3FuI3yXDJ
RlfZIFMAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -238,9 +253,21 @@
<metadata name="M00.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="F.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="M00.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bs_max.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="bs_max.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="bs_면적.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="bs_면적.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
@@ -262,10 +289,34 @@
<metadata name="bs_소요량.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>111, 17</value>
</metadata>
<metadata name="난방.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="냉방.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="조명.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="급탕.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="환기.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bs_소요량.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>111, 17</value>
</metadata>
<metadata name="bs_1차소요량.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>218, 17</value>
</metadata>
<metadata name="bs_1차소요량.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>218, 17</value>
</metadata>
<metadata name="bs_생산E.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>344, 17</value>
</metadata>
<metadata name="bs_생산E.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>344, 17</value>
</metadata>
</root>

View File

@@ -54,5 +54,46 @@
' Me.bs.DataSource = DSETR
End Sub
Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click
Dim sd As New SaveFileDialog()
sd.Filter = "csv|*.csv"
sd.FilterIndex = 0
If (sd.ShowDialog() <> Windows.Forms.DialogResult.OK) Then Return
Dim Fs As New System.IO.FileStream(sd.FileName, IO.FileMode.Create)
Dim SW As New System.IO.StreamWriter(Fs, System.Text.Encoding.Default)
Dim Strbuf As String = ""
Dim colList As New List(Of Integer)
SW.WriteLine(",Code,Total,M1,M2,M3,M4,M5,M6,M7,M8,M9,M10,M11,M12")
Strbuf = ""
For Each DR As Windows.Forms.DataGridViewRow In DataGridView1.Rows
Strbuf = Strbuf & "," & DR.Cells(0).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 0).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 1).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 2).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 3).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 4).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 5).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 6).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 7).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 8).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 9).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 10).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 11).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 12).Value.ToString
SW.WriteLine(Strbuf)
Strbuf = ""
Next
SW.Dispose()
Fs.Dispose()
MsgBox("저장완료" & vbCrLf & sd.FileName, MsgBoxStyle.Information, "확인")
Shell("notepad " & sd.FileName, AppWinStyle.NormalFocus)
End Sub
End Class