在PickList中添加: aa bb cc dd 在table的A1的OnGetText中添加如下代码: case Sender.Value of 1: Text := 'aa'; 2: Text := 'bb'; 3: Text := 'cc'; 4: Text := 'dd'; end; 在table的A1的OnSetText中添加如下代码: if Text = 'aa' then Sender.Value := 1 else if Text = 'bb' then Sender.Value := 2 else if Text = 'cc' then Sender.Value := 3 else if Text = 'dd' then Sender.Value := 4
aa
bb
cc
dd
在table的A1的OnGetText中添加如下代码:
case Sender.Value of
1: Text := 'aa';
2: Text := 'bb';
3: Text := 'cc';
4: Text := 'dd';
end;
在table的A1的OnSetText中添加如下代码:
if Text = 'aa' then
Sender.Value := 1
else if Text = 'bb' then
Sender.Value := 2
else if Text = 'cc' then
Sender.Value := 3
else if Text = 'dd' then
Sender.Value := 4