|
发表于 25-6-2004 11:30 AM
|
显示全部楼层
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 的讲义。 |
|
|
|
|
|
|
|
发表于 25-6-2004 12:21 PM
|
显示全部楼层
白日梦 于 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 ] |
|
|
|
|
|
|
|
发表于 28-6-2004 02:32 PM
|
显示全部楼层
请问要如何写才能EXPORT 全部显示在 REPORT 里的 DATA 包括 Title, 自动计算的 Total Amount, 到 EXCEL 里,然后自动打开。我用EXPORT TO Sales xls 但不能。 |
|
|
|
|
|
|
|
发表于 28-6-2004 04:01 PM
|
显示全部楼层
1 TxtCurrency.InputMask = '9,999,999,999.99'
2 VFP没有办法Export又Total的,用Excel来作。 |
|
|
|
|
|
|
|
发表于 28-6-2004 05:41 PM
|
显示全部楼层
白日梦 于 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 |
|
|
|
|
|
|
|
发表于 29-6-2004 10:09 AM
|
显示全部楼层
1。 不确定是不是,尽量试。
2。 是,Export 只能把 Database 的资料传送到 Excel 而已。其他的都由 Excel 去处理。 |
|
|
|
|
|
|
|
发表于 30-6-2004 01:59 PM
|
显示全部楼层
请问要是 Invoice No 是要:04/001, 04/002, 04/003 (Auto Running No.)。
前面的 ‘04’是年份,后面的三位数是从001开始自动增加。
到了2005年时,Invoice No 会自动从 05/001开始。
到了2006年时,Invoice No 会自动从 06/001开始。。。。
请问这样应该如何写? |
|
|
|
|
|
|
|
发表于 30-6-2004 04:11 PM
|
显示全部楼层
InvNo 是 Character
cRunning = Str(Val(Right(InvNo,3))+1, 3, 0)
InvNo = PadL(year(date())-2000, 2, '0') + '/'+cRunning |
|
|
|
|
|
|
|
发表于 30-6-2004 04:57 PM
|
显示全部楼层
请问后面的三位数可否让它自动显示00,好象1就显示001,10就显示010等等。因为它好象不会自动显示00在1的前面。 |
|
|
|
|
|
|
|
发表于 1-7-2004 10:13 AM
|
显示全部楼层
改一改
cRunning = PadL(Val(Right(InvNo,3))+1, 3, '0') |
|
|
|
|
|
|
|
发表于 1-7-2004 12:20 PM
|
显示全部楼层
白日梦 于 1-7-2004 10:13 AM 说 :
改一改
cRunning = PadL(Val(Right(InvNo,3))+1, 3, '0')
改了,只显示 04/1.0 ,04/2.0 。。。 |
|
|
|
|
|
|
|
发表于 1-7-2004 01:24 PM
|
显示全部楼层
再改
cRunning = PadL(AllTrim(Str(Val(Right(InvNo,3))+1, 3, 0)), 3, '0') |
|
|
|
|
|
|
|
发表于 1-7-2004 01:36 PM
|
显示全部楼层
或是 cRunning = right(1000+val(right(invno,3))+1,3) |
|
|
|
|
|
|
|
发表于 1-7-2004 02:12 PM
|
显示全部楼层
谢谢
白日梦 于 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。 |
|
|
|
|
|
|
|
发表于 1-7-2004 10:46 PM
|
显示全部楼层
cRunning = right(str(1000+val(right(invno,3))+1,4),3) |
|
|
|
|
|
|
|
发表于 2-7-2004 09:18 AM
|
显示全部楼层
GoodMorning: tstan135网友的问题是因为出自小数点弄到的。
str( value, len, 0)就4舍5入,省了小数点。 |
|
|
|
|
|
|
|
发表于 2-7-2004 10:55 AM
|
显示全部楼层
在一个FORM里的GRID有个COLUMN是要从1自动增加(Auto Running No.)。当开了另一个新的FORM又从1开始计算,请问应该如何写? |
|
|
|
|
|
|
|
发表于 3-7-2004 09:26 AM
|
显示全部楼层
不要用AutoInc作资料栏,改为Integer。因为它是唯读(Read Only)所以不能控制它从1开始,
当Append Blank时电脑自动增加,没得改。 |
|
|
|
|
|
|
|
发表于 3-7-2004 09:52 AM
|
显示全部楼层
白日梦 于 3-7-2004 09:26 AM 说 :
不要用AutoInc作资料栏,改为Integer。因为它是唯读(Read Only)所以不能控制它从1开始,
当Append Blank时电脑自动增加,没得改。
请问让它自动增加的COMMAND应该如何写? |
|
|
|
|
|
|
|
发表于 5-7-2004 10:17 AM
|
显示全部楼层
在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
如果可以应该怎样做? |
|
|
|
|
|
|
| |
本周最热论坛帖子
|