Public Function DBRead(...) as Boolean Dim localtarget as Object Dim localquery as String Dim localsort as String If Param.Count = 1 and Param.all[0] is QBE then decipher_QBE(Param.all[0],localtarget,localquery,localsort) Return Super.DBRead(localobject,localquery,localsort) else Return Super.DBRead(Param.All) Endif
In fact "..." generate an array of variant, you can have it in "all" when you call DBRead(ParamAll) you pass an array of variant. ------------------------------------------------------------------------------ Learn Windows Azure Live! Tuesday, Dec 13, 2011 Microsoft is holding a special Learn Windows Azure training event for developers. It will provide a great way to learn Windows Azure and what it provides. You can attend the event by watching it streamed LIVE online. Learn more at http://p.sf.net/sfu/ms-windowsazure _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user