try this one. it is much simplier Private Sub LV_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) With LV .SortKey = ColumnHeader.Index - 1 .SortOrder = lvwAscending .Sorted = True End With End Sub geboy
slowbutsure29
Posts
-
list view -
Print by CrystalReportVieweryes you can jest set the openmethod equals to zero. your data will be print directly to the printer.
geboy
-
Encryption Texttry this: Function Encrypt(ByVal strval$, ByVal blndec As Boolean) As String Dim str, str1, str2, str3, str4 As String Dim int1, int2, int3 As Integer str1 = strval$ int1 = Len(str1) int2 = 1 Do While int2 <> (int1 + 1) str2 = Mid(str1, int2, 1) If blndec = True Then int3 = Asc(str2) + 3 'Decrypt Else int3 = Asc(str2) - 3 'Encrypt End If str3 = Chr(int3) str4 = str4 & str3 int2 = int2 + 1 Loop Encrypt = str4 End Function geboy
-
crystal reports 8.5 continuesHi, this is how i open a report inside VB6 Sub CreateReport(SQL As String, MyConnection As Connection, ReportPath As String, _ ReportTitle As String, OpenMethod As Integer) Dim crApp As New CRAXDRT.Application Dim crRep As New CRAXDRT.Report Dim Rs As New ADODB.Recordset On Error GoTo Err_Proc With Rs .CursorLocation = adUseClient .Open SQL, MyConnection, adOpenKeyset, adLockReadOnly .ActiveConnection = Nothing If .RecordCount > 0 Then Set crRep = crApp.OpenReport(ReportPath, OpenMethod) crRep.Database.SetDataSource Rs ' crRep.Database.LogOnServer "C:\SUKI\Support\crystal\Pdlsql.dll", gStrServer, gStrDatabase crRep.ReportTitle = ReportTitle With frmReportViewer .Caption = crRep.ReportTitle .WindowState = vbMaximized .CRViewer.ReportSource = crRep If OpenMethod = 0 Then 'print directly to printer crRep.PrintOut False, 1, True Else .CRViewer.ViewReport '1=show print layout to user .Show vbModal End If End With Else MsgBox "Record(s) not found.", vbExclamation, App.Title End If .Close End With Set Rs = Nothing Set crRep = Nothing Set crApp = Nothing Exit Sub Err_Proc: Call ErrMsg End Sub Am i forgetting something cause my report is not working. "physical database not found" is always its error. geboy
-
crystal reports 8.5Hi, im having problem with crystal reports 8.5 I've installed a CRM program. the installation is successful but when i tried to run the report an error "physical database not found" occured." I have included all the possible dll's that is needed in the package but still its not working. what should I do? please help.
geboy
-
CLASPdid you try this page "www.claspdev.com"?
geboy
-
CLASPIm using clasp version 2.0. the first error is this "Server.Transfer failed then it refers to Server_browderagent.asp". im a newby in asp so please help.
geboy
-
CLASPHey can anyone help me. This is the first time that i'm going to use classi asp and i got very interested in CLASP. But i can't make it run. I've studied all the samples included in the file that i download and faithfully follow the instructions but still can't make it run. please help cause i have an incoming project that must be finalize next month. Thank so much!!!
geboy
-
What is the worst company you ever interviewed with?It was in the year 2001 when I was invited for an interview with a japanese firm located at ermita manila. Their HR personnel told me that they need a VB developer using access and oracle as the backend. I got interested so i went there immediately. But when I got in the office the HR guy gave me a written exam. It is somewhat like a logical exam fortunately I passed the exam and I was told to come back next week and so I did. Again they gave me an exam but this time an actual programming examination. Ofcource I was able to do what they want me to do. Then the HR guy told me to come back again next week for the final interview. I really got excited because this would be my second job and im looking forward to having a bigger pay. So after a week I came back this time the japanese project manager interviewed me. Telling me all the things I should know. after that short conversation she brought me to my own working table. When I opened the computer i was surprised cause the O.S. was in japanese language and worst the lead programmer a "filipino" told me that they don't allow the use of DLL, CLASSES etc., in their projects. And theres more, to my surprise this lead programmer told me that I should use MSaccess or VBA for that specific project. Imagine wasting my time. Thats almost 1 month telling me later that I have to use VBA. What a fucking story ha!!!.
geboy