在GRID里根据条件插入空白行

xgj5054 2011-10-10 11:14:39
请各位帮忙解决一下下面的问题。
假如有个A表
日期 主单号 品名 备注
2011-10-11 111 打火机 ABC
2011-10-12 123 鞋子 HHH
2011-10-12 123 裤子 RRR
2011-10-13 222 火柴 EEE
2011-10-13 333 眼镜 QQQ
2011-10-13 333 被子 WWW
2011-10-13 333 桌子 LLL

我想在A表里面，把不同主单号的记录之间插入一个空白记录，如主单号111和两个123之间插个空白的记录，主单号相同的记录不插，如此类推。然后把处理好的表放到一个新表B中，把B表作为GRID的数据源。重要的是A表我已经按照日期和主单号排好序了。要求生成的B表不要打乱这个顺序，只是在不同的主单号间插入空白记录（行），相同的主单号不要插。
分不多，谢谢各位。
...全文
430 33 打赏 收藏 转发到动态 举报
写回复
用AI写文章
33 条回复
切换为时间正序
请发表友善的回复…
发表回复
xgj5054 2011-10-12
  • 打赏
  • 举报
 回复
是客户强烈提出来的，这是需求，不是毫无意义，重要的是实现结果。
wwwwb 2011-10-12
  • 打赏
  • 举报
 回复
[Quote=引用 31 楼 jxjdzwang5555 的回复:]
楼主，毫无意义的插入空白行的做法，也向2位老师（十豆三和wwwb）提问，是时间有余吧？
[/Quote]
确实。在数据库中没有顺序的概念，似乎在学习VFP的人，很在意顺序，但各人的需求不同，呵呵
jxjdzwang5555 2011-10-12
  • 打赏
  • 举报
 回复
楼主，毫无意义的插入空白行的做法，也向2位老师（十豆三和wwwb）提问，是时间有余吧？
xgj5054 2011-10-11
  • 打赏
  • 举报
 回复
谢谢十豆三 你的没错
十豆三 2011-10-11
  • 打赏
  • 举报
 回复 
Create Cursor A表 (日期 D,主单号 C(10),品名 C(10),备注 C(10))

Insert Into A表 Values ({^2011-10-11},'111','打火机','ABC')

Insert Into A表 Values ({^2011-10-12},'123','鞋子','HHH')

Insert Into A表 Values ({^2011-10-12},'123','裤子','RRR')

Insert Into A表 Values ({^2011-10-13},'222','火柴','EEE')

Insert Into A表 Values ({^2011-10-13},'333','眼镜','QQQ')

Insert Into A表 Values ({^2011-10-13},'333','被子','WWW')

Insert Into A表 Values ({^2011-10-13},'333','桌子','LLL')

*-- 上面生成测试数据



*-- 下面是你需要的代码

Select * Into Table B表 From A表 && Order By 日期,主单号

Select B表

lcZDH=Alltrim(主单号)

Scan

	If Alltrim(主单号)<>lcZDH

		Insert Before Blank

		Skip

	Endif

	lcZDH=Alltrim(主单号)

Endscan

Browse	&& 看一下结果
xgj5054 2011-10-11
  • 打赏
  • 举报
 回复
主单号是字符型的，不规则的，不能求平均值，而且我要一条空记录，包括主单号也是空的，你说的方法不可行，还是要谢谢你
xgj5054 2011-10-11
  • 打赏
  • 举报
 回复
不对的 兄弟 有区别的 你的排列打乱了源表的排序，我在1楼说的很清楚，不能打乱源表的排序。这点十豆三做到了，你没有做到。呵呵
wwwwb 2011-10-11
  • 打赏
  • 举报
 回复
实际上23楼的代码 已经达到目的，只是你要求完全空白字段，加了两条
UPDATE dd SET 主单号='',品名='' WHERE 日期={^9999-12-31}
UPDATE dd SET 日期=CTOD('') WHERE 日期={^9999-12-31}
即可
wwwwb 2011-10-11
  • 打赏
  • 举报
 回复
略加修改：
建表部份省略
SELECT * into CURSOR dd1 FROM (;
SELECT * FROM A表 WHERE LEN(ALLTRIM(主单号))>0;
UNION all;
SELECT {^9999-12-31},主单号,SPACE(20),SPACE(20),SUM(重量),SUM(体积) FROM A表 WHERE LEN(ALLTRIM(主单号))>0 GROUP BY 主单号 HAVING COUNT(*)>=2;
unio all;
SELECT {^9999-12-31},主单号,SPACE(20),SPACE(20),000000,000000 FROM A表 WHERE LEN(ALLTRIM(主单号))>0 GROUP BY 主单号 HAVING COUNT(*)<2;
) a;
order BY 主单号,日期
SELECT * into CURSOR dd READWRITE FROM (;
SELECT * FROM A表 WHERE LEN(ALLTRIM(主单号))=0 ;
UNION all;
SELECT {^9999-12-31},主单号,品名,SPACE(20),000000,000000 FROM A表 WHERE LEN(ALLTRIM(主单号))=0) a;
order BY 主单号,品名,日期

SELECT dd
APPEND FROM DBF('dd1')
UPDATE dd SET 主单号='',品名='' WHERE 日期={^9999-12-31}
UPDATE dd SET 日期=CTOD('') WHERE 日期={^9999-12-31}
brow
xgj5054 2011-10-11
  • 打赏
  • 举报
 回复
十豆三26楼的方法完全正确，你真是个牛X人。25楼的兄弟，你的思路也很好，可能我表述的不是很清楚，你的结果没有达到我的要求，你用十豆三26楼的方法看看B表 那完全是我要的结果。
十豆三 2011-10-11
  • 打赏
  • 举报
 回复 
Create Cursor A表 (日期 D,主单号 C(10),品名 C(10),备注 C(10),重量 N(10,2),体积 N(10,2))

Insert Into A表 Values ({^2011-10-11},'111','打火机','ABC',10.1,0.5)

Insert Into A表 Values ({^2011-10-12},'123','鞋子','HHH',200,2)

Insert Into A表 Values ({^2011-10-12},'123','裤子','RRR',180,1.9)

Insert Into A表 Values ({^2011-10-13},'','火柴','FFF',15,0.5)

Insert Into A表 Values ({^2011-10-13},'','被子','KKK',1400,10.5)

Insert Into A表 Values ({^2011-10-13},'222','火柴','EEE',12.28,0.48)

Insert Into A表 Values ({^2011-10-13},'333','眼镜','QQQ',15,0.9)

Insert Into A表 Values ({^2011-10-13},'333','被子','WWW',808.45,4.34)

Insert Into A表 Values ({^2011-10-13},'333','桌子','LLL',2500,9)

Browse    && 看一下 A表 原数据

*-- 上面生成测试数据



*-- 下面是你需要的代码

Select * Into Table B表 From A表 && Order By 日期,主单号

Update B表 Set 主单号='*'+Transform(Recno()) Where Empty(主单号)

Select B表

Locate

lcZDH=Alltrim(主单号)

Store 0 To lnZL,lnTJ

Scan

	If !Alltrim(主单号)==lcZDH

		Skip -1

		If Left(主单号,1)='*' Or (重量=lnZL And 体积=lnTJ)

			*Replace 主单号 With ''

			Insert Blank

		Else

			Insert Blank

			Replace 重量 With lnZL,体积 With lnTJ

		Endif

		Store 0 To lnZL,lnTJ

		Skip 1

	Endif

	lcZDH=Alltrim(主单号)

	If Empty(主单号)

		Store 0 To lnZL,lnTJ

	Else

		lnZL=lnZL+重量

		lnTJ=lnTJ+体积

	Endif

Endscan

Insert Blank

Replace 重量 With lnZL,体积 With lnTJ

Update B表 Set 主单号='' Where Left(主单号,1)='*'

Locate

Browse    && 看一下 B表 数据结果
wwwwb 2011-10-11
  • 打赏
  • 举报
 回复
用23楼的代码？
你的方法没有处理好主单号为空的记录
举例说明

日期 主单号 品名 备注 重量 体积
2011-10-13 被子 KKK 1400 10.5
9999-12-31 被子 0 0
2011-10-13 火柴 FFF 15 0.5
9999-12-31 火柴 0 0

这样不对？
xgj5054 2011-10-11
  • 打赏
  • 举报
 回复
还是不对 你要用 十豆三的代码执行看看B表 他的B表很接近 他的方法处理主单号为空的记录很好，你的方法没有处理好主单号为空的记录
wwwwb 2011-10-11
  • 打赏
  • 举报
 回复
Create Cursor A表 (日期 D,主单号 C(10),品名 C(10),备注 C(10),重量 N(10,2),体积 N(10,2))
Insert Into A表 Values ({^2011-10-11},'111','打火机','ABC',10.1,0.5)
Insert Into A表 Values ({^2011-10-12},'123','鞋子','HHH',200,2)
Insert Into A表 Values ({^2011-10-12},'123','裤子','RRR',180,1.9)
Insert Into A表 Values ({^2011-10-13},'','火柴','FFF',15,0.5)
Insert Into A表 Values ({^2011-10-13},'','被子','KKK',1400,10.5)
Insert Into A表 Values ({^2011-10-13},'333','眼镜','QQQ',15,0.9)
Insert Into A表 Values ({^2011-10-13},'222','火柴','EEE',12.28,0.48)
Insert Into A表 Values ({^2011-10-13},'333','被子','WWW',808.45,4.34)
Insert Into A表 Values ({^2011-10-13},'333','桌子','LLL',2500,9)
Browse && 看一下 A表 原数据

SELECT * into CURSOR dd1 FROM (;
SELECT * FROM A表 WHERE LEN(ALLTRIM(主单号))>0;
UNION all;
SELECT {^9999-12-31},主单号,SPACE(20),SPACE(20),SUM(重量),SUM(体积) FROM A表 WHERE LEN(ALLTRIM(主单号))>0 GROUP BY 主单号 HAVING COUNT(*)>=2;
unio all;
SELECT {^9999-12-31},主单号,SPACE(20),SPACE(20),000000,000000 FROM A表 WHERE LEN(ALLTRIM(主单号))>0 GROUP BY 主单号 HAVING COUNT(*)<2;
) a;
order BY 主单号,日期
SELECT * into CURSOR dd READWRITE FROM (;
SELECT * FROM A表 WHERE LEN(ALLTRIM(主单号))=0 ;
UNION all;
SELECT {^9999-12-31},主单号,品名,SPACE(20),000000,000000 FROM A表 WHERE LEN(ALLTRIM(主单号))=0) a;
order BY 主单号,品名,日期

SELECT dd
APPEND FROM DBF('dd1')
brow

看看结果
wwwwb 2011-10-11
  • 打赏
  • 举报
 回复
Create Cursor A表 (日期 D,主单号 C(10),品名 C(10),备注 C(10),重量 N(10,2),体积 N(10,2))
Insert Into A表 Values ({^2011-10-11},'111','打火机','ABC',10.1,0.5)
Insert Into A表 Values ({^2011-10-12},'123','鞋子','HHH',200,2)
Insert Into A表 Values ({^2011-10-12},'123','裤子','RRR',180,1.9)
Insert Into A表 Values ({^2011-10-13},'','火柴','FFF',15,0.5)
Insert Into A表 Values ({^2011-10-13},'','被子','KKK',1400,10.5)
Insert Into A表 Values ({^2011-10-13},'333','眼镜','QQQ',15,0.9)
Insert Into A表 Values ({^2011-10-13},'222','火柴','EEE',12.28,0.48)
Insert Into A表 Values ({^2011-10-13},'333','被子','WWW',808.45,4.34)
Insert Into A表 Values ({^2011-10-13},'333','桌子','LLL',2500,9)

用上述数据，正确结果是什么
xgj5054 2011-10-11
  • 打赏
  • 举报
 回复
不是这个意思
wwwwb 2011-10-11
  • 打赏
  • 举报
 回复
如果理解正确：
SELECT * FROM (;
SELECT * FROM r:\temp\ttj ;
UNION all;
SELECT {^9999-12-31},主单号,tran(SUM(主单号)),SPACE(10) FROM r:\temp\ttj GROUP BY 主单号 HAVING COUNT(*)>=2;
unio all;
SELECT {^9999-12-31},主单号,SPACE(20),SPACE(10) FROM r:\temp\ttj GROUP BY 主单号 HAVING COUNT(*)<2) a;
order BY 主单号,日期

表名、字段自行修改
xgj5054 2011-10-11
  • 打赏
  • 举报
 回复
十豆三老师，你的代码我执行了已经很接近了。我看了一下B表，比如说那个主单号为111的记录，像这种主单号都是唯一的记录我不需要统计重量和体积，要像你B表中空白的记录一下。还有就是在你的B表中，有3个主单号是333的记录，我看到两个333在一起，另外一个333的记录没跟那两个一起，我要3个333的记录都在一起，谢谢你
wwwwb 2011-10-11
  • 打赏
  • 举报
 回复
简单地说，如果记录超过2条，则要总数，否则不要，理解是否正确？
wwwwb 2011-10-11
  • 打赏
  • 举报
 回复
2011-10-11 111 AZZ 1 2 EEE
-------------------------------------
为什么没有总数？
为什么插入的记录没有主单号？
加载更多回复（12）
【一起学Rust | 进阶篇 | Grid库】二维表数据结构——Grid
本文详细介绍了Rust中的Grid库，它是一个高性能的二维数据结构。内容涵盖Grid的安装、初始化、基本操作如增删查改、迭代及高级功能如转置、填充等，适合Rust初学者和进阶者学习。
extjs4 grid 动态插入数据行
本文详细介绍了ExtJS4中Grid组件的使用方法，包括动态添加和删除行、编辑、新增、删除和保存功能。提供了多个实例链接，帮助读者深入理解Grid组件的操作。
Extjs5.1 Grid动态插入一行数据并置顶
本文介绍了使用ExtJS中Grid组件动态插入数据的方法，并提供了具体的代码实现，包括如何添加数据、刷新行号以及聚焦到指定行。
【LVGL-Flex布局和Grid布局】
本文介绍了LVGL的Flex布局和Grid布局。Flex布局可简便、响应式地实现页面布局，一次处理一维元素布局；Grid布局是二维布局。文中阐述了Flex布局的主轴、交叉轴、对齐、属性等内容，还介绍了Grid布局的添加、间隙及使用示例。
LVGL实验验证之lv_demo_widgets[grid布局探究][lv_grid_align_t][LV_GRID_FR][修改控件的位置][控件事件注册]
本文深入探讨了LVGL中的Grid布局技术，详细介绍了如何利用LV_GRID_CONTENT和LV_GRID_FR属性进行精确布局，并通过实例展示了控件位置调整及事件处理的方法。
VFP

2,749

社区成员

29,142

社区内容

发帖
与我相关
我的任务
社区描述
VFP，是Microsoft公司推出的数据库开发软件，用它来开发数据库，既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章