几个DBgrid之间的数据相互移动问题

yangtongying888 2012-07-13 04:40:05

数据库一张总表 字段为:id(主键), a, b,c,d,e,f
用三个adoquery 连接到三个dbgrid中
dbgrid1显示 这几个字段:id,a,b的值

dbgrid2显示 这几个字段:id,b,c的值

dbgrid3显示 这几个字段:id,c,e,f的值

现在我想实现这样的功能,以下是描述:
把dbgrid1这条记录的字段移动到dbgrid2中(dbgrid1移到dbgrid2时dbgrid2没有的字段则不用显示,dbgrid2中没有dbgrid1字段则显示为空)然后这条记录的dbgrid1字段清掉--注意这里是同一条记录(只是各个DBgrid 显示了不同的字段而已)---说白了就是同一条记录的不同或相同字段在不同的dbgrid2中显示,移完后在之前个dbgrid的字段删掉
同理把dbgrid2这条记录字段移动到dbgrid3中
同理把dbgrid3这条记录字段移动到dbgrid2中
请问大家该 怎么做?
...全文
154 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
lyhoo163 2012-07-16
  • 打赏
  • 举报
回复
完全可以做,通过DBGrid1..Append
kaikai_kk 2012-07-13
  • 打赏
  • 举报
回复
比如在双击事件处理,被双击的列就移动,列名先后顺序也可以变化,下面是默认的
其它同理,反正就是设置Visible属性

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
DBGrid1.Columns.Items[DBGrid1.SelectedIndex].Visible:=False;
DBGrid2.Columns.Items[DBGrid1.SelectedIndex].Visible:=True;
end;

2,497

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧