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

2024y .

Browse Source
This commit is contained in:
ykh
2024-12-30 23:04:30 +09:00
parent c01051f024
commit 8f89991a09
45 changed files with 7567 additions and 1033 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
ArinWarev1/Forms_Input/Frm_Zone.vb
View File

@@ -207,6 +207,12 @@
Private Sub Binding_Zone()
Dim bs_cmb_profile As New BindingSource(DSET1, "tbl_profile")
bs_cmb_profile.Sort = "code"
If Prj.UserAuthType_Real.StartsWith("BOTH_C") = False Then
bs_cmb_profile.Filter = "code <> '9999'"
Else
bs_cmb_profile.Filter = ""
End If
cmb_profile.DataSource = bs_cmb_profile
cmb_profile.DisplayMember = "설명"
cmb_profile.ValueMember = "code"
@@ -968,28 +974,32 @@
Private Sub Show_면적존수합()
'//현재 존의 면적의 합(?)
Dim 면적합 As Decimal = 0
Dim 존수합 As Integer = 0
Dim 면적 As Decimal = 0
'Dim 면적합 As Decimal = 0
'Dim 존수합 As Integer = 0
'Dim 면적 As Decimal = 0
For Each dr존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'")
Dim 존수 As Integer = 0
If IsNumeric(dr존.입력존의수) Then
존수 = CInt(dr존.입력존의수)
Else
존수 = 1
End If
Dim 값 As Tuple(Of Decimal, Int32) = Pub.면적존수합()
Dim 면적합 As Decimal = 값.Item1
Dim 존수합 As Int32 = 값.Item2
존수합 += 존수
If IsNumeric(dr존.면적) Then
면적 = dr존.면적 * 존수
Else
면적 = 0
End If
'For Each dr존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'")
' Dim 존수 As Integer = 0
' If IsNumeric(dr존.입력존의수) Then
' 존수 = CInt(dr존.입력존의수)
' Else
' 존수 = 1
' End If
면적합 = 면적합 + 면적
' 존수합 += 존수
' If IsNumeric(dr존.면적) Then
' 면적 = dr존.면적 * 존수
' Else
' 면적 = 0
' End If
Next
' 면적합 = 면적합 + 면적
'Next
Me.lb_면적합.Text = Format(면적합, "##,###,###.#####").ToString
Me.lb_전체존수.Text = Format(존수합, "#,###,###").ToString
End Sub