排序下拉列表

在rowinit里面：
/*增加打卡规则字段

 

  陈楚豪 2013/5/7 新建*/

 

Local Field &KL_PUNCH_RULE;

 

&KL_PUNCH_RULE = GetRow().GetRecord(Record.SCH_SHIFT_DTL).GetField(Field.KL_PUNCH_RULE);

&KL_PUNCH_RULE.ClearDropDownList();

&KL_PUNCH_RULE.AddDropDownItem("01", Char(8233) | "正常上班打卡");

&KL_PUNCH_RULE.AddDropDownItem("02", Char(8234) | "正常上班不打卡");

&KL_PUNCH_RULE.AddDropDownItem("03", Char(8235) | "连班打卡");

&KL_PUNCH_RULE.AddDropDownItem("04", Char(8236) | "连班不打卡");

&KL_PUNCH_RULE.AddDropDownItem("05", Char(8237) | "加班打卡");

&KL_PUNCH_RULE.AddDropDownItem("06", Char(8237) | "加班不打卡");