| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 276 人关注过本帖
标题:多表按基础表循环处理的问题
只看楼主 加入收藏
lnsyzhuhua
Rank: 1
等 级:新手上路
帖 子:52
专家分:0
注 册:2017-8-16
结帖率:80%
  已结贴   问题点数:13  回复次数:2   
多表按基础表循环处理的问题
附件: 您没有浏览附件的权限,请 登录注册
搜索更多相关主题的帖子: 多表 基础 循环 处理 
2019-08-08 15:53
schtg
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:36
帖 子:839
专家分:1158
注 册:2012-2-29
  得分:0 
一般思路:从基础表中获取一个字段名 → 在data下的表中查找[FSIZE("字段名")]该字段是否存在 → 若有则删除(ALTER TABLE 表名 DROP COLUMN 字段名)。
2019-08-08 19:06
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:203
帖 子:7910
专家分:19685
注 册:2012-2-5
  得分:13 
程序代码:
CLOSE DATABASES 
LOCAL aName[16]
aName[ 1] = "ALLOFLAG"
aName[ 2] = "FEE"
aName[ 3] = "PROVINCE"
aName[ 4] = "CITY"
aName[ 5] = "COUNTY"
aName[ 6] = "STATION"
aName[ 7] = "SECT"
aName[ 8] = "SEQ_ID"
aName[ 9] = "SERIALNO"
aName[10] = "FK"
aName[11] = "客户ID"
aName[12] = "收件人电话"
aName[13] = "银行账号"
aName[14] = "对账单编号"
aName[15] = "分行名称"
aName[16] = "收件人手机"
cPath = "data\"
FOR i = 1 TO ADIR(aFileName, cPath + "*.dbf")
    USE (cPath + aFileName[i, 1])
    FOR ii = 1 TO AFIELDS(aZdm)
        IF ASCAN(aName, aZdm[ii, 1]) > 0
            ALTER TABLE (cPath + aFileName[i, 1]) DROP COLUMN (aZdm[ii, 1])
        ENDIF 
    ENDFOR 
    USE
ENDFOR 

坚守VFP最后的阵地
2019-08-08 19:26
快速回复:多表按基础表循环处理的问题
数据加载中...
 
   



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

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