Visual FoxPro 的疑难杂症

白日梦

tstan135 于 25-6-2004 09:54 AM  说 :
1.请问 Text1.Default 是指哪里？

2.请问要如何让它寻找 RECORD 及显示出来？

3.请问要在 FORM 里的 Total 里使用 ROUND() FUNCTION 应该在写哪里？
[ Last edited by tstan135 on 25-6-2004 at 10:29 AM ...

1. .Value 里

2. 用 TextBox 显示， ControlSource = Inv1.Total，把这行 Thisform.txtTotal.Refresh 加入 Thisform.Grid1.Column4.Text1.Valid

3. 不必 Round()， .InputMask 和 .Format 这 Data Properties 本身已有这种功能。
   自己看 help， InputMask Property 的讲义。

tstan135

白日梦 于 25-6-2004 11:30 AM  说 :
3. 不必 Round()， .InputMask 和 .Format 这 Data Properties 本身已有这种功能。自己看 help， InputMask Property 的讲义。

看了找不到四舍五入的工能。
我的 Field Type 是 Currency。

[ Last edited by tstan135 on 27-6-2004 at 05:54 PM ]

tstan135

请问要如何写才能EXPORT 全部显示在 REPORT 里的 DATA 包括 Title, 自动计算的 Total Amount, 到 EXCEL 里，然后自动打开。我用EXPORT TO Sales xls 但不能。

白日梦

1 TxtCurrency.InputMask = '9,999,999,999.99'

2 VFP没有办法Export又Total的，用Excel来作。

tstan135

白日梦 于 28-6-2004 04:01 PM  说 :
1 TxtCurrency.InputMask = '9,999,999,999.99'
2 VFP没有办法Export又Total的，用Excel来作。

谢谢您的回复。
1。InputMask 之前已经试过就是不会四舍五入。不知是不是 Type 是 Currency 的关系。如果 Type 是 Numeric 的话就可以。

2。是不是 Report 的 Title 也没有办法 Export

白日梦

1。 不确定是不是，尽量试。

2。 是，Export 只能把 Database 的资料传送到 Excel 而已。其他的都由 Excel 去处理。

tstan135

请问要是 Invoice No 是要：04/001, 04/002, 04/003 (Auto Running No.)。
前面的 ‘04’是年份，后面的三位数是从001开始自动增加。
到了2005年时，Invoice No 会自动从 05/001开始。
到了2006年时，Invoice No 会自动从 06/001开始。。。。
请问这样应该如何写？

白日梦

InvNo 是 Character

cRunning = Str(Val(Right(InvNo,3))+1, 3, 0)
InvNo = PadL(year(date())-2000, 2, '0') + '/'+cRunning

tstan135

请问后面的三位数可否让它自动显示00，好象1就显示001，10就显示010等等。因为它好象不会自动显示00在1的前面。

白日梦

改一改
cRunning = PadL(Val(Right(InvNo,3))+1, 3, '0')

tstan135

白日梦 于 1-7-2004 10:13 AM  说 :
改一改
cRunning = PadL(Val(Right(InvNo,3))+1, 3, '0')

改了，只显示 04/1.0 ，04/2.0 。。。

白日梦

再改
cRunning = PadL(AllTrim(Str(Val(Right(InvNo,3))+1, 3, 0)), 3, '0')

GoodMorning

或是 cRunning = right(1000+val(right(invno,3))+1,3)

tstan135

谢谢

白日梦 于 1-7-2004 01:24 PM  说 :
再改
cRunning = PadL(AllTrim(Str(Val(Right(InvNo,3))+1, 3, 0)),
3, '0')

改了这个就可以了。

GoodMorning 于 1-7-2004 01:36 PM  说 :
或是 cRunning = right(1000+val(right(invno,3))+1,3)

这个 COMMAND 有 ERROR。

GoodMorning

cRunning = right(str(1000+val(right(invno,3))+1,4),3)

白日梦

GoodMorning: tstan135网友的问题是因为出自小数点弄到的。
str( value, len, 0)就4舍5入，省了小数点。

tstan135

在一个FORM里的GRID有个COLUMN是要从1自动增加(Auto Running No.)。当开了另一个新的FORM又从1开始计算，请问应该如何写？

白日梦

不要用AutoInc作资料栏，改为Integer。因为它是唯读（Read Only）所以不能控制它从1开始，
当Append Blank时电脑自动增加，没得改。

tstan135

白日梦 于 3-7-2004 09:26 AM  说 :
不要用AutoInc作资料栏，改为Integer。因为它是唯读（Read Only）所以不能控制它从1开始，
当Append Blank时电脑自动增加，没得改。

请问让它自动增加的COMMAND应该如何写？

tstan135

在REPORT里我需要计算每天每个CUSTOMER购买不同ITEMS的TOTAL QTY。假设在同一天里，CUSTOMER A 购买了两次，在 INVOICE NO。1 有 ITEM 1 ＝ 2 QTY， ITEM 2 ＝ 4 QTY； 在 INVOICE NO。2 有 ITEM 2 ＝ 3 QTY， ITEM 3 ＝ 5 QTY。
请问在REPORT里可不可以显示成：
DATE：xxxxxxxx
CUSTOMER：CUSTOMER A
ITEM 1 ＝ 2 QTY
ITEM 2 ＝ 7 QTY
ITEM 3 ＝ 5 QTY

DATE：xxxxxxxxx
CUSTOMER：CUSTOMER B
ITEM X：xxxxxxxx

如果可以应该怎样做？