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

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() '//가로등 미리보기