외부파일 가져오기 코드 추가

ArinWarev1/MdiMain.vb

@@ -3380,4 +3380,21 @@ ENDSTAT:  '//
         If Od.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
         Open_File_checker(Od.FileName)
     End Sub
+
+    Private Sub XmlImportToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles XmlImportToolStripMenuItem.Click
+        Dim od As New OpenFileDialog
+        od.Filter = "xml file|*.xml|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.*)|*.*"
+        od.RestoreDirectory = True
+        If od.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
+
+        Try
+            Pub.DSET1.Clear()
+            Pub.DSET1.AcceptChanges()
+            Dim xr As XmlReadMode = Pub.DSET1.ReadXml(od.FileName)
+            Pub.DSET1.AcceptChanges()
+        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
+
+    End Sub
 End Class