invalid variant type conversion 头痛啊

Question

procedure TForm1.Button3Click(Sender: TObject); 
var 
  counter:integer; 
begin 
  T_stud_info_1.Open; 
  if T_stud_info_1.RecordCount>0 then //确认学号是否存在 
  begin 
    T_counter_r.Open; 
    counter:=T_counter_r['COUNTER_VALUE']; 
    Inc(counter); //累加奖励记录计数器 
    T_counter_r.Edit; 
    T_counter_r['COUNTER_VALUE']:=counter; 
    T_counter_r.Post; 
    T_reward.Open; 
    //T_change.Edit; 
    T_reward.AppendRecord([counter, i_stud_id_2.text, i_reward_level.ItemIndex, Now, i_descrip_2.text]); 
    Button4Click(nil); 
  end 
  else 
    Application.MessageBox('请确认输入的学号是否正确！', '错误', MB_OK); 
end; 为什么老是提示“invalid variant type conversion”真是头痛啊！！！！！！！！！！！！

Answer 1

T_counter_r.Open;  // 这个数据集是不是空的?
    counter:=T_counter_r['COUNTER_VALUE'];  //这是一个 Variant  类型,你必须保证他是一个整数才能这样操作.