 |
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
卢习林
註冊時間: 2004-12-23 文章: 14 來自: 江苏
第 1 樓
|
發表於: 星期一 十二月 27, 2004 3:05 pm 文章主題: 用locate 查询出来的结果可否放到一个临时表,方便打印呀 |
|
|
各位大侠,帮个忙,把我用locate 查询出来的结果放到一个表为“统计仓库表”中,谢谢,代码如下,我不知道该怎么做?
**********判断单选按按钮所处位置********
if allt(thisform.text3.value)==""
messagebox("请你为选择的条件输入相应的值,不要乱搞好不好,搞出问题了怎么办呀!!!","系统警告")
else
PUBLIC dx,gjz
dx =thisform.OptionGroup1.Value
gjz = ALLTRIM(thisform.Text3.Value)
DO CASE
CASE dx = 1
W1_cLocateFor = "名称 = "
CASE dx = 2
W1_cLocateFor = "编号 == "
CASE dx = 3
W1_cLocateFor = "类型 = "
ENDCASE
SET FILTER TO && 你欠這一行程式碼
LOCATE ALL FOR &W1_cLocateFor. gjz
IF FOUND()
SET FILTER TO &W1_cLocateFor. gjz
go top
hjje=0
hjsl=0
do while !eof()
hjje=hjje+(现存数量*单价)
hjsl=hjsl+(现存数量)
skip
enddo
thisform.text4.value=hjje
thisform.text5.value=hjsl
thisform.refresh
ELSE
=MESSAGEBOX("你輸入的條件不存在,請重新輸入",0,"系統提示")
thisform.Text3.Value = ""
ENDIF
endif _________________ 好久没有学了,现在好多都给忘了 |
|
回頂端 |
|
 |
goto-dream
註冊時間: 2004-05-11 文章: 909
第 2 樓
|
|
回頂端 |
|
 |
卢习林
註冊時間: 2004-12-23 文章: 14 來自: 江苏
第 3 樓
|
發表於: 星期一 十二月 27, 2004 3:48 pm 文章主題: |
|
|
想过了,我不是做梦了
不过还是得谢你哟 _________________ 好久没有学了,现在好多都给忘了 |
|
回頂端 |
|
 |
卢习林
註冊時間: 2004-12-23 文章: 14 來自: 江苏
第 4 樓
|
發表於: 星期一 十二月 27, 2004 4:03 pm 文章主題: |
|
|
谢了,大哥,我错了,小弟知道错了 _________________ 好久没有学了,现在好多都给忘了 |
|
回頂端 |
|
 |
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|