Visual FoxPro 的疑难杂症

tstan135

5.假设 *.DBF 里有 1 月 至 9 月的记录，我现在要找出之前好像 3 月的 B/F, IN, OUT, C/F 可以吗？
进 Stock In/Out Form 时有个小 Form 需要输入 年月份，之后 filter 所选的月份。

1.在 Item 里的 BQ, BA 已经是现在的 FIGURE 了。所以如何得到所输入年月份的 B/F？

6.请问 FORM 可不可以做成 EXE FILE？
可以，加入这行指令 Read Events 在 Thisform.Init 及 Clear Events 在 Thisform.Release。

2.加了指令在 FORM 里后，它只出先一个框框，并没有显示我的 FORM，而且不能够 QUIT。

[ Last edited by tstan135 on 6-10-2004 at 02:51 PM ]

白日梦

1. BQ & BA 是 Year-To-Date figure. Report 是另外运算出来。

2. 试了不能够 quit，我也没办法。

tstan135

1. BQ & BA 是 Year-To-Date figure. Report 是另外运算出来。

1.请问要在 REPORT 里运算我所输入年月份的 RECORD， COMMAND 应该怎样写及如何让它显示在 REPORT 里？

2.在 FORMSET 里，要如何在它再次 SHOW 时不让 COMBO 显示之前所选择的 DATA？

3.请问在按击 FORM 右上角的 X 后 ，要如何做才能让它出现一个 MESSAGE BOX?

[ Last edited by tstan135 on 7-10-2004 at 12:56 PM ]

白日梦

1. Report 的 Variable， nQty = Iif(dtos(Date) < cYearMonth, nQty, 0), Calculation = Sum

2. .Show 里 reset Thisform.Combo1.Value, .ControlSource 放了就改不了。

3. .Release events 编，Message box 函数是 MessageBox()，syntax 去 VFP 按 F1 找来学

tstan135

2. .Show 里 reset Thisform.Combo1.Value, .ControlSource 放了就改不了。

在 SHOW 里加了这句 reset Thisform.Combo1.Value 就有 ERROR：Command contains unrecognized phrase/keyword.

3. .Release events 编，Message box 函数是 MessageBox()，syntax 去 VFP 按 F1 找来学

在 Release 编写了，但完全没有作用。一按 X 就马上 EXIT。

白日梦

- 放进 Form1.show 看，不是在 Formset.Show

- 用 CommandButton 关闭窗口，用 .ControlBox = .F. disable X 离开。

tstan135

有两个旧的 TABLE （从前他人写的 PROGRAM 里的 DATABASE），一个记录 STOCK IN， FIELD－RECORDKEY， DATE， PO，SUPPLER，ITEM，QTY。另一个记录 STOCK OUT， FIELD－RECORDKEY， DATE， ITEM，QTY 。请问要如何才能在 REPORT 里算出它的 B/F, STOCK IN, STOCK OUT, C/F, ITEM TOTAL。它的 COMMNAD 应该怎样写？

白日梦

算总数的，

1. 
   
2. cYM = Str(nY,4,0)+Str(cM,2,0)
   
3. Use Item Order Item
   
4. * 成 0 除了 Stock Balance = Bal
   
5. Replace All Bf With 0, S_In With 0, S_Out With 0, Cf With 0
   
6. Select 0
   
7. Use St_In Order Item
   
8. Scan
   
9. Seek St_In.Item In Item
   
10. If Dtos(Date) < cYM
    
11.   Replace Bf With Bf + St_In.Qty, Cf With Cf + St_In.Qty In Item
    
12. Endif
    
13. If Dtos(Date) = cYM
    
14.   Replace In With In + St_In.Qty, Cf With Cf + St_In.Qty In Item
    
15. Endif
    
16. Endscan
    
17. Use St_Out Order Item
    
18. Scan
    
19. Seek St_Out.Item In Item
    
20. If Dtos(Date) < cYM
    
21.   Replace Bf With Bf + St_Out.Qty, Cf With Cf + St_Out.Qty In Item
    
22. Endif
    
23. If Dtos(Date) = cYM
    
24.   Replace Out With Out + St_Out.Qty, Cf With Cf + St_Out.Qty In Item
    
25. Endif
    
26. Endscan
    
27. Select Item
    
28. Report Form StSum To Printer Prompt Preview for Bf#0 And In#0 And Out#0 And Cf#0
    

复制代码

* 先注明以上编码还没除错，出错你自己除。我不可能帮你除错因为我没有那些档案。

weisely

tstan135 于 5-10-2004 09:27 AM  说 :

不错我展示的图是用 EXECL 做的，但确实有人可以用 PROGRAM 打印成以下的报表。

我想知道要如何在 ITEM A 和 DATE 的 ...

其实这报表不是很困难做到,再怪的报表我也做过了 我通常会create 一个 temporary cursor, 然后把所要显示的资料丢进这个 cursor , 比如

typen n(1,0),indate d,inqty n(8,0),outdate,outqty n(8,0)

秘密就在 'typen' 这个column里

当你把incoming 的资料丢进来时, 你就把typen 设为 1, 当你把outgoing 的资料丢进来时, 你就把typen 设为 2

然后, 在报表的field 的properties 里, 不是有一个 "print when" 吗 ? 那是超好用的,

希望你能领悟到我在说什么, 我就是用这个方式, 很多看起来没法做到的报表格式我都做到了

tstan135

谢谢白日梦，又学会新的一课。

Bf#0 And In#0 And Out#0 And Cf#0

1.请问这是做什么用的？

2.在一次请教，要如何才能把以上那两个 TABLE JOIN 在一起然后显示在 TRANSACTION DETAIL 的 REPORT 里？请问 COMMAND 应该如何写？

3.在 FORM 里用了 USE COMMAND。例如：Use Item Order Item
当 FORM 重新执行时就有 ERROR ：File is in use。
请问要如何解决？ 是不是用 CLOSE DATABASE？

[ Last edited by tstan135 on 9-10-2004 at 11:48 PM ]

tstan135

enry98 于 1-10-2004 02:34 PM  说 :
我通常 都会 create 一个 temp cursor,然后把所需要的资料照 要求 排列，过滤等等 抄进去 .......来解决比较 复杂点的 报表问题...........

你 可以 试试 CREATE CURSOR Temp ;
        (GroupID N(1), cTitl ...

1.请问如何 create 一个 temporary cursor？
可不可以请您写出一个完整的 COMMAND？

2.以你的方法（用 PRINT WHEN）在计算 SUM 时，会不会连没有显示的 RECORD 也计算在内？

白日梦

tstan135 于 9-10-2004 07:41 PM  说 :
1.请问这是做什么用的？

用法像 filter，减少指令 = 优化程序

tstan135 于 9-10-2004 07:41 PM  说 :
2.在一次请教，要如何才能把以上那两个 TABLE JOIN 在一起然后显示在 TRANSACTION DETAIL 的 REPORT 里？请问 COMMAND 应该如何写？

create 另一个 Table 或用 Array

tstan135 于 9-10-2004 07:41 PM  说 :
3.在 FORM 里用了 USE COMMAND。例如：Use Item Order Item
当 FORM 重新执行时就有 ERROR ：File is in use。
请问要如何解决？ 是不是用 CLOSE DATABASE？？

是，或换成 Select Item


[ Last edited by 白日梦 on 11-10-2004 at 11:56 AM ]

tstan135

create 另一个 Table 或用 Array

请问 ARRAY 的 CODE 是怎样写的？您可不可以举个例子？

是，或换成 Select Item

要是换成 Select Item，就有 ERROR：Alias 'ITEM' is no found.
请问要如何解决？

白日梦

参考 copy to array
----------------------
用回
close databases
use ...
close 了是不能用 select

enry98

tstan135 于 9-10-2004 19:54  说 :

1.请问如何 create 一个 temporary cursor？
可不可以请您写出一个完整的 COMMAND？

2.以你的方法（用 PRINT WHEN）在计算 SUM 时，会不会连没有显示的 RECORD 也计算在内？

1. http://msdn.microsoft.com/librar ... _SQL.asp?frame=true

多使用 MSDN , 这是 online 版 ， 以上是VFP 8 的 command ........


2. 这个你 要自己 试下........因该不会复杂........

[ Last edited by enry98 on 12-10-2004 at 12:01 PM ]

tstan135

请问要把一个 TABLE 里的 DATA COPY 到另一个 TABLE 但是 FIELD NAME 不一样 CODE 应该怎样做？

白日梦

replace all field1 with table1.field1,... in table2

或

select table1
scan for ...
select table2
replace field1 with table1.field1
select table1
endscan

tstan135

请问要把一个 TABLE 里的 DATA COPY 到另一个 TABLE 里。 但是在另一个 TABLE 里要它 SHOW IN ASCENDING BY INDEX 应该怎样写？我是这样写的：

SELECT TABLE1
APPEND FROM TABLE2

请问还须加什么？

tstan135

在一个 ONE TO MANY 的 REPORT 里，PARENT 的 TABLE 可以 SHOW IN ASCENDING，但要如何也能让 CHILD  的 TABLE 也可以在 REPORT 里 SHOW IN ASCENDING?

白日梦

楼上和楼上上的答案全部用 index 来解决。
不管你是 table1, table2, parent, 或 child 都要。
只是 index 有可能是复数如 index on Ref + Item + Dtos(Date) tag t1