Visual FoxPro 的疑难杂症

tstan135

请问以下的 COMMAND 有没有 ERROR，不知为什么每次 RUN 时总是有 ERROR？  ＂DATE is not unique and must be qualified." 请问这是什么意识，应该如何做？

SELECT a.*, b.type, b.code, b.name, b.price FROM Order a LEFT OUTER JOIN Stuff b ON a.job_no = b.job_no WHERE date >= thisform.text1.Value AND date <= thisform.text2.Value INTO CURSOR temp

GoodMorning

tstan135 于 24-9-2004 10:44 PM  说 :
请问以下的 COMMAND 有没有 ERROR，不知为什么每次 RUN 时总是有 ERROR？  ＂DATE is not unique and must be qualified." 请问这是什么意识，应该如何做？

SELECT a.*, b.type, b.code, b.name, b.price ...

請注意你的檔案名稱!!!

ORDER 的檔案名試改為 odrtran

白日梦

补充，ORDER 在 SQL-Select 指令是 保留字，不能用。

tstan135

白日梦 于 24-9-2004 04:29 PM  说 :
也是用变数做总数。

如何让它显示在 REPORT 的最后一页

GoodMorning

tstan135 于 25-9-2004 04:46 PM  说 :

如何让它显示在 REPORT 的最后一页

report -> summary

tstan135

GoodMorning 于 26-9-2004 12:07 AM  说 :

report -> summary

这样它就不能显示在 RECORD 的后面，而只能显示在新的一页。

tstan135

tstan135 于 24-9-2004 10:44 PM  说 :
请问以下的 COMMAND 有没有 ERROR，不知为什么每次 RUN 时总是有 ERROR？  ＂DATE is not unique and must be qualified." 请问这是什么意识，应该如何做？
SELECT a.*, b.type, b.code, b.name, b.price ...

我知道原因了，因为两个 TABLE 里的 FILED 都有 DATE，只要把其中的 DATE 换名就不再有 ERROR 了。

tstan135

请问为什么这个 REPORT 用 DOT MATRIX 来打印会变成这样？


用 LASER PRINTER 来打印就没问题。


有什么方法可以解决？

白日梦

可能是 dot matrix printer driver 出问题， delete driver 后在 reinstall driver。

白日梦

tstan135 于 26-9-2004 09:03 AM  说 :
这样它就不能显示在 RECORD 的后面，而只能显示在新的一页。

是右边吧！
用不同的变数名，改 Calculation type 为 Sum。
nWeight = a.Weight
tWeight = a.Weight, Calculation type = Sum, Reset at [ End of Report ]

tstan135

白日梦 于 17-9-2004 10:06 AM  说 :
2. 之前的回帖给一个无理取闹网友修改了，编程 eom() 函数如下∶
? eom(Date())
Function eom( d1 )
Return ctod('01/'+str(month(d1)+1,2,0)+'/'+str(year(d ...

请问这个函数应该如何编写？

tstan135

白日梦 于 27-9-2004 05:00 PM  说 :
可能是 dot matrix printer driver 出问题， delete driver 后在 reinstall driver。

好想全部的 DOT MATRIX PRINTER 都一样。
我是这样设计的，不知有问题吗？

白日梦

tstan135 于 27-9-2004 05:56 PM  说 :
请问这个函数应该如何编写？

跟以下方法做。
1.
Create new program, put in this code,

1. 
   
2. Function EoM( d1 )
   
3. Return ctod('01/'+str(month(d1)+1,2,0)+'/'+str(year(d1),4,0))-1
   

复制代码

Save the program as UDF1.PRG  && User Define Function

2.
In your set main program, insert this line before read event;
SET PROCEDURE TO UDF1

3.
To use this function, at any program / database / form / report, just put like any function.
e.g. thisform.label1.value = 'Summary As At '+eom(date())

白日梦

tstan135 于 27-9-2004 06:09 PM  说 :
好想全部的 DOT MATRIX PRINTER 都一样。
我是这样设计的，不知有问题吗？

难怪会酱，你的column width酱窄的，在 file menu, page setup 里改。
column=1,width=8.00inch,left margin=0.00inch,...
Print Area=Printable Page,最好不要用 Whole page，除非是borderless/photo printer.

tstan135

白日梦 于 30-9-2004 09:51 AM  说 :

难怪会酱，你的column width酱窄的，在 file menu, page setup 里改。
column=1,width=8.00inch,left margin=0.00inch,...
Print Area=Printable Page,最好不要用 Whole page，除非是borderless/photo printer.

要是把 COLUMN 改成 1，那么它不是不会连续把 RECORD SHOW 出来，而是每一天的 RECORD 一页吗？
这份是每个月的报表，我想要的是 TITLE 在左边（每页只显示一次），在 TITLE 后是显示每一天的 RECORD （每一页可显示 6 天的 RECORD）。最后是显示整个月的 TOTAL。

enry98

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

你 可以 试试 CREATE CURSOR Temp ;
        (GroupID N(1), cTitle C(30),Date1 D(8),Date2 D(8) ..........Date1Value N(5,2)，Date1Value N(5,2)...............)

然后就 insert 你 所要的data 进去temp Cursor ，每隔 6 天 就增加 GroupID...........

白日梦

建议你把 column 的 width 弄宽过 display field / data 。
不然，你干脆用雷射印表机。

tstan135

请问这样的报表应该如何设计？

我想要的是这样：


但却显示成这样：（这样显示，TRANSACTION 已经错了。）


请问要如何设计才能显示成第一张报表？

tstan135

白日梦 于 2-10-2004 08:44 AM  说 :
建议你把 column 的 width 弄宽过 display field / data 。
不然，你干脆用雷射印表机。

把 column 的 width 弄宽过后就成这样, column 与 column 不能连接。

白日梦

没办法设计出第一张报表。

Stock Movement 我通常采用是直列

Date  Qty
----- ---
Item A
B/f    10
02/04  12   
08/04  10
12/04  -2
20/04 -10
22/04 -10
C/f    10

Item B
B/f     5
05/04  15
18/04 -10
20/04  -8
C/f     2

Stock Movement Summary 是总和加了放入 Item.dbf

Item B/f In  Out C/f
---- --- --- --- ---
A     10  22  22  10
B      5  15  18   2