在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表不要打乱这个顺序，只是在不同的主单号间插入空白记录（行），相同的主单号不要插。
分不多，谢谢各位。
...全文
425 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）
螺旋千斤顶作业任务书（此份不含图纸）.rar
螺旋千斤顶作业任务书（此份不含图纸）.rar
KSHZ.rar
CAD缺少相关字体时，图纸中的文字会出现缺失或乱码。下载所需字体并复制到 AutoCAD 的 Fonts 文件夹后，即可正常显示。
等保主机安全基线合规配置指导windows系统.pdf
代码下载地址： https://pan.quark.cn/s/3f3d88060e9a 一、身份验证措施组1.1 密码措施1.2 账户措施1.3 自动登录验证二、访问权限控制组2.1 账户验证2.2 资源共享验证三、安全审计措施组验证3.1 安全审计措施四、遗留信息保护措施组验证4.1 关机验证4.2 登录验证五、入侵防御验证5.1 Windows系统防火墙5.2 自动系统更新5.3 非必要服务管理5.4 防止暴力密码破解5.5 永恒之蓝漏洞验证六、恶意软件防护6.1 防范恶意软件
阶梯碳下考虑 P2G-CCS 与供需灵活响应的 IES 优化调度(Matlab代码实现）
内容概要：本文围绕“阶梯碳下考虑P2G-CCS与供需灵活响应的IES优化调度”展开，基于Matlab平台构建综合能源系统（IES）在阶梯式碳交易机制下的优化调度模型。研究深度融合电制气（P2G）与碳捕集、利用与封存（CCS）技术，结合需求侧灵活响应机制，旨在提升系统的低碳运行能力与经济性。通过建立多能流耦合的优化模型，协调电力、天然气、热力等多种能源形式的协同调度，有效降低系统碳排放强度，并借助YALIMIP工具包调用求解器进行高效求解。文档提供了完整的代码实现、模型构建流程与结果分析方法，涵盖从问题建模到仿真实现的全过程，具备较强的可复现性与科研参考价值。; 适合人群：具备电力系统、能源系统或优化建模相关背景的研究生、高校教师及工程技术人员，尤其适合从事综合能源系统、碳减排策略、P2G与CCS技术集成研究的专业人员，需熟练掌握Matlab编程与基本的数学规划知识。; 使用场景及目标：①用于研究阶梯式碳交易政策下综合能源系统的低碳经济调度策略；②支撑P2G-CCS技术与需求响应机制在IES中的仿真集成与性能评估；③作为撰写高水平学术论文（如EI/SCI收录）的技术基础与复现资源，推动碳中和背景下能源系统优化方向的创新研究。; 阅读建议：建议结合百度网盘提供的完整代码与资料包，按照模块逐步调试程序，重点理解目标函数的设计逻辑、碳交易成本的建模方式、约束条件的数学表达及求解器的配置方法，同时关注多能耦合设备的建模细节，配合公众号“荔枝科研社”获取持续的技术支持与案例拓展。
故障识别基于CNN-SVM卷积神经网络结合支持向量机的数据分类预测研究（Matlab代码实现）
内容概要：本文系统研究了基于卷积神经网络（CNN）与支持向量机（SVM）融合的CNN-SVM混合模型在数据分类预测中的应用，尤其聚焦于工业故障识别领域。通过Matlab平台实现，该方法首先利用CNN强大的多层次特征提取能力对原始输入数据进行深度特征学习，自动捕获关键局部模式与空间结构信息，随后将提取的高层特征作为输入传递至SVM分类器，借助SVM在高维空间中小样本条件下卓越的分类性能与泛化能力完成最终判别任务。文中详尽阐述了模型的整体架构设计、网络参数配置、训练优化流程及特征迁移机制，充分结合了深度学习在特征表达上的优势与传统机器学习在分类决策上的稳健性。实验部分通过实际故障数据集验证了该混合模型相较于单一CNN或SVM模型在分类准确率、鲁棒性和抗过拟合能力方面的显著提升，证明了其在复杂故障诊断任务中的有效性与先进性； 适合人群：具备一定机器学习与深度学习理论基础，熟悉Matlab编程环境，从事故障诊断、模式识别、智能制造、电力系统监控或工业数据分析等相关领域的研究生、科研人员及工程技术开发者； 使用场景及目标：① 应用于旋转机械、电力设备、航空航天等领域的多类别故障识别与状态监测；② 掌握深度特征提取与传统分类器融合的技术路径，提升小样本、高噪声环境下数据分类的精度与可靠性；③ 为撰写高水平学术论文、开展科研项目或工程实践提供可复现的算法框架与完整代码支持； 阅读建议：读者应深入理解CNN与SVM的协同工作机制，重点分析特征提取层与分类层之间的接口设计，建议动手运行并调试所提供的Matlab代码，尝试在不同数据集上进行迁移实验与参数调优，以全面掌握该混合模型的应用技巧与优化策略。
VFP

2,749

社区成员

29,142

社区内容

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

加载中

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

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

+ 用AI写文章