Re: add scroll frmtable

> 
> 
> > -----Original Message-----
> > From: frank_lupo [mailto:frank_lupo@email.it] 
> > Sent: 19 March 2003 17:18
> > To: Dave Page
> > Cc: pgadmin-hackers
> > Subject: RE: [pgadmin-hackers] add scroll frmtable
> > 
> > 
> > Hi dave
> 
> > change the top position 
> > from :
> ...
> > OK for Column,ForeignKey,Rule,Trigger,Index
> ...
> > Now Verify 
> ...
> 
> Hi Frank,
> 
> That looks excellent, it works really well in the IDE.
> 
> The only problem is that is doesn't compile :-(. Because VB runs the
> usercontrol when it builds it, it fails to access the ctx object from
> the Initialize subroutine. Any ideas?
> 
> Regards, Dave.
> 
> 
> ---------------------------(end of broadcast)---------------------------
> TIP 4: Don't 'kill -9' the postmaster
> 

The problem is when compile VB, Initialize usercontrol which is present in frmdummy. When Initialize form the
frmmain.svrobject is not Initialize.
 

Private Sub UserControl_Initialize()
If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
If Not frmMain.svr Is Nothing Then
  frmMain.svr.LogEvent "Entering " & App.Title & ":ScrollObjDb.UserControl_Initialize()", etFullDebug
End If
  
  szDatabase = ctx.CurrentDB
  szNamespace = ctx.CurrentNS
  
  If Len(Trim(szDatabase)) <= 0 Then Exit Sub
  
  'save table name if object depend of table
  Select Case ctx.CurrentObject.ObjectType
    Case "Column", "ForeignKey", "Rule", "Trigger", "Index"
      szTable = ctx.CurrentObject.Table
  End Select

  Exit Sub
Err_Handler: If Err.Number <> 0 Then LogError Err.Number, Err.Description, App.Title &
":ScrollObjDb.UserControl_Initialize"
End Sub


Bye !!
Frank Lupo (Wolf) !!

       /\_ _/\
       \ o o /
--ooo-----ooo---





--
Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f

Sponsor:
Fatti del male. Lascia perdere www.gratis.it.
Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=725&d=24-3