..

ArinWarev1/Module/Pub.vb

@@ -482,6 +482,7 @@
         DSET1.weather_ilsa.Clear()
         DSET1.weather_temp.Clear()
         DSET1.weather_supdo.Clear()
+        DSET1.weather_group.Clear()
         DSET1.AcceptChanges()
 
         DSET2.tbl_weather.Clear()
@@ -489,6 +490,7 @@
         DSET2.weather_ilsa.Clear()
         DSET2.weather_temp.Clear()
         DSET2.weather_supdo.Clear()
+        DSET2.weather_group.Clear()
         DSET2.AcceptChanges()
 
         Try
@@ -531,7 +533,14 @@
             MsgBox("기상데이터4 업데이트실패" & vbCrLf & ex.Message.ToString, MsgBoxStyle.Critical, "확인")
             Iserror = True
         End Try
-
+        Try
+            Dim TaC As New DSTableAdapters.weather_groupTableAdapter
+            TaC.Fill(DSET1.weather_group)
+            TaC.Fill(DSET2.weather_group)
+        Catch ex As Exception
+            MsgBox("기상데이터(GRP) 업데이트실패" & vbCrLf & ex.Message.ToString, MsgBoxStyle.Critical, "확인")
+            Iserror = True
+        End Try
         If Iserror = False Then
             DSET1.tbl_Desc.Rows(0)("versionw") = Version
             'DSET2.tbl_Desc.Rows(0)("versionw") = Version