[问]fox pro ＰＲＯＧＲＡＭ问题

samm4u

怎样告诉FOＸＰＲＯ　两个ＴＡＢＬＥ的ＦＩＥＬＤ是一样的（名字不一样）
例
ＴＡＢＬＥ　Ａ　ＦＩＥＬＤ
ＣＴ＿ＣＵＳ，　ＰＡＲＴ，ct_mod，

ＴＡＢＬＥ　Ｂ　ＦＩＥＬＤ
ＣＵＳＴ，ＰＡＲＴ，model

ｐｒｏｇｒａｍ

ＵＳＥ　ＴＡＢＬＥ　Ａ
ＡＰＰＥＮＤ　ＦＲＯＭ　ＴＡＢＬＥ　Ｂ

问题
怎样告诉FOＸＰＲＯ
table a ct_cus =table b cust
table a ct_mod =table b model
(foxpro 2.6a)

[ Last edited by samm4u on 29-6-2005 at 11:40 AM ]

flashang

USE tablea IN SELECT(1) AGAIN
USE tableb IN SELECT(1) AGAIN

SELECT tableA
SCAN
        SCATTER TO arrData
        SELECT tableb
        APPEND FROM ARRAY arrData
ENDSCAN

SELECT tableA
BROWSE
USE

SELECT tableB
BROWSE
USE

samm4u

谢谢 解决了

加问:
如果不同 STRUCTURE 呢?
例:
ＴＡＢＬＥ　Ａ　ＦＩＥＬＤ
ＣＴ＿ＣＵＳ，　ＰＡＲＴ，ct_mod，

ＴＡＢＬＥ　Ｂ　ＦＩＥＬＤ
CUST ID,ＣＵＳＴ，ADDRESS,ＰＡＲＴ，model,QTY

samm4u

还有
要怎样告诉FOXPRO 找出两笔一样的DATA呢
例:
database
     cust      |part      |model
1    abc       |123       |123
2    cde       |345       |345
3    efg       |135       |135
4    abc       |123       |123

  怎样 找出 1 和 4 是一样的

[ Last edited by samm4u on 30-6-2005 at 11:23 AM ]

flashang

samm4u 于 30-6-2005 10:41 AM  说 :
谢谢 解决了

加问:
如果不同 STRUCTURE 呢?
例:
ＴＡＢＬＥ　Ａ　ＦＩＥＬＤ
ＣＴ＿ＣＵＳ，　ＰＡＲＴ，ct_mod，

ＴＡＢＬＥ　Ｂ　ＦＩＥＬＤ
CUST ID,ＣＵＳＴ，ADDRESS,ＰＡＲＴ，model,QTY

SCATTER TO arrData FIELDS CT_CUS, PART

APPEND FROM ARRAY arrData FIELDS cust, part

flashang

samm4u 于 30-6-2005 11:21 AM  说 :
还有
要怎样告诉FOXPRO 找出两笔一样的DATA呢
例:
database
     cust      |part      |model
1    abc       |123       |123
2    cde       |345       |345
3    efg       |135       |135
4    ab ...

SELECT CUST, COUNT(CUST) FROM TABLEC GROUP BY CUST

ABC    2
CDE    1
EFG    1

samm4u

要怎样APPEND　ＦＯＸＰＲＯ　ＤＡＴＡ TO　ＥＸＣＥＬ　呢
例:
TEMPSTK.DBF

ＤＡＴＥ　　　　　　｜　ＳＴＫ＿ＩＮ　　｜ＳＴＫ＿ＯＵＴ　　｜　
０４／０７／２００５｜　５０００　　　　｜　
   ""               |                   | 50000

EXCEL

FILE  :STK.XLS
SHEET : STK

DATE       |   STK_IN   |   STK_OUT  |
02/07/2005 |   282      |            |
03/07/2005 |            |  2500      |

怎样APPEND FROM TEMPSTK.DBF TO STK.XLS

[ Last edited by samm4u on 4-7-2005 at 04:11 PM ]

flashang

好像没有直接的方法。。。如果不用 active x 的话，我想

import from xls

然后再

export to xls

samm4u

ohh 顺便问一下
   什么是active x

白日梦

VFP9 的指令 TABLE1.DBF -> TABLE1.XLS

USE TABLE1
EXPORT TO TABLE1 TYPE XLS ALL

samm4u

例:
PART．ＤＢＦ　ＦＩＥＬＤ
ＰＡＲＴNO ,MODEL

STK.DBF FIELD
PART,STK　ＯＵＴ，ＳＴＫ＿ＩＮ

ＣＯＤＥ：：：：

SELECT DISTINCT ＳＴＫ．ＰＡＲＴ，ＳＴＫ．ＭＯＤＥＬ，ＳＴＫ．ＩＮ，ＳＴＫ．ＯＵＴ；
  FROM STK, PART;
  WHERE PAＲＴ．ＰＡＲＴ = STK．ＰＡＲＴ;
  INTO TABLE TEMPSTK.DBF

如果要加一个ＦＩＥＬＤ在ＳＴＫ＿ＩＮ前ＮＡＭＥ　
ＴＯＴＡＬ＿ＳＴＫ
和TOTAL_STK 的VALUE

ＴＯＴＡL_STK = STK_IN - STK_OUT

本来这样
PART|MODEL|STK_IN|STK_OUT|
ABC |abc  | 2500 |2000   |

变成这样
PART|MODEL|TOTAL|STK_IN|STK_OUT|
ABC |abc  | 500 | 2500 |2000   |

samm4u

例：
STK.DBF FIELD
PART　｜STK　ＯＵＴ｜ＳＴＫ＿ＩＮ
ＡＢＣ｜　　　　　　｜２５００
ＢＣＤ｜１２００　　｜１５００
ＣＥＤ｜　　　　　　｜２５０
要怎样找　到　ＡＢＣ
和　ＲＥＰＬＡＣＥ　ＳＴＫ＿ＯＵＴ：　２０００　呢？


这样
PART　｜STK　ＯＵＴ｜ＳＴＫ＿ＩＮ
ＡＢＣ｜２０００　　｜２５００
ＢＣＤ｜１２００　　｜１５００
ＣＥＤ｜　　　　　　｜２５０
　

[ Last edited by samm4u on 5-7-2005 at 04:49 PM ]

flashang

samm4u 于 5-7-2005 04:27 PM  说 :
例:
PART．ＤＢＦ　ＦＩＥＬＤ
ＰＡＲＴNO ,MODEL

STK.DBF FIELD
PART,STK　ＯＵＴ，ＳＴＫ＿ＩＮ

ＣＯＤＥ：：：：

SELECT DISTINCT ＳＴＫ．ＰＡＲＴ，ＳＴＫ．ＭＯＤＥＬ，ＳＴＫ．ＩＮ，ＳＴＫ． ...

SELECT DISTINCT stk.part, stk.model, stk_in - stk_out as total, stk.stk_in,
stk.stk_out FROM stk, part WHERE part.partno = stk.part

flashang

samm4u 于 5-7-2005 04:47 PM  说 :
例：
STK.DBF FIELD
PART　｜STK　ＯＵＴ｜ＳＴＫ＿ＩＮ
ＡＢＣ｜　　　　　　｜２５００
ＢＣＤ｜１２００　　｜１５００
ＣＥＤ｜　　　　　　｜２５０
要怎样找　到　ＡＢＣ
和　ＲＥＰＬＡＣＥ　ＳＴＫ ...

UPDATE stk set stk_out = 2000 WHERE part='abc'


你可以安装一些 sql tools 来看看如何使用 sql

samm4u

安装 sql tools 有些什么条件
最低硬体要求?
OS?
那一个SQL PROGRAM 免费又好用?

samm4u

select 0
use tempitn

select 0
use itn

scan
select 1
     scatter to arrData fields ITN_REFNO,TRAVEL_NO,PART_NO,MODEL
     select 2
     update on serial from itn_refno
      replace int with TRAVEL_NO
      replace part with PART_NO
      replace model with model
      replace pun_date with post_date

endscan

我想要找到INT 的serial =itn_refno

然后而UPDATE int with TRAVEL_NO
             part with PART_NO
             model with model
(有很多FIELD 只是想UPDATE 这三笔)

flashang

samm4u 于 6-7-2005 07:52 AM  说 :
安装 sql tools 有些什么条件
最低硬体要求?
OS?
那一个SQL PROGRAM 免费又好用?

microsoft access, visual foxpro, phpmyadmin

flashang

可以考虑 select 你想要的资料去 tmp cursor,
然后从 tmp cursor 去 update

flashang

samm4u 于 6-7-2005 05:19 PM  说 :
select 0
use tempitn

select 0
use itn

scan
select 1
     scatter to arrData fields ITN_REFNO,TRAVEL_NO,PART_NO,MODEL
     select 2
     update on serial from itn_refno
      replace  ...

我个人觉得用 select 1, select 2 不太好，
可以考虑使用 select itn, select tempitn，比较好读。

samm4u

use tempitn
use itn

scan
select
     scatter to arrData fields ITN_REFNO,TRAVEL_NO,PART_NO,MODEL
     select 2
     locate serial = itn_refno
        if found()
         replace int with TRAVEL_NO
         replace part with PART_NO
         replace model with model
         replace pun_date with post_date
        endif
endscan

为什么不能REPLACE?