반응형 Spread3 VSpread Head 스프레더 헤더 생성하기 SS3.MaxCols = SS3.MaxCols + 5 SS3.row = SpreadHeader SS3.row = SpreadHeader + 1 SS3.Col = SS3.MaxCols: SS3.Text = "글자": SS3.ColWidth(SS3.Col) = 4 Call SS3.AddCellSpan(SS3.MaxCols - 4, SpreadHeader, 5, 1) 이런식으로 작성한다 ^.^ SS3.BlockMode = True / False 로 지정된 블럭을 수정하여도 된다! 2008. 1. 25. 코드로 vaSpread 6.0 Currency형으로 설정하기 직접해보았다 ㅠ 코드로 vaSpread 6.0 Currency형으로 설정하기 ' 설정하기 (Currency형으로 지정) SS3.BlockMode = True SS3.Row = 1: SS3.Row2 = SS3.MaxRows SS3.Col = 2: SS3.col2 = SS3.MaxCols - 1 SS3.CellType = CellTypeCurrency SS3.TypeCurrencyShowSymbol = False SS3.TypeCurrencyShowSep = True SS3.TypeCurrencyDecPlaces = 0 SS3.TypeHAlign = TypeHAlignRight SS3.BlockMode = False 조금 참고한것~ http://www.clubfarpoint.com/Forums/forums/.. 2008. 1. 25. [연습] 디비에 연결하여 Spread 컴퍼넌트에 출력하기 [CODE] Private Sub TestSQL() ' 디비연결 테스트 Dim i As Integer Dim SQL As String Dim rs_tmp As New ADODB.Recordset SQL = "select * from t_imp_tt where gubun ='01'" Set rs_tmp = Nothing: Call SetRST(rs_tmp, SQL) Call SpreadClear(ss1) If rs_tmp.EOF Then MsgBox "검색된 데이터가 없습니다", , "" rs_tmp.Close: Set rs_tmp = Nothing Exit Sub Else rs_tmp.MoveLast rs_tmp.MoveFirst ss1.MaxRows = rs_tmp.RecordCount End If F.. 2007. 11. 19. 이전 1 다음 반응형