query1 := TQuery.Create(nil);
name :=RadioGroup1.Items[RadioGroup1.ItemIndex];
if name <>'' then
with Query1 do
begin
Close;
ConnectionString :='DATABASEURL=Biz:\TPXT\TPSJK.DATABASE'; CommandText:='update TPSJB set ps=ps+1 where mz='''+name+'''';
现在怎样写用SQL事件探查器看到执行的是:update TPSJB set ps=ps+1 where mz='',名字是空了,所以ps没有更新成功