Visual FoxPro 的疑难杂症

tstan135

为什么当我在 Form 的 Activate 或 Int 里用 sum command ，Form 就会显示是这样？请问要如何解决？

tstan135

请问如何让数目字显示当 1000 用逗号分隔在一个标签上？

[ Last edited by tstan135 on 23-8-2004 at 03:08 PM ]

tstan135

白日梦 于 19-8-2004 02:53 PM  说 :
你碰到 eof，reccount() 只有 7，你用 go 指令 不能去 eof() 的记录。

请问应该用什么指令？

白日梦

nRec = RecNo()
:
:
防止走出 eof 就要这样做，
If nRec > RecCount()
Go Bottom
Else
Go nRec
EndIf
- 或 -
If Eof()
Go Bottom
Else
Go nRec
EndIf

白日梦

tstan135 于 22-8-2004 11:50 PM  说 :
请问如何让数目字显示当 1000 用逗号分隔在一个标签上？
[ Last edited by tstan135 on 23-8-2004 at 03:08 PM ]

别用标签(Label)，改用文字框(TextBox)，
改文字框的属性Properties，
Text1.Value = 1000
Text1.Picture = '99,999'
Text1.Enabled = .F.  && 不作输入。

白日梦

tstan135 于 22-8-2004 04:52 PM  说 :
为什么当我在 Form 的 Activate 或 Int 里用 sum command ，Form 就会显示是这样？请问要如何解决？

加多一行 set talk off，
on 时 sum 指令会移动表格里的物件。

白日梦

tstan135 于 22-8-2004 01:33 AM  说 :
如何才能让 GRID 固定在同一行 Setfocus？
在一个 GRID 里，当我要修改 Column 的 RECORD 时，它会现另一个 FORM 让我修改。EXIT 之后它会返回之前修改的 Column 和在那行 Column 里 Setfocus。
但当我在 FORM  ...

在执行 sum 指令前先记录资料号码，执行后才重回之前记录的资料号码。sum 指令会移动资料号码。
nRec = RecNo()
sum ... to ...
Go nRec
Thisform.Grid1.SetFocus

tstan135

白日梦 于 24-8-2004 10:28 AM  说 :

在执行 sum 指令前先记录资料号码，执行后才重回之前记录的资料号码。sum 指令会移动资料号码。
nRec = RecNo()
sum ... to ...
Go nRec
Thisform.Grid1.SetFocus

试过了。但因为出现让我修改的 Form 里也用到 SUM command，所以当我按 OK 返回时就有 Error。"Record is out of rang"。请问要如和解决？

另一个问题，要是用以上的 Command 在空的 Database 里也会有问题。同样显示 "Record is out of range"。这个又要如和解决？

[ Last edited by tstan135 on 24-8-2004 at 04:45 PM ]

白日梦

tstan135 于 24-8-2004 02:43 PM  说 :

试过了。但因为出现让我修改的 Form 里也用到 SUM command，所以当我按 OK 返回时就有 Error。"Record is out of rang"。请问要如和解决？

另一个问题，要是用以上的 Command 在空的 Database 里也 ...

当 nRec = RecNo() 记录时纪录已在 End Of File (eof)，
所以在执行 Go nRec 时会出现错误讯息 Record is out of range，
方法楼上已讲过了，请你翻看。

tstan135

白日梦 于 25-8-2004 08:49 AM  说 :
当 nRec = RecNo() 记录时纪录已在 End Of File (eof)，
所以在执行 Go nRec 时会出现错误讯息 Record is out of range，
方法楼上已讲过了，请你翻看。

以楼上的方法，每当我从 FORM2 返回后， setfocus 的那行总是在最后一行，不管我是修改那一行的 record。但我试过把 sum command 从 form2 删除后，就可返回之前修改的那一行。

tstan135

请问＂如果当前显示的 GRID 是空的＂，这句 command 应该怎样写？因为有时 setfilter 后没有 record？

tstan135

当我用 USE COMMAND 时，FORM 里的 GRID 就会变成一片白，请问要如何才能让它不变成一片空白？

tstan135

白日梦 于 14-8-2004 10:14 AM  说 :
2. 可以，
现创造新的菜单 menu1，
用 menu 菜单 generate...，
创造新的表格 form1，
在 form1.init 编码放入以下，
DO MENU1.MPR WITH THIS,.T.

请问＇用 menu 菜单 generate...，＇这句是什么意思？

白日梦

tstan135 于 25-8-2004 12:24 PM  说 :
请问＂如果当前显示的 GRID 是空的＂，这句 command 应该怎样写？因为有时 setfilter 后没有 record？

set filter to <condition>
go top
if eof()
MessageBox("Nothing to display",0,"Alert!")
endif

[ Last edited by 白日梦 on 26-8-2004 at 10:53 AM ]

白日梦

tstan135 于 26-8-2004 02:40 AM  说 :
当我用 USE COMMAND 时，FORM 里的 GRID 就会变成一片白，请问要如何才能让它不变成一片空白？

你得告诉 Grid.RecordSource 要显示什么 workarea 的资料呀！

白日梦

tstan135 于 26-8-2004 09:09 AM  说 :
请问＇用 menu 菜单 generate...，＇这句是什么意思？

我晕 @@@ 酱简单的都不懂
during you Create the menu,
click on Menu menu,
then Generate option,
type Menu1.mpr then click OK.

tstan135

白日梦 于 26-8-2004 10:51 AM  说 :
你得告诉 Grid.RecordSource 要显示什么 workarea 的资料呀！

这是当我做 MOVE 时用的。因为当时我没有在 FORM1 的 DATA ENVIRONMENT 里加上要 MOVE 到的表，所以要用 USE。现在加了进去就不必用到 USE 了。

白日梦

tstan135 于 26-8-2004 02:28 PM  说 :
这是当我做 MOVE 时用的。因为当时我没有在 FORM1 的 DATA ENVIRONMENT 里加上要 MOVE 到的表，所以要用 USE。现在加了进去就不必用到 USE 了。

放了较好，比如一个子资料表 child table
作参考的，因无法看到你的程序。
Bill2.Ref 资料栏(field)是隐蔽的，连接 set relation to Ref into Bill1, Item into Item
Column1.RecordSource = Bill1.RunNo
Column2.RecordSource = Bill2.Item
Column3.RecordSource = Item.Desc  && 直接放出货物的全名
Column3.Enabled = .F.
Column4.RecordSource = Bill2.Qty
Column5.RecordSource = Bill2.Cost
Column6.RecordSource = Bill2.Qty * Bill2.Cost  && 计算资料栏
Column6.Enabled = .F.  && 防止输入

GoodMorning

白日梦 于 26-8-2004 10:59 AM  说 :

我晕 @@@ 酱简单的都不懂
during you Create the menu,
click on Menu menu,
then Generate option,
type Menu1.mpr then click OK.

白兄, tstan 沒經過基礎訓練, 他買不到書, 給點耐心吧.

此子真的有心學習,就是少了名師啊!


tstan, 你真的需要刨多一點資料,不然所學有限!
希望你有一天能放棄,vfp 內給你的"現成配套"

白日梦

我知道，他很有耐心向学，
只不过有时我的语气有点重，
所以他的问题尽我所能回答。
在我 Outstation 时还有另几位热心人帮忙。

VFP 使用者对向是资料库初学者和我这类由 xBase 转型的编写员。
东马本地很多西马读IT同行都用VB+DAO开发程序，
可是差编写速度输给VFP编写员。
我本身也会用VB,VC可是没深入去使用，
早期曾用C语言写些Novell网络跑的菜单系统。

谚语说的好 - 工欲善其事必先利其器 Sharpen Your Tools
书是必备工具之一，
有2本上1000页VFP书，一本for beginner的送人了。
介绍一本我上次去KL时在MPH书局看到的好书，
Microsoft Press 出版的中文版本的 Visual FoxPro 6.0 ，
可惜我没买到。

[ Last edited by 白日梦 on 27-8-2004 at 09:47 AM ]