|
发表于 21-6-2004 05:28 PM
|
显示全部楼层
|
|
|
|
|
|
|
发表于 21-6-2004 05:55 PM
|
显示全部楼层
白日梦 于 21-6-2004 01:41 PM 说 :
你住那一州?沙巴我没看到,我是在KL找得到,不过是version 3的书。
我是在 JOHOR 的 BATU PAHAT
白日梦 于 19-6-2004 11:56 AM 说 :
(Scope of Next 1 = Current record)
Report form ? Preview Next 1
为什么它是显示最上面第一个的 Record, 而不是当前的 Record?
[ Last edited by tstan135 on 21-6-2004 at 10:12 PM ] |
|
|
|
|
|
|
|
发表于 21-6-2004 10:15 PM
|
显示全部楼层
在一 FORM 里有两个 COMBO BOX as COMBO1 和 COMBO2。
我想要:
当我选了 COMBO1 里的内容后,COMBO2 会自动只显示属于 COMBO1 的资料。
请大家帮忙写它的 COMMAND 给我。谢谢! |
|
|
|
|
|
|
|
发表于 21-6-2004 11:56 PM
|
显示全部楼层
tstan135 于 21-6-2004 10:15 PM 说 :
在一 FORM 里有两个 COMBO BOX as COMBO1 和 COMBO2。
我想要:
当我选了 COMBO1 里的内容后,COMBO2 会自动只显示属于 COMBO1 的资料。
请大家帮忙写它的 COMMAND 给我。谢谢!
COMBO2的SOURCE 利用 SELECT XXX FROM FILENAME WHERE 條件=THISFORM.COMBO1.VALUE
在COMBO1 的LOSTFOCUS 將你的COMBO2 REFRESH,
就行了. |
|
|
|
|
|
|
|
发表于 22-6-2004 10:08 AM
|
显示全部楼层
tstan135 于 21-6-2004 05:55 PM 说 :
为什么它是显示最上面第一个的 Record, 而不是当前的 Record?
我试了可以的,不知你的程序Set了什么filter或relation等等。
试另一个方法看∶
nRec = RecNo()
Report Form Customer Preview For RecNo() = nRec
Go nRec
以上的会较慢程序也大。 |
|
|
|
|
|
|
|
发表于 22-6-2004 12:54 PM
|
显示全部楼层
白日梦 于 22-6-2004 10:08 AM 说 :
我试了可以的,不知你的程序Set了什么filter或relation等等。
试另一个方法看∶
nRec = RecNo()
Report Form Customer Preview For RecNo() = nRec
Go nRec
以上的会较慢程序也大。
谢谢!这个可以了。
GoodMorning 于 21-6-2004 11:56 PM 说 :
COMBO2的SOURCE 利用 SELECT XXX FROM FILENAME WHERE 條件=THISFORM.COMBO1.VALUE
在COMBO1 的LOSTFOCUS 將你的COMBO2 REFRESH,
就行了.
这个我不明白,可否再说明或有其它的方法? |
|
|
|
|
|
|
|
发表于 22-6-2004 01:27 PM
|
显示全部楼层
tstan135 于 22-6-2004 12:54 PM 说 :
这个我不明白,可否再说明或有其它的方法?
可用另一个方法,没SQL指令的。
编在 Combo1.Valid 里
Thisform.Combo2.Value = This.Value
Thisform.Combo2.Refresh |
|
|
|
|
|
|
|
发表于 22-6-2004 02:29 PM
|
显示全部楼层
STATE DBF.
STATE_ID,STATE_NM
SEL,SELANGOR
JOH,JOHOR
TOWN.DBF
STATE_ID,TOWN_NM
SEL,RAWANG
SEL,SG.BULOH
JOH,BT.PAHAT
JOH.J.B.
COMBO1.SETTING
ROWSOURCETYPE=2
ROWSOURCE=STATE
METHOD, LOSTFOCUS
THISFORM.COMBO2.ROWSOURCE='SELECT TOWN_NM FROM TOWN WHERE TOWN.STATE_ID=THISFORM.VALUE'
THISFORM.COMBO2.ROWSOURCETYPE=3
THISFORM.COMBO2.REFRESH
試試看吧 |
|
|
|
|
|
|
|
发表于 22-6-2004 03:23 PM
|
显示全部楼层
白日梦 于 22-6-2004 01:27 PM 说 :
可用另一个方法,没SQL指令的。
编在 Combo1.Valid 里
Thisform.Combo2.Value = This.Value
Thisform.Combo2.Refresh
我试了还是不行。
我的 COMBO1 = category.category, COMBO2 = items.items
如果要在 COMBO1.InteractiveChange 里写,应该怎样写? |
|
|
|
|
|
|
|
发表于 22-6-2004 04:27 PM
|
显示全部楼层
是不是列出来的 items.items 的 items.category 等于 category.category ? |
|
|
|
|
|
|
|
发表于 22-6-2004 04:56 PM
|
显示全部楼层
白日梦 于 22-6-2004 04:27 PM 说 :
是不是列出来的 items.items 的 items.category 等于 category.category ?
是,items.category 和 category.category 是一样的内容。 |
|
|
|
|
|
|
|
发表于 22-6-2004 05:08 PM
|
显示全部楼层
GoodMorning 于 22-6-2004 02:29 PM 说 :
METHOD, LOSTFOCUS
THISFORM.COMBO2.ROWSOURCE='SELECT TOWN_NM FROM TOWN WHERE TOWN.STATE_ID=THISFORM.VALUE'
...
这一行是不是这样写?
THISFORM.COMBO2.ROWSOURCE='SELECT TOWN_NM FROM TOWN WHERE TOWN.STATE_ID=THISFORM.COMBO1.VALUE'
试了还是有 ERROR: 'field' phrase in not found
但是用了 COMBO1 的 Builder 选了 CONTROL SOURCE state.state_id COMBO1 就可以了。
可是当 COMBO2 Focus 时,为何它不会自己找 town.dbf 要你 OPEN DATABASE?
当你打开后,town_nm 为何会出现及显示在 GRID 里。而不是直接显示在 COMBO2 里? |
|
|
|
|
|
|
|
发表于 22-6-2004 05:16 PM
|
显示全部楼层
sorry
combo1.rowsource=state.state_id
combo2.rowsource=''
不要設定
所有關于combo2的設定只在combo1的lostfocus中設定
在 'THISFORM.COMBO2.ROWSOURCE='SELECT TOWN_NM FROM TOWN WHERE TOWN.STATE_ID=THISFORM.VALUE into cursor aaa'
漏了 into cursor aaa |
|
|
|
|
|
|
|
发表于 22-6-2004 05:21 PM
|
显示全部楼层
sorry, 還是漏了這一點
在 'THISFORM.COMBO2.ROWSOURCE='SELECT TOWN_NM FROM TOWN WHERE TOWN.STATE_ID=THISform.combo1.VALUE into cursor aaa'
cursor name 你可以放你所喜歡的. |
|
|
|
|
|
|
|
发表于 22-6-2004 06:03 PM
|
显示全部楼层
GoodMorning 于 22-6-2004 05:16 PM 说 :
sorry
combo1.rowsource=state.state_id
combo2.rowsource=''
不要設定
所有關于combo2的設定只在combo1的lostfocus中設定
在 'THISFORM.COMBO2.ROWSOURCE='SELECT TOWN_NM FROM TOWN WHERE TOWN.ST ...
虽然可以了,但有个问题是当你看回之前的 RECORD 时,COMBO2 是空白的。 |
|
|
|
|
|
|
|
发表于 22-6-2004 09:36 PM
|
显示全部楼层
tstan135 于 22-6-2004 06:03 PM 说 :
虽然可以了,但有个问题是当你看回之前的 RECORD 时,COMBO2 是空白的。
你試試想想看吧 ! 並不難的 |
|
|
|
|
|
|
|
发表于 23-6-2004 09:54 AM
|
显示全部楼层
改Combo2的properties
.RowSource='Select Item from Item Where Item.Category=Combo1.Value into cursor X1'
.RowSourceType=3 |
|
|
|
|
|
|
|
发表于 24-6-2004 11:06 PM
|
显示全部楼层
当我按 PREVIEW 看 REPORT 时,它会出现一个可以让我选择开始和结束日期的框框,然后从我选择的日期里寻找记录。请问这个应该如何写? |
|
|
|
|
|
|
|
发表于 25-6-2004 09:23 AM
|
显示全部楼层
使用Public Variable。在Thisform.Init编程
public DateStart, DateEnd
Set Date DMY
DateStart = CtoD('01/' +SubStr(DtoC(Date()),4,2) +Right(DtoC(Date()),4)
DateEnd = Date()
改以下的Properties
Text1.Default = DateStart
Text2.Default = DateEnd |
|
|
|
|
|
|
|
发表于 25-6-2004 09:54 AM
|
显示全部楼层
1.请问 Text1.Default 是指哪里?
2.请问要如何让它寻找 RECORD 及显示出来?
白日梦 于 17-6-2004 09:40 AM 说 :
在 DataEnvironment 把 Inv2.Ref 联接 Inv1.Ref
在 Thisform.Grid1.Column4.Text1.Valid 编程
Select Inv2
Sum Amount To nTotal For Ref=Inv1.Ref
Select Inv1
Replace Total With nTotal
3.请问要在 FORM 里的 Total 里使用 ROUND() FUNCTION 应该在写哪里?
[ Last edited by tstan135 on 25-6-2004 at 10:29 AM ] |
|
|
|
|
|
|
| |
本周最热论坛帖子
|