Public Class Frm_V20091231_Weather #Region "data Base 변경여부및 적용방법" '''변경된내용을적용한다. Public Overrides Function AcceptChanged() As Boolean bs.EndEdit() Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) BaseDT.AcceptChanges() Return True End Function '''변경된내용이있다면 취소한다. Public Overrides Function RejectChanged() As Boolean Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) BaseDT.RejectChanges() Return True End Function '''데이터에변형이있었는가? Public Overrides Function HasChanged() As Boolean bs.EndEdit() Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) Dim ChangeDT As DataTable = BaseDT.GetChanges If Not ChangeDT Is Nothing Then Return True Return False End Function '''기본데이터테이블을 반환합니다. Public Function DT() As DataTable Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) Return BaseDS.Tables(bs.DataMember) End Function #End Region Public Sub New(_opentime) ' 이 호출은 디자이너에 필요합니다. InitializeComponent() OpenTime = _opentime ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. End Sub Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) End Sub Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown Select Case e.KeyCode Case Keys.F12 End Select End Sub Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Show() My.Application.DoEvents() ' Work_msg_timer("잠시만 기다려주세요") 'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) '//Weatehr AddHandler DSET1.tbl_weather.TableNewRow, AddressOf AddNewDataRow_Weather AddHandler DSET1.weather_ilsa.TableNewRow, AddressOf AddNewDataRow_Weatherilsa AddHandler DSET1.weather_supdo.TableNewRow, AddressOf AddNewDataRow_Weathersupdo AddHandler DSET1.weather_temp.TableNewRow, AddressOf AddNewDataRow_Weathertemp AddHandler DSET1.weather_cha.TableNewRow, AddressOf AddNewDataRow_WeatherCha Me.bs.DataSource = DSET1 Me.bsw_ilsa.DataSource = DSET1 Me.bsw_supdo.DataSource = DSET1 Me.bsw_temp.DataSource = DSET1 Me.bsw_cha.DataSource = DSET1 '//콤보컨트롤 바인딩 Me.bn_all.BindingSource = Me.bs Me.bs = Me.bs Try Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) Catch ex As Exception Me.bs.MoveFirst() End Try AddDebug("▲ Form Load") End Sub #Region "Weather 관련" Private Sub AddNewDataRow_Weather(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) e.Row.Item("code") = GetMaxCode(DSET1.tbl_weather) End Sub Private Sub AddNewDataRow_Weatherilsa(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code") '//일사데이터는 0001로부터하게한다 Dim Newcode As String Try Dim Dr As DataRow = DSET1.weather_ilsa.Select("pcode='" & e.Row.Item("pcode").ToString & "'", "code desc")(0) Newcode = Format(CInt(Dr("code")) + 1, "0000") Catch ex As Exception Newcode = "0001" End Try e.Row.Item("code") = Newcode End Sub Private Sub AddNewDataRow_Weathertemp(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code") e.Row.Item("code") = GetMaxCode(DSET1.weather_temp) End Sub Private Sub AddNewDataRow_Weathersupdo(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code") e.Row.Item("code") = GetMaxCode(DSET1.weather_supdo) End Sub Private Sub AddNewDataRow_WeatherCha(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code") e.Row.Item("code") = GetMaxCode(DSET1.weather_cha) End Sub Private Function GetMaxCode(ByVal dt As DataTable) As String Try Dim Dr As DataRow = dt.Select("", "code desc")(0) Return Format(CInt(Dr("code")) + 1, "0000") Catch ex As Exception Return "0001" End Try End Function Private Sub bt_add_weather_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) If Not EndEdit(Me.bs) Then Return Me.bs.AddNew() End Sub Private Sub bt_Del_weather_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dbbase.DelCrow(Me.bs, True) End Sub Private Sub bt_save_weather_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) If Not EndEdit(Me.bs) Then Return If Not EndEdit(Me.bsw_supdo) Then Return If Not EndEdit(Me.bsw_ilsa) Then Return If Not EndEdit(Me.bsw_temp) Then Return If Not EndEdit(Me.bsw_cha) Then Return Check_Modify(Me.DS.tbl_weather) Check_Modify(Me.DS.weather_ilsa, False) Check_Modify(Me.DS.weather_supdo, False) Check_Modify(Me.DS.weather_temp, False) Check_Modify(Me.DS.weather_cha, False) End Sub Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged Dim pcode As String = CType(bs.Current, DataRowView)("code").ToString Me.bsw_ilsa.Filter = "pcode='" & pcode & "'" Me.bsw_temp.Filter = "pcode='" & pcode & "'" Me.bsw_supdo.Filter = "pcode='" & pcode & "'" Me.bsw_cha.Filter = "pcode='" & pcode & "'" If DSET1.weather_temp.Select("pcode='" & pcode & "'").GetUpperBound(0) = -1 Then For i As Integer = 1 To 12 'MsgBox(i) Dim Dr As DS.weather_tempRow = DSET1.weather_temp.Newweather_tempRow Dr.code = Format(i, "0000") Dr.설명 = Format(i, "00") & "월" DSET1.weather_temp.Addweather_tempRow(Dr) Next Else 'MsgBox(Me.bsw_temp.Count) End If If DSET1.weather_supdo.Select("pcode='" & pcode & "'").GetUpperBound(0) = -1 Then For i As Integer = 1 To 12 Dim Dr As DS.weather_supdoRow = DSET1.weather_supdo.Newweather_supdoRow Dr.code = Format(i, "0000") Dr.설명 = Format(i, "00") & "월" DSET1.weather_supdo.Addweather_supdoRow(Dr) Next Else 'MsgBox(Me.bsw_supdo.Count) End If Me.DS.weather_temp.AcceptChanges() Me.DS.weather_supdo.AcceptChanges() End Sub Private Sub ToolStripButton14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton14.Click If Not EndEdit(Me.bsw_ilsa) Then Return Me.bsw_ilsa.AddNew() End Sub Private Sub ToolStripButton15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton15.Click Dbbase.DelCrow(Me.bsw_ilsa, True) End Sub Private Sub ToolStripButton29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton29.Click If Not EndEdit(Me.bsw_temp) Then Return Me.bsw_temp.AddNew() End Sub Private Sub ToolStripButton30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton30.Click Dbbase.DelCrow(Me.bsw_temp, True) End Sub Private Sub ToolStripButton37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton37.Click If Not EndEdit(Me.bsw_supdo) Then Return Me.bsw_supdo.AddNew() End Sub Private Sub ToolStripButton38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton38.Click Dbbase.DelCrow(Me.bsw_supdo, True) End Sub Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click Dbbase.DelCrow(Me.bsw_cha, True) End Sub Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click If Not EndEdit(Me.bsw_cha) Then Return Me.bsw_cha.AddNew() End Sub #End Region Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton48.Click If Prj.Opened = False Then MsgBox("먼저 파일을 불러오세요", MsgBoxStyle.Information, "확인") Return End If If Not EndEdit(Me.bs) Then Return Me.bs.AddNew() End Sub Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton49.Click If Prj.Opened = False Then MsgBox("먼저 파일을 불러오세요", MsgBoxStyle.Information, "확인") Return End If Dbbase.DelCrow(Me.bs, True) End Sub Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton51.Click If Prj.Opened = False Then MsgBox("먼저 파일을 불러오세요", MsgBoxStyle.Information, "확인") Return End If If MsgBox("변경된 내용을 취소하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "변경취소") <> MsgBoxResult.Ok Then Return DSET1.tbl_weather.RejectChanges() DSET1.weather_cha.RejectChanges() DSET1.weather_ilsa.RejectChanges() DSET1.weather_supdo.RejectChanges() DSET1.weather_temp.RejectChanges() End Sub Private Sub tb_t1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_t1.KeyDown 'If e.KeyCode = Keys.V And e.Control Then ' e.Handled = True ' e.SuppressKeyPress = False ' '//클립보드붙여넣기 ' Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) ' Dim Cnt As Short = 0 ' For i As Integer = 0 To CB.GetUpperBound(0) ' If CB(i).Trim <> "" Then ' If Cnt <> 0 Then ' Dim Ctl As TextBox = CType(Me.TableLayoutPanel3.Controls(Me.TableLayoutPanel3.Controls.IndexOfKey("tb_t" & CStr(Cnt + 1))), TextBox) ' Ctl.Text = CB(i).Trim ' End If ' Cnt = CShort(Cnt + 1) ' End If ' Next 'End If If e.KeyCode = Keys.V And e.Control Then e.Handled = True e.SuppressKeyPress = False '//클립보드붙여넣기 Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) If CB.GetUpperBound(0) < 23 Then MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인") Return End If For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0) Dim Cnt As Short = 0 For i As Integer = 0 To CB.GetUpperBound(0) Select Case i Case 0 '//Me.tb_t1.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 1 Me.tb_t2.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 2 Me.tb_t3.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 3 Me.tb_t4.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 4 Me.tb_t5.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 5 Me.tb_t6.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 6 Me.tb_t7.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 7 Me.tb_t8.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 8 Me.tb_t9.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 9 Me.tb_t10.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 10 Me.tb_t11.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 11 Me.tb_t12.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 12 Me.tb_t13.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 13 Me.tb_t14.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 14 Me.tb_t15.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 15 Me.tb_t16.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 16 Me.tb_t17.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 17 Me.tb_t18.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 18 Me.tb_t19.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 19 Me.tb_t20.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 20 Me.tb_t21.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 21 Me.tb_t22.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 22 Me.tb_t23.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 23 Me.tb_t24.Text = CB(i).Split(CChar(vbTab))(ii).Trim End Select Next '//If bsw_temp.Position < bsw_temp.Count Then bsw_temp.Position += 1 '//위치이동 Next Me.bsw_temp.EndEdit() End If End Sub Private Sub tb_s1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_s1.KeyDown 'If e.KeyCode = Keys.V And e.Control Then ' e.Handled = True ' e.SuppressKeyPress = False ' '//클립보드붙여넣기 ' Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) ' Dim Cnt As Short = 0 ' For i As Integer = 0 To CB.GetUpperBound(0) ' If CB(i).Trim <> "" Then ' If Cnt <> 0 Then ' Dim Ctl As TextBox = CType(Me.TableLayoutPanel7.Controls(Me.TableLayoutPanel7.Controls.IndexOfKey("tb_s" & CStr(Cnt + 1))), TextBox) ' Ctl.Text = CB(i).Trim ' End If ' Cnt = CShort(Cnt + 1) ' End If ' Next 'End If If e.KeyCode = Keys.V And e.Control Then e.Handled = True e.SuppressKeyPress = False '//클립보드붙여넣기 Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) If CB.GetUpperBound(0) < 23 Then MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인") Return End If For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0) Dim Cnt As Short = 0 For i As Integer = 0 To CB.GetUpperBound(0) Select Case i Case 0 '//Me.tb_s1.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 1 Me.tb_s2.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 2 Me.tb_s3.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 3 Me.tb_s4.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 4 Me.tb_s5.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 5 Me.tb_s6.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 6 Me.tb_s7.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 7 Me.tb_s8.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 8 Me.tb_s9.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 9 Me.tb_s10.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 10 Me.tb_s11.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 11 Me.tb_S12.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 12 Me.tb_s13.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 13 Me.tb_s14.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 14 Me.tb_s15.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 15 Me.tb_s16.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 16 Me.tb_s17.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 17 Me.tb_s18.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 18 Me.tb_s19.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 19 Me.tb_s20.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 20 Me.tb_s21.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 21 Me.tb_s22.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 22 Me.tb_s23.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 23 Me.tb_s24.Text = CB(i).Split(CChar(vbTab))(ii).Trim End Select Next '//If bsw_supdo.Position < bsw_supdo.Count Then bsw_supdo.Position += 1 '//위치이동 Next Me.bsw_supdo.EndEdit() End If End Sub Private Sub tb_v0_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_v0.KeyDown 'If e.KeyCode = Keys.V And e.Control Then ' '//클립보드붙여넣기 ' Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) ' Dim Cnt As Short = 0 ' For i As Integer = 0 To CB.GetUpperBound(0) ' If CB(i).Trim <> "" Then ' If Cnt <> 0 Then ' Dim Ctl As TextBox = CType(Me.TableLayoutPanel2.Controls(Me.TableLayoutPanel2.Controls.IndexOfKey("tb_v" & CStr(Cnt))), TextBox) ' Ctl.Text = CB(i).Trim ' End If ' Cnt = CShort(Cnt + 1) ' End If ' Next ' e.Handled = True ' e.SuppressKeyPress = False 'End If Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) If CB.GetUpperBound(0) < 12 Then MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인") Return End If If e.KeyCode = Keys.V And e.Control Then e.Handled = True e.SuppressKeyPress = False '//클립보드붙여넣기 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() '//한줄추가 'MsgBox(CB.GetUpperBound(0)) Dim Cnt As Short = 0 For i As Integer = 0 To CB.GetUpperBound(0) Select Case i Case 0 '///조명은 신규기록하지않으므로.. 쓰지않게한다. '//Me.tb_v0.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_v1.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_v2.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_v3.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_v4.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_v5.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_v6.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_v7.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_v8.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_v9.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_v10.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_v11.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_v12.Text = CB(i).Split(CChar(vbTab))(ii).Trim End Select Next '// If bsw_cha.Position < bsw_cha.Count Then bsw_cha.Position += 1 '//위치이동 Next Me.bsw_ilsa.EndEdit() End If End Sub Private Sub Frm_V20091231_Zone_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel If e.Delta < 0 Then If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 Else If Me.bs.Position > 0 Then Me.bs.Position -= 1 End If Me.Validate() My.Application.DoEvents() End Sub Private Sub NTb4_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_c01.KeyDown If e.KeyCode = Keys.V And e.Control Then e.Handled = True e.SuppressKeyPress = False '//클립보드붙여넣기 Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) If CB.GetUpperBound(0) < 11 Then MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인") Return 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() '//한줄추가 'MsgBox(CB.GetUpperBound(0)) Dim Cnt As Short = 0 For i As Integer = 0 To CB.GetUpperBound(0) Select Case i Case 0 '///조명은 신규기록하지않으므로.. 쓰지않게한다. '//Me.tb_c01.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_c02.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_c03.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_c04.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_c05.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_c06.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_c07.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_c08.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_c09.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_c10.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_c11.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_c12.Text = CB(i).Split(CChar(vbTab))(ii).Trim End Select Next '//If bsw_cha.Position < bsw_cha.Count Then bsw_cha.Position += 1 '//위치이동 Next Me.bsw_cha.EndEdit() End If End Sub Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp 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.Colorlist = "" If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. Try Me.bs.Filter = Filter Catch ex As Exception Me.bs.Filter = "" End Try End If End Sub Private Sub 외기온도_난방기_NTb_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_wnan.KeyDown If e.KeyCode = Keys.V And e.Control Then e.Handled = True e.SuppressKeyPress = False '//클립보드붙여넣기 Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) If CB.GetUpperBound(0) < 14 Then MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인") Return 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() '//한줄추가 'MsgBox(CB.GetUpperBound(0)) Dim Cnt As Short = 0 For i As Integer = 0 To CB.GetUpperBound(0) Select Case i Case 0 '///조명은 신규기록하지않으므로.. 쓰지않게한다. 'Me.tb_wnan.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_wnaen.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다. 'Me.tb_c03.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w01.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w02.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w03.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w04.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w05.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w06.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w07.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w08.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w09.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w10.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 13 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w11.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 14 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w12.Text = CB(i).Split(CChar(vbTab))(ii).Trim End Select Next If bsw_cha.Position < bsw_cha.Count Then bsw_cha.Position += 1 '//위치이동 Next Me.bsw_cha.EndEdit() End If End Sub Private Sub Arindv2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Arindv2.KeyDown If e.KeyCode = Keys.C AndAlso e.Control Then My.Computer.Clipboard.SetData("ILSAROW", Me.Arindv2.SelectedRows) ElseIf e.KeyCode = Keys.V AndAlso e.Control Then Dim A As DataGridViewSelectedRowCollection = My.Computer.Clipboard.GetData("ILSAROW") For i As Integer = 1 To A.Count Me.ToolStripButton14.PerformClick() '//한줄추가하고 Dim Drv As DataRowView = Me.bsw_ilsa.Current Drv("설명") = A(i).Cells(0).Value Next End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click For Each drp As DS.tbl_weatherRow In DSET1.tbl_weather.Rows Dim i As Integer = 0 For Each dr As DS.weather_chaRow In DSET1.weather_cha.Select("pcode='" & drp.code & "'") i += 1 dr.code = Format(i, "0000") Next Next 'For j As Integer = 1 To DSET1.weather_cha.Select(Me.bsw_cha.Filter).Length ' DSET1.weather_cha.Select(Me.bsw_cha.Filter)(j - 1)("code") = Format(j, "0000") 'Next DS.weather_cha.AcceptChanges() '//이건 변경내역을 반영하게삳는겁니다. End Sub End Class