Понадобилось вывести таблицу, вроде из стандартных подсистем для этого есть StdTables. Но не удалось найти пример использования и в документации достаточно сухо. Есть подсистема Grid, но хотелось бы обойтись стандартными средствами, благо таблица не сложная.

Поделитесь примером, пожалуйста!

Или, что я делаю не так? Открывается серый кварат...
## Код:
```
PROCEDURE LogT*;
      VAR j, i: INTEGER; t1, t2: SqlDB.Table; money: Money;
         temp1, temp2: ARRAY 50 OF CHAR; sum, ttt: REAL; user: User; rec: Rec;
         table: StdTables.Table;
         p: Controls.Prop;
   BEGIN
      IF db = NIL THEN Start() END;
      IF db # NIL THEN
         db.Exec("USE [DCentre_Discount]");
         Query(db, "SELECT * FROM Cards", t1);
         IF t1.rows > 0 THEN
            db.Exec("USE [DCentre]");
            NEW(p);
            p.link := ""; p.label := ""; p.guard := ""; p.notifier := "";
            p.level := 0; p.opt[Controls.sorted] := TRUE;
            
            table.SetSize(t1.rows, 2);
            FOR i := 0 TO t1.rows - 1 DO
               t1.Read(i, user);
               Strings.IntToString(user.ID_Man, temp1);
               Query(db, "SELECT  ID_Man, Card_Number, SurName, Name, Secname, BirthDay, Phone  FROM Man WHERE ID_Man = " + temp1$, t2);
               IF t2.rows > 0 THEN
                  table.SetItem(i, 0, rec.Card_Number$);
                  table.SetItem(i, 1, rec.SurName$)
               END
            END;
            Views.OpenAux(StdTables.dir.NewControl(p), "Test")
         END
      END
   END LogT;
```
