전체 글10 JAVA BigDecimal Null값 0으로 처리방법 출처 : https://wakestand.tistory.com/785 public class Test { public static BigDecimal nvl(final BigDecimal bigDecimal) { return bigDecimal == null ? BigDecimal.ZERO : bigDecimal; } public static void main(String[] args) { BigDecimal bigDecimal = new BigDecimal("0.1"); BigDecimal bigDecimal2 = null; System.out.println(nvl(bigDecimal)); System.out.println(nvl(bigDecimal2)); } } nvl함수 만들어서 클래스에 넣어서 사.. 2023. 4. 7. 체크박스 동적생성 함수 Private Sub LoadGradeButton() Dim rs As ADODB.Recordset Dim i As Integer On Error GoTo ERRHANDLER If ConnectDB = False Then Exit Sub Set rs = GetBaseCode(CD_GRADE) '합/불 체크버튼 동적생성 If rs.EOF Then chkGrade(1).Visible = False Else chkGrade(1).Caption = rs!Grade chkGrade(1).Tag = rs!GradeID chkGrade(1).Value = vbChecked '첫번재껀 항상 선택 m_dGradeCnt = rs.RecordCount '버튼 총 갯수 rs.MoveNext i = 2 Do Until rs.E.. 2022. 2. 25. VB6 단축키 설정방법 이름(N)부분에 괄호 옆에 &을 붙이고 단축키를 지정한다. 2021. 12. 22. 스프레드에 rs.EOF로 쿼리 받아와서 뿌리는 코드 Private Sub FillspdMain() Dim rs As ADODB.Recordset Dim sSQL As String Dim i As Long On Error GoTo ERRHANDLER m_bLoading = True If ConnectDB = False Then Exit Sub sSQL = "" sSQL = sSQL & "SELECT SUBSTRING(D.StockDate ,1,4) +'-'+ SUBSTRING(D.StockDate ,5,2) +'-'+ SUBSTRING(D.StockDate ,7,2) AS StockDate Set rs = New ADODB.Recordset rs.Open sSQL, g_adoCon, adOpenForwardOnly, adLockReadOnly spdMain.. 2021. 9. 3. 스프레드에 쿼리 바로 뿌리는 코드 Private Sub FillspdSubIn(sMOrderDate As String) Dim rs As ADODB.Recordset Dim ls_Sql As String Dim sCustom As String On Error GoTo ERRHANDLER Call ClearData m_bLoading = True If ConnectDB = False Then Exit Sub ls_Sql = "" ls_Sql = ls_Sql & "SELECT ''AS chk, C.MaterialName" & vbCr Gf_GetSpdData spdSubIn, ls_Sql, False If DisConnectDB = False Then Exit Sub m_bLoading = False Exit Sub ERRHANDLER: C.. 2021. 9. 3. '5'런타임 오류가 발생하였습니다 프로시저 호출 또는 인수가 잘못되었습니다. 디버그를 해보면 cmdOperate(3)은 저장버튼인데 저장버튼은 활성화 되지 않아서 없는 버튼을 호출하니까 오류가 뜨는 것. 그래서 취소버튼이 자동 클릭되도록 바꿔줌 cmdExit.Doclick 2021. 4. 1. 이전 1 2 다음
