ClearMGrid("gridListIrsaliye") _sqlText = "select SRV.CODE FROM LG_003_PRCLIST PRC JOIN LG_003_SRVCARD SRV ON SRV.LOGICALREF=PRC.CARDREF WHERE PTYPE=4 AND CLIENTCODE='"+itemspecode+"' " CreateQuery(_query) _query.SetSQLText(_sqlText) IF _query.ExecuteDirect() THEN _res = _query.First() _row = 0 DO WHILE _res = 1 _query.GetFieldValue(1,4,code) ' _query.GetFieldValue(2,4,name) InsertGridRow("gridListIrsaliye",1) SetMGridRow ("gridListIrsaliye",_row) SetCellText ("gridListIrsaliye",_row,10001,code) 'SetCellText ("gridListIrsaliye",_row,10002,name) InvalidateGrid("gridListIrsaliye") RefreshControl("gridListIrsaliye",1) _row = _row + 1 _res = _query.Next() LOOP _breakpoint END IF _query.Clear()