PeopleSoft translate value 排序

这个function 可以对record.field 的dropdownlist 排序，也可以把描述前边加个数字。但是有时候用户不接受。所以调用这个方法是比较好的选择。

Function Order_By_Dropdown_List(&Record_name As string, &Field_name As string)

&Record_name = "Record." | &Record_name;

&Field_name1 = "Field." | &Field_name;

&Field = GetRecord(@&Record_name).GetField(@&Field_name1);

&Field.ClearDropDownList();

&Xlat = CreateRowset(Record.PSXLATITEM);

&Xlat.Fill("where FILL.FIELDNAME = '" | &Field_name | "' ORDER BY FILL.FIELDVALUE DESC");

&Xlat_Cnt = &Xlat.ActiveRowCount;

For &i = 1 To &Xlat_Cnt

&CodeIn = &Xlat.GetRow(&i).GetRecord(1).FIELDVALUE.Value;

&DescIn = &Xlat.GetRow(&i).GetRecord(1).XLATLONGNAME.Value;

&Field.AddDropDownItem(&CodeIn, Rept(Char(9), &i) | &DescIn);

End-For;

End-Function;

转载于:https://www.cnblogs.com/binquan/p/7461948.html