delphi 记录添加问题 - Delphi / 数据库相关
使用tadoquery、tdbgrid过程中遇到当点击tdbgrid中的数据时，添加不了新记录，如果刚进窗体直接点就可以.
procedure Tfcost.ToolButton1Click(Sender: TObject);
var
i,j,k:integer;
s1,s2:string;
begin
if adoquery1.Active then
begin
adoquery1.FindLast;
i:=adoquery1.RecNo;
s1:=adoquery1.FieldValues['fcostcode'];
i:=strtoint(s1)+1;
s2:=format('%.4d',[i]);
adoquery1.Append;
adoquery1.FieldByName('fcostcode').Value:=s2;
adoquery1.FieldByName('fcostname').Value:='<新项目>';
adoquery1.FieldByName('fcosttypid').Value:=1;
adoquery1.FieldByName('fmoney').Value:=0;
end;
end;
补充一下
出错提示当前记录不在插入或编辑状态。记录指向最后一条记录，dbgrid中没有新记录。
用dbnavigator也是一样，要按两次才看见新记录。
再补充一下，我的数据库是sql server 2000 ，有个字段是fcostid是自动的
终于找到问题所在，我在另一个事件处理中有些问题。
相关问答：
具体要求与报酬QQ729851670
771234717
“拼音编程”是什么意思
引用
“拼音编程”是什么意思
1.给一个字可以显示拼音，多音字的话能显示对应的多个拼音
2.对包含多音字的词语智能识别给出拼音。
3.对一段 ......
小弟最近做了几个服务 服务运行需要一些参数 参数是通过一个程序界面修改的 参数保存在access数据库中 现在出现一灵异现象 单独的服务是可以进行控制的（服务的停止 暂停等等）但是多个服务一起开启会出现一服务开 ......
定义变量s,sql为string类型，s为函数参数，sql：='select field1 from table1 where'+s;运行时s赋值为id>7或者id<7、id=7,但是运行时总是出错，请各位帮我改错，多谢！
showMessage(sql)下看看
sql：='sel ......
以前中间站是电脑通过串口控制的，现在改成了USB接口，请问要怎么做啊？求高手指点一下
是usb转串口吗？那应该还是可以按串口操作的，只是速度不能太高
如果不是usb转串口，请查阅usb驱动的sdk说明。
这个是� ......
大侠们帮忙看一下，用spcomm控件进行串口通信。
发送数据：
procedure TForm1.Button2Click(Sender: TObject);
var
strPressure:string;
begin
strPressure:='SEND'+#13;
comm ......
