..
This commit is contained in:
@@ -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() '//가로등 미리보기
|
||||
|
||||
Reference in New Issue
Block a user