[RBForums] Databases: Remove redundancy list in popumenu

[rbforumnotifier]

New topic in Databases: 

Remove redundancy list in popumenu

Dralion - Mon Mar 31, 2008 9:45 am

<http://forums.realsoftware.com/viewtopic.php?t=21556>
                                                                                
                                                                                
i showup a database column in a popumenu
but i want to remove from that list all repeated item (i can have many time the 
same item in that database column)
iv try     if me.text(me.listindex(i) = me.text(me.listindex(i-1) then
but its not the proper way to use it ???


Code:dim rs as RecordSet
dim value as string
dim i as integer

me.DeleteAllRows

rs =app.phippsdb.SQLSelect("SELECT Nom FROM Papiers ORDER BY Nom")

if app.phippsdb.error then
  app.displayDatabaseError false
  return
end

while rs.EOF = false
  me.AddRow rs.Field("Nom").StringValue
  
  
  i = i + 1
  if me.text(me.listindex(i) = me.text(me.listindex(i-1) then
    me.removeRow me.listIndex
  end if
  
  
  rs.MoveNext
wend

rs.close
                                        
                                                                                
                                                                                
                                                                                
                                                                                
                                        




-- 
Over 900 classes with 18000 functions in one REALbasic plug-in. 
The Monkeybread Software Realbasic Plugin v8.1. 

&lt;http://www.monkeybreadsoftware.de/realbasic/plugins.shtml&gt;

rbforumnotifier@monkeybreadsoftware.de