This commit is contained in:
2026-01-17 00:56:25 +09:00
parent 1e6e1223c4
commit b598e0d538
20 changed files with 4683 additions and 4781 deletions

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@@ -196,6 +196,7 @@ Public Class XLSImport
' Me.tb_ecnt.Text = Me.tb_scnt.Text + 100
'End If
Me.DT_Karo.Rows.Clear() : Me.DT_Karo.AcceptChanges()
Dim sb As New System.Text.StringBuilder()
For Each Dr As FarPoint.Win.Spread.Row In Me.CustFP1.ActiveSheet.Rows '//모든로우에해당하는데 시작줄부터한다
If Dr.Index + 1 >= StartCnt AndAlso Dr.Index + 1 <= EndCnt Then '//시작인덱스 이상일경우에만 한다.
@@ -257,6 +258,7 @@ Public Class XLSImport
' AddLog("번호중복", "중복된 번호:" & 번호)
Catch ex As Exception
Dim ermsg As String = ex.Message.ToString
If sb.Length < 100 Then sb.AppendLine(ex.Message)
' AddLog(ex.InnerException.ToString, ex.Message.ToString)
End Try
End If
@@ -282,7 +284,9 @@ Public Class XLSImport
Me.CustFP2.ActiveSheet.Columns(12).Label = "비고2"
Me.CustFP2.ActiveSheet.Columns(13).Label = "비고3"
If sb.Length > 0 Then
MsgBox(sb.ToString())
End If
End Sub
Private Sub Apply_jdung() '//가로등 미리보기