窗口中有一个ADOQuery,SQL如下:Select a.Warehouse,b.Descript,Sum(a.Qty) as qty,Sum(a.Qty) as ReQty
From trans a Join Warehouse b on a.Warehouse = b.Code
Where a.TxnDate Between :BeginDate And :EndDate And
Group by a.WareHouse,b.Descript刷出数据后,想在DBGrid中ReQty一栏写入数量,但是行一变动后,此列值又恢复原值,如何解决此问题啊?我的原意是想在一个DBGrid中,用户手修改ReQty的值,最后用以比较ReQty和Qty两栏的值,不一致的写入到另一张数据表中。
From trans a Join Warehouse b on a.Warehouse = b.Code
Where a.TxnDate Between :BeginDate And :EndDate And
Group by a.WareHouse,b.Descript刷出数据后,想在DBGrid中ReQty一栏写入数量,但是行一变动后,此列值又恢复原值,如何解决此问题啊?我的原意是想在一个DBGrid中,用户手修改ReQty的值,最后用以比较ReQty和Qty两栏的值,不一致的写入到另一张数据表中。
解决方案 »
- 急:怎么想表单提交复选框的值
- 高手们,如何在显示时实现行列转换
- 别打我!QQ2004以上版为什么没有QQ尾巴病毒
- 求安装Fast Report3的方法!
- 整天无所事事???那来练习吧..
- 数据保存时出错,‘list index out of bounds(0)’,请教各位高手。
- 我想写一个随机改变系统背景的程序,请问在98,2000和XP下分别该怎么做?
- 请问各位大侠:过程内怎样声明过程阿?
- 如何将封装在DLL中的MDI子窗口的主菜单与MDI父窗口融合?
- delphixe8 ios开发遇到问题
- 如何修改、添加、删除字段?????
- 放分100。(告别delphi论坛)2003-6-19晚结 ,(我所有帖子都会结完。值得大家学校哟)
AdoQuery1.Sql.Text := sqlstring;
AdoQuery1.Open ;
AdoQuery1.FieldByName('ReQty').ReadOnly := False;
ClientDataSet1.Open;
ClientDataSet1.FieldByName('ReQty').ReadOnly := False ;
只要不Update,不会报错。