社区
数据库及相关技术
帖子详情
dbgrid填完一行记录后,转移到下一行,这时我让上一行的数据自动计算(比如金额=数量×单价)
myan18
2003-08-21 10:09:51
dbgrid填完一行记录后,转移到下一行,这时我让上一行的数据自动计算(比如金额=数量×单价)。应是哪个事件?
我用的是DBGrid1ColExit事件,但达不到效果。
...全文
38
4
打赏
收藏
dbgrid填完一行记录后,转移到下一行,这时我让上一行的数据自动计算(比如金额=数量×单价)
dbgrid填完一行记录后,转移到下一行,这时我让上一行的数据自动计算(比如金额=数量×单价)。应是哪个事件? 我用的是DBGrid1ColExit事件,但达不到效果。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
myan18
2003-08-22
打赏
举报
回复
好了,我已解决了。还是写在DBGrid1ColExit里
xiaokange
2003-08-21
打赏
举报
回复
可以写在数据库的beforepost事件里啊
myan18
2003-08-21
打赏
举报
回复
计算的自段是数据库中有的。
halibut
2003-08-21
打赏
举报
回复
为dbgrid对应的DataSet添加一个计算字段就可以搞定了,事件写在DataSet的OnCalculate事件中!!!
Delphi中
DB
Grid
数据
分行/拆行/多行显示
Delphi中
DB
Grid
数据
分行/拆行/多行显示
Delphi如何一次删除
db
grid
多条
记录
的例子.rar
Delphi演示如何一次删除网格
数据
表
db
grid
中的多条
记录
,小技巧不过挺实用,希望对大家的Delphi编程有所帮助。以下是实现一次删除多条
记录
的相关代码供参考: if
DB
Grid
1.SelectedRows.Count >1 then s:= '真的要删除这些
记录
吗?'; if Application.MessageBox (Pchar(s),'删除多条
记录
',mb_iconinformation mb_yesNo)=idYes then begin
DB
Grid
1.DataSource.DataSet.DisableControls ; i:=0; While i<=
DB
Grid
1.SelectedRows.Count -1 do begin
DB
Grid
1.DataSource.DataSet.Bookmark:=
DB
Grid
1.SelectedRows.Items[i]; //重要在这里取得bookmark TempBookmark :=
DB
Grid
1.Datasource.Dataset.GetBookmark;
DB
Grid
1.DataSource.DataSet.GotoBookmark(TempBookMark);
DB
Grid
1.DataSource.DataSet.Delete ;
DB
Grid
1.DataSource.DataSet.FreeBookmark (TempBookMark); Inc(i); end;
DB
Grid
1.DataSource.DataSet.EnableControls; end; 更多代码请您在本页面下载源码。
Delphi读入
数据
到
DB
Grid
并向Word中插入表格.rar
Delphi7.0读入
数据
到
DB
Grid
并向Word中插入表格,其实就是Delphi向Word中插入表格,测试
数据
由Delphi从SQLSERVER中读取,然后放入
DB
Grid
中,再将
DB
Grid
网格中的
数据
通过Word转换成表格。 begin if TString
Grid
(
DB
Grid
1).RowCount>0 then begin //创建一个word对象 wordApp:=CreateOleObject('Word.Application'); wordApp.Visible:=true; //创建一个word文档 wordDoc:=wordApp.Documents.Add(); wordDoc.Select; wrdSelection:=wordApp.selection; //创建一个表格 wordDoc.Tables.Add(wrdSelection.Range,ADOQuery1.RecordCount 1,
DB
Grid
1.FieldCount,2,0); for i:=1 to
DB
Grid
1.FieldCount do //设置首行的字体为粗体 begin wordDoc.Tables.Item(1).Cell(1,i).Range.Bold:=true; wordDoc.Tables.Item(1).Cell(1,i).Range.InsertAfter(
DB
Grid
1.Columns[i-1].Field.FieldName); end;
DB
Grid
1.DataSource.DataSet.First; //当前行为首行 for y:=2 to ADOQuery1.RecordCount 1 do //向表中添加
数据
begin for i:=1 to
DB
Grid
1.FieldCount do wordDoc.Tables.Item(1).Cell(y,i).Range.InsertAfter(
Db
Grid
1.Fields[i-1].NewValue);
DB
Grid
1.DataSource.DataSet.Next; //下
一行
end; end else showmessage('T
DB
Grid
表中无
数据
,不能向Word中插入表格。') end;
DB
Grid
单行修改、单列修改、选中
一行
但可编辑
2.保证无毒 3.简单,方便,实用 4.实例可以自行改用 5.如有非法,本人无法律责任,由改动代码人负责! 6.需要更多本人作品,查找标签“朱建强” 7.请下载,杀毒后再使用!
DB
GRID
的应用范例
在用vc开发关于
数据
库的项目时,通常我们只好用微软的
DB
GRID
作为
数据
库表格控件,其实微软的
DB
GRID
并不好用,想找一份好的帮助文档都找不到,并且界面并不友好,比起C++Builder中的
DB
GRID
来说是逊色不少,但是
DB
GRID
在开发
数据
库的项目中又是常用的控件,所以就一直想找一个好用的
DB
GRID
,可是网上又没有找到。上次在无意中看到了C
Grid
Ctrl(一个很漂亮的表格控件,如果你还没有用过,可以到http://www.codetools.com/miscctrl/
grid
ctrl.asp/下载,上面还有详细的使用说明)支持虚模式,在这种模式下,即使你向这个表格插入一百万条
数据
,它并不会真的生成一百万行,而是随着你的滚动条的滚动,
计算
出在屏幕上要显示的行和列,然后会向你提供一个接口,通过这个接口,你可以在这儿设置你要显示的
数据
。这给了我一些启示,我决定用它来做一个
DB
GRID
。下面的例子是它的一个应用。
数据库及相关技术
1,178
社区成员
18,939
社区内容
发帖
与我相关
我的任务
数据库及相关技术
C++ Builder 数据库及相关技术
复制链接
扫一扫
分享
社区描述
C++ Builder 数据库及相关技术
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章