在Peoplesoft中连接2个下拉列表

Local Rowset &rs1, &rs2;
Local Record &rec1, &rec2;
Local Field &fld1, &fld2;

&rec1 = GetRecord(RECORD_NAME1); // 替换为第一个下拉列表所在的记录名
&rec2 = GetRecord(RECORD_NAME2); // 替换为第二个下拉列表所在的记录名

&fld1 = &rec1.GetField(FIELD_NAME1); // 替换为第一个下拉列表所在的字段名
&fld2 = &rec2.GetField(FIELD_NAME2); // 替换为第二个下拉列表所在的字段名

&rs1 = &fld1.GetRowset();
&rs2 = &fld2.GetRowset();

&rs1.Flush();
&rs2.Flush();

&rs1.Select(Record.RECORD_NAME1); // 替换为第一个下拉列表所在的记录名
&rs2.Select(Record.RECORD_NAME2); // 替换为第二个下拉列表所在的记录名

&rs1.Fill();
&rs2.Fill();

&fld1.ClearDropDownList();
&fld2.ClearDropDownList();

For &i = 1 To &rs1.ActiveRowCount
    &fld1.AddDropDownItem(&rs1.GetRow(&i).GetRecord(RECORD_NAME1).FIELD_NAME1.Value, &rs1.GetRow(&i).GetRecord(RECORD_NAME1).FIELD_NAME1.Value);
End-For;

For &j = 1 To &rs2.ActiveRowCount
    &fld2.AddDropDownItem(&rs2.GetRow(&j).GetRecord(RECORD_NAME2).FIELD_NAME2.Value, &rs2.GetRow(&j).GetRecord(RECORD_NAME2).FIELD_NAME2.Value);
End-For;