diff --git a/MAXIMUM_Product_Program/MainForm.vb b/MAXIMUM_Product_Program/MainForm.vb index 1488bbd..81211ba 100644 --- a/MAXIMUM_Product_Program/MainForm.vb +++ b/MAXIMUM_Product_Program/MainForm.vb @@ -2904,9 +2904,9 @@ FailLoad: DBCmd = "SELECT IFNULL(max(Ct_SN),0) FROM " & ApplyNonTDDB & " WHERE Ct_Manufacture_Year = '" & NowYear & "' AND Ct_Manufacture_Month = '" & NowMonth & "' AND Ct_SN LIKE '" & ClassCode & ColorCode & "%' AND Ct_Model = '" & txbPDModel.Text & "' AND Ct_SN > 100000 AND (Ct_Type = '" & txbPDType.Text & "' OR Ct_Type = 'SET')" End If - Dim CtMaxResult As Integer = DBQueryScalar(DBCmd) + Dim CtMaxResult As String = DBQueryScalar(DBCmd) - If CtMaxResult = 0 Then + If CtMaxResult = "False" Then MsgBox("최대값을 불러올 수 없습니다.", vbCritical) Return "NULL" End If diff --git a/업데이트 내역.txt b/업데이트 내역.txt index 15f4bfd..f35ee37 100644 --- a/업데이트 내역.txt +++ b/업데이트 내역.txt @@ -1,4 +1,6 @@ 1. program ver 1.1.12 2. DBQueryScalar(DBCmd) 의 값이 count인 경우 integer로 받도록 수정 - "False" 를 0으로 변경 + - Dim CtMaxResult As String = DBQueryScalar(DBCmd) + - If CtMaxResult = "False" Then 3. prodinputFunc()의 info1, info2 userID 점검 코드 삭제