| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 48 人关注过本帖
标题:如何用vfp sql语句直接实现下面功能
只看楼主 加入收藏
snowofdream
Rank: 2
等 级:论坛游民
威 望:1
帖 子:15
专家分:30
注 册:2018-4-10
收藏
 问题点数:0 回复次数:1 
如何用vfp sql语句直接实现下面功能
假设ls dbf表中的数据如下:

bmddm    sxkmdm   xkzh
020100   1          11
020100   1          12
020100   1          11
020100   5          51
020100   5          52

经过SQL语句处理后,ss dbf表中的数据将是:
bmddm   sxkmdm   xkzh    ksrs
020100   1       11,12    3
020100   5       51,52    2
VFP SQL语句如何实现
搜索更多相关主题的帖子: sql dbf vfp 语句 数据 
昨晚 21:24
easyppt
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:1
帖 子:304
专家分:701
注 册:2021-11-24
收藏
得分:0 
程序代码:
Create Cursor ls(bmddm c(6),sxkmdm i,xkzh i) 
Insert Into ls Values('020100',1,11) 
Insert Into ls Values('020100',1,12) 
Insert Into ls Values('020100',1,11) 
Insert Into ls Values('020100',5,51) 
Insert Into ls Values('020100',5,52) 
  
Select bmddm ,sxkmdm,Count(sxkmdm) As ksrs,fn1(bmddm,sxkmdm) As xkzh From ls Group By bmddm ,sxkmdm 
  
Proc fn1 
Lparameters tc1,tc2 
Local lcString 
lcString = '' 
Select Distinct xkzh From ls Where bmddm =tc1 And sxkmdm =tc2 Into Curs tmp1 
Sele tmp1 
Scan All 
    lcString = lcString + ','+Trans(xkzh) 
Endscan 
Return Subs(lcString,2) 
  
26 分钟前
快速回复:如何用vfp sql语句直接实现下面功能
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019921 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved