Range On Form

public void lookup()

{

    Query query = new Query();

    QueryBuildDataSource qbds,qbdsJoin;

    QueryBuildRange queryBuildRange;

    DirPartyTable   DirPartyTable;

    SysTableLookup sysTableLookup = SysTableLookup::newParameters(tableNum(VendTable), this);

    qbds= query.addDataSource( tableNum(VendTable));

    queryBuildRange = qbds.addRange(fieldNum(VendTable, VendGroup));

    queryBuildRange.value("TRANSPORT");

    sysTableLookup.addLookupMethod('name',true);

    sysTableLookup.addLookupfield(fieldNum(DirPartyTable,Name));

    sysTableLookup.parmQuery(query);

    sysTableLookup.performFormLookup();

}