牛
牛哥168
Unregistered / Unconfirmed
GUEST, unregistred user!
access有个表A
A中有2个自动 id--自动编号,nr--备注类型
往A中插入一条记录,nr的内容如下
{uses ComObj, StdCtrls
procedure TForm1.Button1Click(Sender: TObject);
var
vScript : Variant;
s: string;
begin
s:=Edit4.Text;
s:=AnsiReplacetext(s,'A',Edit1.Text);
s:=AnsiReplacetext(s,'B',Edit2.Text);
s:=AnsiReplacetext(s,'C',Edit3.Text);
try
vScript := CreateoleObject('scriptcontrol');
vScript.language := 'javascript';
Edit5.Text := vScript.eval(s);
except
ShowMessage('公式错误 !');
end;
end;}
也就是将这个代码保存到access中
提示:操作符丢失,,,
但有时候不会出错
是什么原因???
A中有2个自动 id--自动编号,nr--备注类型
往A中插入一条记录,nr的内容如下
{uses ComObj, StdCtrls
procedure TForm1.Button1Click(Sender: TObject);
var
vScript : Variant;
s: string;
begin
s:=Edit4.Text;
s:=AnsiReplacetext(s,'A',Edit1.Text);
s:=AnsiReplacetext(s,'B',Edit2.Text);
s:=AnsiReplacetext(s,'C',Edit3.Text);
try
vScript := CreateoleObject('scriptcontrol');
vScript.language := 'javascript';
Edit5.Text := vScript.eval(s);
except
ShowMessage('公式错误 !');
end;
end;}
也就是将这个代码保存到access中
提示:操作符丢失,,,
但有时候不会出错
是什么原因???