Hi Arnold,
Have you tried turning off the ListView Sort? (i.e.
comment it out.) I believe the sort may be causing
some error, as I too had some issues whith sorted
lisatviews(VB SP6 only). According to MS(to whom I
reported the error), there is a major flaw in the
listview when trying to sort and causes errors and/or
GPfs. There is a workaround for this, but it involves
you running your app with a manafest file to call upon
the listview. I personnally don't like added
manafests, but it is the only way to make things work
right, until they derive a permanent fix. Will post
the manafest contents if you'd like to attempt it with
the manafest. Good luck.
Seth
--- Arnold Marquez <[EMAIL PROTECTED]> wrote:
>
>
>
> Hi
>
> Below is part of the code that produced the error. i
> did not experience this error in
> XP and 2000. The error only appeares in windows 98.
>
>
> This error give me a lot of confusion as it never
> happened before in my previous
> deployment of the program. (I use VB 6.0 with SP6,
> ComponentOne)
>
> I would appreciate it very much if you could help me
> solve this problem as i need to implement my system
> next week
>
> thanks and best regards
>
> Arnold
>
>
>
>
>
> Private Sub Form_Load()
>
> Dim rstCont As New ADODB.Recordset
> Dim rst2 As New ADODB.Recordset
>
> Dim nodNew As Node
>
> Me.TreeView1.Nodes.Clear
> Set rst = cnn.Execute("SELECT * FROM
> qryDestBKS")
> If Not rst.EOF Then
>
> Me.TreeView1.ImageList = Me.ImageList1
> While Not rst.EOF
> Set rst2 = cnn.Execute("SELECT
> BKS.BKS_Date, Count(BKS.BKS_DestCode) AS
> CountOfBKS_DestCode From BKS " & _
> "Where (((BKS.BKS_DestCode) = '" &
> rst("DES_DestCode") & "')) " & _
> "GROUP BY BKS.BKS_Date " & _
> "HAVING (((BKS.BKS_Date) Between
> #" & Format(Me.dtFrom, "yyyy/mmm/dd") & "# And #" &
> Format(Me.dtTo, "yyyy/mmm/dd") & "#))")
>
> If Not rst2.EOF Then
> Me.TreeView1.Nodes.Add , ,
> rst("DES_DestCode"), rst("DES_DestName"),
> "ClickOff", "ClickOn"
> End If
>
> rst.MoveNext
> Wend
> Me.TreeView1.Nodes.Add , , "LCL", "LCL",
> "ClickOff", "ClickOn"
> Me.TreeView1.Nodes.Add , , "FCL", "FCL",
> "ClickOff", "ClickOn"
> Me.TreeView1.Nodes.Add , , "COLOAD",
> "COLOAD", "ClickOff", "ClickOn"
> Me.TreeView1.Nodes.Add , , "ALL", "ALL",
> "ClickOff", "ClickOn"
> Me.TreeView1.Nodes.Add , , "CONSOLE",
> "CONSOLE", "ClickOff", "ClickOn"
> End If
>
> rstCont.Open "SELECT * FROM
> qryCSMonitoring_Containerize", cnn, adOpenDynamic
>
> While Not rstCont.EOF
> 'ERROR IN THIS AREA
> Me.TreeView1.Nodes.Add "CONSOLE", tvwChild,
> "B" & rstCont("LSH_Key"), rstCont("LSH_Key") & ", "
> & rstCont("LSH_ShippingCode") & ", " &
> rstCont("DES_DestName"), "ClickOff", "ClickOn"
> rstCont.MoveNext
> Wend
>
> ListView1.Sorted = True
> ListView1.FullRowSelect = True
>
> Me.Top = (Screen.Height - Me.Height) / 3
> Me.Left = (Screen.Width - Me.Width) / 2
>
> rst.Close
> rstCont.Close
> End Sub
>
> "Shawn K. Hall" <[EMAIL PROTECTED]> wrote:
> Hi Arnold,
>
> > (RUNTIME ERROR '6' OVERLOW). There is an instance
> that
> > my program will be ok and after a series of data
> > encoding this error would suddenly appear in the
> > screen particularly when opening a report or a
> form
> > with MS controls.
>
> You need to review your code to see where the code
> is calling a
> function from an event that reacts frequently (like
> a _mousemove or
> timer with a low interval).
>
> Ideally, you would have some method of watching the
> stack - like a
> static variable in your re-entrant functions that is
> used as a
> counter to deny requests to re-enter the routine
> after the stack
> reaches a certain level.
>
> Without seeing some code or at least an application
> process flow
> diagram we're really at a loss to provide much
> actual assistance.
>
> Regards,
>
> Shawn K. Hall
> http://ReliableAnswers.com/
>
> '//
>
========================================================
> The shadow is what we think of it;
> the tree is the real thing.
> -- Abraham Lincoln (1809-1865)
>
>
>
>
>
> '//
>
=======================================================
> Rules :
> http://ReliableAnswers.com/List/Rules.asp
> Home : http://groups.yahoo.com/group/vbHelp/
>
>
=======================================================
> Post : [EMAIL PROTECTED]
> Join : [EMAIL PROTECTED]
> Leave : [EMAIL PROTECTED]
> '//
>
=======================================================
>
>
>
> Yahoo! Groups SponsorADVERTISEMENT
>
>
> ---------------------------------
> Yahoo! Groups Links
>
> To visit your group on the web, go to:
> http://groups.yahoo.com/group/vbhelp/
>
> To unsubscribe from this group, send an email to:
> [EMAIL PROTECTED]
>
> Your use of Yahoo! Groups is subject to the
> Yahoo! Terms of Service.
>
>
>
> ---------------------------------
> Do you Yahoo!?
> The all-new My Yahoo! � Get yours free!
>
> [Non-text portions of this message have been
> removed]
>
>
>
>
>
>
> ------------------------ Yahoo! Groups Sponsor
> --------------------~-->
> Make a clean sweep of pop-up ads. Yahoo! Companion
> Toolbar.
> Now with Pop-Up Blocker. Get it for free!
>
http://us.click.yahoo.com/L5YrjA/eSIIAA/yQLSAA/k7folB/TM
>
--------------------------------------------------------------------~->
>
>
>
> '//
>
=======================================================
> Rules :
> http://ReliableAnswers.com/List/Rules.asp
> Home : http://groups.yahoo.com/group/vbHelp/
>
>
=======================================================
> Post : [EMAIL PROTECTED]
> Join : [EMAIL PROTECTED]
> Leave : [EMAIL PROTECTED]
> '//
>
=======================================================
>
> Yahoo! Groups Links
>
>
> [EMAIL PROTECTED]
>
>
>
>
>
>
=====
Seth Alexander
Phoenix 'Xypher' Systems
http://wave.prohosting.com/dnphoeni/
[EMAIL PROTECTED]
__________________________________
Do you Yahoo!?
Meet the all-new My Yahoo! - Try it today!
http://my.yahoo.com
------------------------ Yahoo! Groups Sponsor --------------------~-->
Make a clean sweep of pop-up ads. Yahoo! Companion Toolbar.
Now with Pop-Up Blocker. Get it for free!
http://us.click.yahoo.com/L5YrjA/eSIIAA/yQLSAA/k7folB/TM
--------------------------------------------------------------------~->
'// =======================================================
Rules : http://ReliableAnswers.com/List/Rules.asp
Home : http://groups.yahoo.com/group/vbHelp/
=======================================================
Post : [EMAIL PROTECTED]
Join : [EMAIL PROTECTED]
Leave : [EMAIL PROTECTED]
'// =======================================================
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/vbhelp/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
