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

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

View File

@@ -1115,6 +1115,10 @@
Me.cmb_건축부위방식.Enabled = False
' MsgBox(Me.cmb_열관류율.SelectedValue)
'//아래와동일한 코드 pub Update_열관류율_140409() 에 있음
'//변경시 같이 변경해야함 250710-2320
Try
Dim Dr As DS.tbl_ykRow = DSET1.tbl_yk.Select("code='" & Me.cmb_열관류율.SelectedValue & "'")(0)
Dim dr2() As DS.tbl_commonRow = DSET1.tbl_common.Select("gubun='1088' and code='" & Dr("면형태").ToString & "'")