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

파일을 열고 무조건 열관류율탭 자동 업데이트 적용

Browse Source
This commit is contained in:
ykh
2025-07-11 00:01:25 +09:00
parent 72e908396b
commit cf277012bc
10 changed files with 3530 additions and 3705 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
ArinWarev1/Forms_Input/Frm_YK.vb
View File

@@ -89,58 +89,9 @@
Me.arindv1.EndEdit()
Me.bs.EndEdit()
'//열관류율이 링크된 모든면의 건축부위 데이터를 열관류율 화면의 건축부위 데이터로 갱신
For Each Drow As DS.tbl_myounRow In DSET1.tbl_myoun
Pub.Update_열관류율_140409()
If Drow.RowState = DataRowState.Deleted OrElse Drow.RowState = DataRowState.Detached Then Continue For
#If DEBUG Then
If Drow.code = "0009" Then
MsgBox("test")
End If
#End If
If Drow.열관류율2 <> "0" Then
Try '==========================================2014.04.17 열관류율 삭제시 코드번호가 남아 오류 발생하는 현상을 try 안으로 넣음
Dim Dr As DS.tbl_ykRow = DSET1.tbl_yk.Select("code='" & Drow.열관류율2.ToString & "'")(0)
Drow.건축부위방식 = Dr.면형태 '// 링크된 열관류율에서 면형태를 가져옴..
Select Case Dr.면형태
Case "외벽(벽체)", "0"
Drow.건축부위방식 = "외벽"
Case "외벽(지붕)", "0001"
Drow.건축부위방식 = "외벽"
'Drow.방위 = "수평"
Case "외벽(바닥)", "0002"
Drow.건축부위방식 = "외벽"
'Drow.방위 = "일사없음"
Case "내벽(벽체)", "0003", "지중벽", "0009"
Drow.건축부위방식 = "내벽"
Drow.방위 = "일사없음"
Case "내벽(지붕)", "0004"
Drow.건축부위방식 = "내벽"
Drow.방위 = "일사없음"
Case "내벽(바닥)", "0005"
Drow.건축부위방식 = "내벽"
Drow.방위 = "일사없음"
Case "간벽", "0006"
Drow.건축부위방식 = "간벽"
Drow.방위 = "일사없음"
Case "외부창", "0007"
Drow.건축부위방식 = "외부창"
'Drow.투과율 = Dr.일사에너지투과율
Case "내부창", "0008"
Drow.건축부위방식 = "내부창"
'Drow.투과율 = Dr.일사에너지투과율
Case Else
MsgBox("모르는값 " & Dr("면형태").ToString & "/" & Dr.면형태)
End Select
Catch ex As Exception
End Try
End If
Next
End Sub