关于修改数据库中的记录。

form1.table1.modify;     //编译时错在这句  
      form1.Table1['Date']   :=   StrToDate(ss);  
      form1.Table1['Class']   :=   cmbSZ.Text;  
      form1.Table1['Number']   :=   strToInt(edit1.Text);  
      form1.Table1['Memo']   :=   Edit2.Text;  
      form1.Table1.Refresh;  
   
  那句应该怎么写？  
  问题点数：20、回复次数：2Top

1 楼bill_lasker（）回复于 2002-06-21 14:07:12 得分 20

试一下：  
      form1.table1.Append;     //编译时错在这句  
      form1.Table1['Date']   :=   StrToDate(ss);  
      form1.Table1['Class']   :=   cmbSZ.Text;  
      form1.Table1['Number']   :=   strToInt(edit1.Text);  
      form1.Table1['Memo']   :=   Edit2.Text;  
      form1.Table1.Post;  
  Top

2 楼bill_lasker（）回复于 2002-06-21 14:08:16 得分 0

试一下：  
      form1.table1.Active   :=   true;  
      form1.table1.Append;     //编译时错在这句  
      form1.Table1['Date']   :=   StrToDate(ss);  
      form1.Table1['Class']   :=   cmbSZ.Text;  
      form1.Table1['Number']   :=   strToInt(edit1.Text);  
      form1.Table1['Memo']   :=   Edit2.Text;  
      form1.Table1.Post;  
  Top

3 楼bill_lasker（）回复于 2002-06-21 14:08:28 得分 0

试一下：  
      form1.table1.Active   :=   true;  
      form1.table1.Append;     //编译时错在这句  
      form1.Table1['Date']   :=   StrToDate(ss);  
      form1.Table1['Class']   :=   cmbSZ.Text;  
      form1.Table1['Number']   :=   strToInt(edit1.Text);  
      form1.Table1['Memo']   :=   Edit2.Text;  
      form1.Table1.Post;  
  Top

4 楼surfguy（〓天道酬勤〓）回复于 2002-06-21 14:25:49 得分 0

with   form1.table1   then  
      begin  
      if   active=false   then   open      
      append;  
      fields[0]:=StrToDate(ss);  
      fields[0]:=cmbSZ.Text;  
      fields[0]:=strToInt(edit1.Text);  
      fields[0]:=Edit2.Text;  
      post;  
      Refresh;  
  end;  
  Top

相关问题

• 编译
• active
• date
• cmbsz
• strtodate
• strtoint
• edit
• memo
• form
• table

• 帖主：abinnet
• bill_lasker

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载