procedure TForm2.DBGrid1CellClick(Column: TColumn);
begin
//showmessage(DBGrid1.SelectedField.Text);
With query1 do
begin
close;
SQL.Clear;
SQL.add('update pring set ydjx=false');
execSQL; close;
SQL.Clear;
SQL.add('update pring set ydjx=true where jx=:jx');
ParamByName('jx').value:=DBGrid1.SelectedField.Text;
execSQL;
modalresult:=mrok;
end;
end;
showmessage('更新成功'+DBGrid1.SelectedField.Text);
當點第一條記錄,怎麼點都不會彈出更新成功,點第二行記錄就會顯示更新成功,
先點第二行,再點第一行,第一行記錄才會顯示更新成功,如何才可以,點哪條記錄就更新哪條
呢,萬望指點一二
begin
//showmessage(DBGrid1.SelectedField.Text);
With query1 do
begin
close;
SQL.Clear;
SQL.add('update pring set ydjx=false');
execSQL; close;
SQL.Clear;
SQL.add('update pring set ydjx=true where jx=:jx');
ParamByName('jx').value:=DBGrid1.SelectedField.Text;
execSQL;
modalresult:=mrok;
end;
end;
showmessage('更新成功'+DBGrid1.SelectedField.Text);
當點第一條記錄,怎麼點都不會彈出更新成功,點第二行記錄就會顯示更新成功,
先點第二行,再點第一行,第一行記錄才會顯示更新成功,如何才可以,點哪條記錄就更新哪條
呢,萬望指點一二
解决方案 »
- 如何提升VISTA下应用程序的权限?
- ●●◎☆今天早上和老婆吵架,烦!!干不下去活,来散分!!!散它111!消消气!!!●◎☆☆
- 请教:有关对象创建的问题
- 我想做一个程序,检测windwos是否安装了.net的frmaework,mdac2.7和ie6,请教怎么作啊
- 怎么样给TREEVIEW一个附加值
- 救命啦!!!急急急!DELPHI中的进程调用!
- 怎样让listbox用程序选择其中的一个item并得到焦点
- 如何找到对方电脑的ip地址
- 哪位会使用INTRABOB?请多多指教;谢谢!
- 小女子的4至6问题
- 数据库查询出错,请各位帮帮忙
- 高分求:类似速达的查找货品;一个combobox,里面的内容是:索引码、编号、名称,在combobox输入索引码,可以自动过滤到
->
showmessage('更新成功'+Column.Field.Text);
所以点击着一行的时候可能不会响应,