KICT/ECO2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

파일 열기 메뉴 펑션으로 분리

Browse Source 
데이터 정정 작업을 펑션으로 분리하고, import 기능에서도 추가 호출
가져오기시 메뉴 자동 업데이트 되도록 함
This commit is contained in:
chi
2022-12-18 21:33:10 +09:00
parent f400997408
commit 3b44d192cb
1 changed files with 166 additions and 154 deletions
Download Patch File Download Diff File Expand all files Collapse all files

320
ArinWarev1/MdiMain.vb
View File

@@ -711,155 +711,7 @@ Public Class MdiMain
Frm_Work.Label1.Text = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>͸<EFBFBD> Ȯ<><C8AE><EFBFBD>ϰ<EFBFBD> <20>ֽ<EFBFBD><D6BD>ϴ<EFBFBD>"
Frm_Work.Show()
If DSET1.tbl_buha.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_buha.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_bunbae.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_bunbae.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_kongjo.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_kongjo.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_kongkub.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_kongkub.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_myoun.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_myoun.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_nanbangkiki.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_nanbangkiki.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_nangbangkiki.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_nangbangkiki.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_nbunbae.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_nbunbae.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_new.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_new.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_profile.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_profile.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_weather.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_weather.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_zone.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_zone.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_yk.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_yk.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_Desc.Rows.Count < 1 Then
MsgBox("<EFBFBD>ǹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>䵥<EFBFBD><EFBFBD><EFBFBD>Ͱ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD> <20>ʱ<EFBFBD><CAB1>ڷḦ <20><><EFBFBD><EFBFBD><EFBFBD>մϴ<D5B4>", MsgBoxStyle.Critical, "Ȯ<EFBFBD><EFBFBD>")
Dim newdescdr As DS.tbl_DescRow = DSET1.tbl_Desc.NewRow
newdescdr.name = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
newdescdr.buildarea = "010100"
DSET1.tbl_Desc.Addtbl_DescRow(newdescdr)
DSET1.tbl_Desc.AcceptChanges()
Else
If isNew Then '//<2F>ű<EFBFBD><C5B1>ۼ<EFBFBD><DBBC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Dim drDesc1 As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
drDesc1.buildarea = "010100" '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
drDesc1.EndEdit()
End If
End If
'//<2F>ǹ<EFBFBD><C7B9>뵵<EFBFBD>⺻<EFBFBD><E2BABB>
Dim <EFBFBD>뵵 As String = DSET1.tbl_Desc.Rows(0)("isjugo").ToString
If IsNumeric(<EFBFBD>뵵) = False Then
pLog.Add(String.Format("<EFBFBD>ǹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>뵵<EFBFBD><EBB5B5><EFBFBD><EFBFBD> <20><><EFBFBD>ڰ<EFBFBD><DAB0>ƴϹǷ<CFB9> 1<><31> <20><><EFBFBD><EFBFBD><EFBFBD>մϴ<D5B4>"))
DSET1.tbl_Desc.Rows(0)("isjugo") = "1"
End If
'//<2F>׷<EFBFBD><D7B7><EFBFBD><EFBFBD>̾<EFBFBD><CCBE>°<EFBFBD><C2B0><EFBFBD> ó<><C3B3><EFBFBD><EFBFBD>(130810:arin)
For Each dr As DS.tbl_zoneRow In DSET1.tbl_zone.Select("isnull(<28>׷<EFBFBD>,'')=''")
pLog.Add(String.Format("<EFBFBD>׷<EFBFBD><EFBFBD><EFBFBD><EFBFBD>̾<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>̹Ƿ<CCB9> '<27>⺻'<27><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>մϴ<D5B4> Zone Code={0}", dr.code))
dr.<EFBFBD>׷<EFBFBD> = "<EFBFBD>⺻"
Next
'//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>뷮<EFBFBD><EBB7AE><EFBFBD><EFBFBD><EFBFBD>Ϳ<EFBFBD><CDBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(130819:arin)
If DSET1.tbl_monuse.Rows.Count = 0 Then
For y As Integer = 1 To 3
Dim idx As String = y.ToString("0000")
For i As Integer = 1 To 12
DSET1.tbl_monuse.Rows.Add(New String() {y.ToString() + "<EFBFBD><EFBFBD><EFBFBD>⵵", i.ToString("00"), "0", "0", "0", idx}) '//<2F><>,<2C><>,<2C><><EFBFBD>ð<EFBFBD><C3B0><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ڵ<EFBFBD>
Next
Next
End If
'//140808 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>⺻<EFBFBD><E2BABB> ó<><C3B3>
'//<2F>Է<EFBFBD><D4B7><EFBFBD>
If Not DSET1 Is Nothing Then
For i As Integer = 1 To DSET1.tbl_zone.Rows.Count
'//<2F><><EFBFBD><EFBFBD>ü<EFBFBD><C3BC> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 150111
'<27><><EFBFBD><EFBFBD>ü<EFBFBD><C3BC>NTb.Text = TOST(TOSG(<28><><EFBFBD><EFBFBD>NTb.Text) * TOSG(õ<><C3B5><EFBFBD><EFBFBD>NTb.Text))
Dim <EFBFBD><EFBFBD><EFBFBD><EFBFBD> As String = ""
Dim õ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> As String = ""
Dim <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ü<EFBFBD><EFBFBD> As String = ""
Try
<EFBFBD><EFBFBD><EFBFBD><EFBFBD> = DSET1.tbl_zone.Rows(i - 1)("<EFBFBD><EFBFBD><EFBFBD><EFBFBD>").ToString
Catch ex As Exception
<EFBFBD><EFBFBD><EFBFBD><EFBFBD> = ""
End Try
Try
õ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> = DSET1.tbl_zone.Rows(i - 1)("õ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>p").ToString
Catch ex As Exception
õ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> = ""
End Try
Try
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ü<EFBFBD><EFBFBD> = DSET1.tbl_zone.Rows(i - 1)("<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ü<EFBFBD><EFBFBD>").ToString
Catch ex As Exception
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ü<EFBFBD><EFBFBD> = ""
End Try
If IsNumeric(<EFBFBD><EFBFBD><EFBFBD><EFBFBD>) AndAlso IsNumeric(õ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>) Then
If Not IsNumeric(<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ü<EFBFBD><EFBFBD>) Then
' MsgBox("<22><><EFBFBD><EFBFBD>ü<EFBFBD><C3BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>մϴ<D5B4>", MsgBoxStyle.Information, "Ȯ<><C8AE>")
DSET1.tbl_zone.Rows(i - 1)("<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ü<EFBFBD><EFBFBD>") = CSng(<EFBFBD><EFBFBD><EFBFBD><EFBFBD>) * CSng(õ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>)
End If
End If
If DSET1.tbl_zone.Rows(i - 1).RowState = DataRowState.Deleted OrElse _
DSET1.tbl_zone.Rows(i - 1).RowState = DataRowState.Detached Then
Continue For
End If
Dim StrCode As String = DSET1.tbl_zone.Rows(i - 1)("code").ToString
If StrCode.Length = 4 Then
DSET1.tbl_zone.Rows(i - 1)("code") = "0" + StrCode
End If
Next
DSET1.tbl_zone.AcceptChanges()
End If
If Not DSET2 Is Nothing Then
For i As Integer = 1 To DSET2.tbl_zone.Rows.Count
If DSET2.tbl_zone.Rows(i - 1).RowState = DataRowState.Deleted OrElse _
DSET2.tbl_zone.Rows(i - 1).RowState = DataRowState.Detached Then
Continue For
End If
Dim StrCode As String = DSET2.tbl_zone.Rows(i - 1)("code").ToString
If StrCode.Length = 4 Then
DSET2.tbl_zone.Rows(i - 1)("code") = "0" + StrCode
End If
Next
DSET2.tbl_zone.AcceptChanges()
End If
'//<2F>Է¸<D4B7>
If Not DSET1 Is Nothing Then
For i As Integer = 1 To DSET1.tbl_myoun.Rows.Count
If DSET1.tbl_myoun.Rows(i - 1).RowState = DataRowState.Deleted OrElse _
DSET1.tbl_myoun.Rows(i - 1).RowState = DataRowState.Detached Then
Continue For
End If
Dim StrCode As String = DSET1.tbl_myoun.Rows(i - 1)("code").ToString
If StrCode.Length = 4 Then
DSET1.tbl_myoun.Rows(i - 1)("code") = "0" + StrCode
End If
Dim StrCode2 As String = DSET1.tbl_myoun.Rows(i - 1)("<EFBFBD><EFBFBD><EFBFBD>з<EFBFBD>").ToString
If StrCode2.Length = 4 Then
DSET1.tbl_myoun.Rows(i - 1)("<EFBFBD><EFBFBD><EFBFBD>з<EFBFBD>") = "0" + StrCode2
End If
Next
DSET1.tbl_myoun.AcceptChanges()
End If
If Not DSET2 Is Nothing Then
For i As Integer = 1 To DSET2.tbl_myoun.Rows.Count
If DSET2.tbl_myoun.Rows(i - 1).RowState = DataRowState.Deleted OrElse _
DSET2.tbl_myoun.Rows(i - 1).RowState = DataRowState.Detached Then
Continue For
End If
Dim StrCode As String = DSET2.tbl_myoun.Rows(i - 1)("code").ToString
If StrCode.Length = 4 Then
DSET2.tbl_myoun.Rows(i - 1)("code") = "0" + StrCode
End If
Dim StrCode2 As String = DSET2.tbl_myoun.Rows(i - 1)("<EFBFBD><EFBFBD><EFBFBD>з<EFBFBD>").ToString
If StrCode2.Length = 4 Then
DSET2.tbl_myoun.Rows(i - 1)("<EFBFBD><EFBFBD><EFBFBD>з<EFBFBD>") = "0" + StrCode2
End If
Next
DSET2.tbl_myoun.AcceptChanges()
End If
FixData(isNew) '//221218 chi import <20><><EFBFBD>ɰ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ϱ<EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>и<EFBFBD>
Frm_Work.Close()
@@ -999,10 +851,6 @@ Public Class MdiMain
End If
Read_WeatherFile()
Menu_<EFBFBD>ǹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>()
@@ -1077,6 +925,160 @@ Public Class MdiMain
End Sub
Sub FixData(isNew As Boolean)
If DSET1.tbl_buha.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_buha.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_bunbae.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_bunbae.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_kongjo.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_kongjo.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_kongkub.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_kongkub.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_myoun.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_myoun.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_nanbangkiki.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_nanbangkiki.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_nangbangkiki.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_nangbangkiki.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_nbunbae.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_nbunbae.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_new.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_new.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_profile.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_profile.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_weather.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_weather.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_zone.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_zone.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_yk.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_yk.Rows.Add(New String() {"0", "(<28><><EFBFBD><EFBFBD>)"})
If DSET1.tbl_Desc.Rows.Count < 1 Then
MsgBox("<EFBFBD>ǹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>䵥<EFBFBD><EFBFBD><EFBFBD>Ͱ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD> <20>ʱ<EFBFBD><CAB1>ڷḦ <20><><EFBFBD><EFBFBD><EFBFBD>մϴ<D5B4>", MsgBoxStyle.Critical, "Ȯ<EFBFBD><EFBFBD>")
Dim newdescdr As DS.tbl_DescRow = DSET1.tbl_Desc.NewRow
newdescdr.name = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
newdescdr.buildarea = "010100"
DSET1.tbl_Desc.Addtbl_DescRow(newdescdr)
DSET1.tbl_Desc.AcceptChanges()
Else
If isNew Then '//<2F>ű<EFBFBD><C5B1>ۼ<EFBFBD><DBBC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Dim drDesc1 As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
drDesc1.buildarea = "010100" '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
drDesc1.EndEdit()
End If
End If
'//<2F>ǹ<EFBFBD><C7B9>뵵<EFBFBD>⺻<EFBFBD><E2BABB>
Dim <EFBFBD>뵵 As String = DSET1.tbl_Desc.Rows(0)("isjugo").ToString
If IsNumeric(<EFBFBD>뵵) = False Then
pLog.Add(String.Format("<EFBFBD>ǹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>뵵<EFBFBD><EBB5B5><EFBFBD><EFBFBD> <20><><EFBFBD>ڰ<EFBFBD><DAB0>ƴϹǷ<CFB9> 1<><31> <20><><EFBFBD><EFBFBD><EFBFBD>մϴ<D5B4>"))
DSET1.tbl_Desc.Rows(0)("isjugo") = "1"
End If
'//<2F>׷<EFBFBD><D7B7><EFBFBD><EFBFBD>̾<EFBFBD><CCBE>°<EFBFBD><C2B0><EFBFBD> ó<><C3B3><EFBFBD><EFBFBD>(130810:arin)
For Each dr As DS.tbl_zoneRow In DSET1.tbl_zone.Select("isnull(<28>׷<EFBFBD>,'')=''")
pLog.Add(String.Format("<EFBFBD>׷<EFBFBD><EFBFBD><EFBFBD><EFBFBD>̾<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>̹Ƿ<CCB9> '<27>⺻'<27><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>մϴ<D5B4> Zone Code={0}", dr.code))
dr.<EFBFBD>׷<EFBFBD> = "<EFBFBD>⺻"
Next
'//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>뷮<EFBFBD><EBB7AE><EFBFBD><EFBFBD><EFBFBD>Ϳ<EFBFBD><CDBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(130819:arin)
If DSET1.tbl_monuse.Rows.Count = 0 Then
For y As Integer = 1 To 3
Dim idx As String = y.ToString("0000")
For i As Integer = 1 To 12
DSET1.tbl_monuse.Rows.Add(New String() {y.ToString() + "<EFBFBD><EFBFBD><EFBFBD>⵵", i.ToString("00"), "0", "0", "0", idx}) '//<2F><>,<2C><>,<2C><><EFBFBD>ð<EFBFBD><C3B0><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ڵ<EFBFBD>
Next
Next
End If
'//140808 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>⺻<EFBFBD><E2BABB> ó<><C3B3>
'//<2F>Է<EFBFBD><D4B7><EFBFBD>
If Not DSET1 Is Nothing Then
For i As Integer = 1 To DSET1.tbl_zone.Rows.Count
'//<2F><><EFBFBD><EFBFBD>ü<EFBFBD><C3BC> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 150111
'<27><><EFBFBD><EFBFBD>ü<EFBFBD><C3BC>NTb.Text = TOST(TOSG(<28><><EFBFBD><EFBFBD>NTb.Text) * TOSG(õ<><C3B5><EFBFBD><EFBFBD>NTb.Text))
Dim <EFBFBD><EFBFBD><EFBFBD><EFBFBD> As String = ""
Dim õ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> As String = ""
Dim <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ü<EFBFBD><EFBFBD> As String = ""
Try
<EFBFBD><EFBFBD><EFBFBD><EFBFBD> = DSET1.tbl_zone.Rows(i - 1)("<EFBFBD><EFBFBD><EFBFBD><EFBFBD>").ToString
Catch ex As Exception
<EFBFBD><EFBFBD><EFBFBD><EFBFBD> = ""
End Try
Try
õ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> = DSET1.tbl_zone.Rows(i - 1)("õ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>p").ToString
Catch ex As Exception
õ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> = ""
End Try
Try
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ü<EFBFBD><EFBFBD> = DSET1.tbl_zone.Rows(i - 1)("<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ü<EFBFBD><EFBFBD>").ToString
Catch ex As Exception
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ü<EFBFBD><EFBFBD> = ""
End Try
If IsNumeric(<EFBFBD><EFBFBD><EFBFBD><EFBFBD>) AndAlso IsNumeric(õ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>) Then
If Not IsNumeric(<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ü<EFBFBD><EFBFBD>) Then
' MsgBox("<22><><EFBFBD><EFBFBD>ü<EFBFBD><C3BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>մϴ<D5B4>", MsgBoxStyle.Information, "Ȯ<><C8AE>")
DSET1.tbl_zone.Rows(i - 1)("<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ü<EFBFBD><EFBFBD>") = CSng(<EFBFBD><EFBFBD><EFBFBD><EFBFBD>) * CSng(õ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>)
End If
End If
If DSET1.tbl_zone.Rows(i - 1).RowState = DataRowState.Deleted OrElse _
DSET1.tbl_zone.Rows(i - 1).RowState = DataRowState.Detached Then
Continue For
End If
Dim StrCode As String = DSET1.tbl_zone.Rows(i - 1)("code").ToString
If StrCode.Length = 4 Then
DSET1.tbl_zone.Rows(i - 1)("code") = "0" + StrCode
End If
Next
DSET1.tbl_zone.AcceptChanges()
End If
If Not DSET2 Is Nothing Then
For i As Integer = 1 To DSET2.tbl_zone.Rows.Count
If DSET2.tbl_zone.Rows(i - 1).RowState = DataRowState.Deleted OrElse _
DSET2.tbl_zone.Rows(i - 1).RowState = DataRowState.Detached Then
Continue For
End If
Dim StrCode As String = DSET2.tbl_zone.Rows(i - 1)("code").ToString
If StrCode.Length = 4 Then
DSET2.tbl_zone.Rows(i - 1)("code") = "0" + StrCode
End If
Next
DSET2.tbl_zone.AcceptChanges()
End If
'//<2F>Է¸<D4B7>
If Not DSET1 Is Nothing Then
For i As Integer = 1 To DSET1.tbl_myoun.Rows.Count
If DSET1.tbl_myoun.Rows(i - 1).RowState = DataRowState.Deleted OrElse _
DSET1.tbl_myoun.Rows(i - 1).RowState = DataRowState.Detached Then
Continue For
End If
Dim StrCode As String = DSET1.tbl_myoun.Rows(i - 1)("code").ToString
If StrCode.Length = 4 Then
DSET1.tbl_myoun.Rows(i - 1)("code") = "0" + StrCode
End If
Dim StrCode2 As String = DSET1.tbl_myoun.Rows(i - 1)("<EFBFBD><EFBFBD><EFBFBD>з<EFBFBD>").ToString
If StrCode2.Length = 4 Then
DSET1.tbl_myoun.Rows(i - 1)("<EFBFBD><EFBFBD><EFBFBD>з<EFBFBD>") = "0" + StrCode2
End If
Next
DSET1.tbl_myoun.AcceptChanges()
End If
If Not DSET2 Is Nothing Then
For i As Integer = 1 To DSET2.tbl_myoun.Rows.Count
If DSET2.tbl_myoun.Rows(i - 1).RowState = DataRowState.Deleted OrElse _
DSET2.tbl_myoun.Rows(i - 1).RowState = DataRowState.Detached Then
Continue For
End If
Dim StrCode As String = DSET2.tbl_myoun.Rows(i - 1)("code").ToString
If StrCode.Length = 4 Then
DSET2.tbl_myoun.Rows(i - 1)("code") = "0" + StrCode
End If
Dim StrCode2 As String = DSET2.tbl_myoun.Rows(i - 1)("<EFBFBD><EFBFBD><EFBFBD>з<EFBFBD>").ToString
If StrCode2.Length = 4 Then
DSET2.tbl_myoun.Rows(i - 1)("<EFBFBD><EFBFBD><EFBFBD>з<EFBFBD>") = "0" + StrCode2
End If
Next
DSET2.tbl_myoun.AcceptChanges()
End If
End Sub
Public Sub Open_File_Only_weather(ByVal FileName As String, Optional ByVal SyncServer As Boolean = False, Optional checkVersion As Boolean = True, Optional silent As Boolean = False, Optional isNew As Boolean = False)
@@ -2484,6 +2486,10 @@ ENDSTAT: '//
End Sub
Private Sub <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles btOpen.Click
OpenFile()
End Sub
Sub OpenFile()
If Prj.LoginTime = "" Then
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>α<EFBFBD><CEB1><EFBFBD><EFBFBD><EFBFBD> <20>ϼ<EFBFBD><CFBC><EFBFBD>", MsgBoxStyle.Information, "Ȯ<EFBFBD><EFBFBD>")
Frm_Intro.Activate()
@@ -2800,7 +2806,7 @@ ENDSTAT: '//
End Sub
Private Sub ToolStripButton2_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton2.Click
btOpen.PerformClick()
OpenFile()
End Sub
@@ -3392,6 +3398,12 @@ ENDSTAT: '//
Pub.DSET1.AcceptChanges()
Dim xr As XmlReadMode = Pub.DSET1.ReadXml(od.FileName)
Pub.DSET1.AcceptChanges()
FixData(False) '//<2F><><EFBFBD><EFBFBD><EFBFBD>ͺ<EFBFBD><CDBA><EFBFBD>
Calc.validation() '//null<6C><6C><EFBFBD><EFBFBD>
Menu_<EFBFBD>ǹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>()
Me.RefreshMenuList("")
Catch ex As Exception
MsgboxE("<EFBFBD>ܺ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>\n" + ex.Message)
End Try