1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

    Object oSelList is a cDbCJGridPromptList
        Set Size to 105 256
        Set Location to 5 5
        Set peAnchors to anAll
        Set psLayoutSection to "Test_sl_oSelList"
        Set Ordering to 1
        Set pbAutoServer to True
        
        Procedure request_search Integer iKey1 Integer iKey2
            Forward Send Request_Search iKey1 iKey2

            Integer iCol
            Handle hoCol
            
            Get piSortColumn to iCol   // aktuelle Spalte 

            if (iCol = 0) begin  // nur wenn Spalte AdrNr
                Get ColumnObject (iCol + 1) to hoCol   // Objekt-ID der 2. Spalte ("Nummer")
            
                Send UpdateCurrentValue of hoCol "99999999"   // Nummer ist NUM 8.0, mit Max.Wert füllen
                Send RequestColumnFind iCol LE True   // "Datensatz suchen"
            end

        End_Procedure


        Object oTest_Adrnr is a cDbCJGridColumn
            Entry_Item Test.Adrnr
            Set piWidth to 84
            Set psCaption to "Adrnr"
        End_Object // oTest_Adrnr

        Object oTest_Nr is a cDbCJGridColumn
            Entry_Item Test.Nr
            Set piWidth to 84
            Set psCaption to "Nummer"
        End_Object // oTest_Nr

        Object oTest_Name is a cDbCJGridColumn
            Entry_Item Test.Name
            Set piWidth to 262
            Set psCaption to "Name"
        End_Object // oTest_Name


    End_Object // oSelList

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

    Object oSelList is a dbList
        Set Size to 100 394
        Set Location to 7 14

        Begin_Row
            Entry_Item Adr.Nr
            Entry_Item Adr.Name
            Entry_Item Details.Nummer
        End_Row

        Procedure Request_Search Integer keyval
            Forward Send Request_Search keyval

            // Hier füllen und suchen            
            Move 99999999 to Details.Nummer
            Send Find of oDetails_DD LE 1
            
        End_Procedure

        Set Main_File to Details.File_Number

        Set Form_Width 0 to 48
        Set Header_Label 0 to "AdrNr"
        Set Form_Width 1 to 180
        Set Header_Label 1 to "Name"
        Set Form_Width 2 to 48
        Set Header_Label 2 to "Nummer"
    End_Object