Egalware/egtbeamwall
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Modifiche

Browse Source
This commit is contained in:
Emmanuele Sassi
2021-04-03 18:51:58 +02:00
parent 6483a2812d
commit 7e34c83653
32 changed files with 162 additions and 126 deletions
Download Patch File Download Diff File Expand all files Collapse all files
EgtBEAMWALL.ViewerOptimizer/OpenProjectFileDialog/OpenProjectFileDialogVM.vb
+3 -1
View File
@@ -1,4 +1,5 @@
Imports System.IO
Imports EgtBEAMWALL.Core
Imports EgtBEAMWALL.Core.ConstBeam
Imports EgtUILib
@@ -101,13 +102,14 @@ Public Class OpenProjectFileDialogVM
m_ProjectType = ProjectType
If IsNothing(ProjectList) OrElse ProjectList.Count = 0 Then
' leggo da db
Dim DbProjectList As New List(Of Core.ProjFileM)
If ProjectType = ProjectType.PROJ Then
Dim DbProjectList As New List(Of ProjFileM)
DbProjectList = DbControllers.m_ProjController.GetLastDesc(50)
For Each Project In DbProjectList
m_ProjectList.Add(New ProjFileVM(Project))
Next
ElseIf ProjectType = ProjectType.PROD Then
Dim DbProjectList As New List(Of ProdFileM)
DbProjectList = DbControllers.m_ProdController.GetLastDesc(50)
For Each Project In DbProjectList
m_ProjectList.Add(New ProdFileVM(Project))