标题:一个比较郁闷的问题!
只看楼主
firefox2002
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2008-10-5
 问题点数:0 回复次数:7 
一个比较郁闷的问题!
我在一个表单中想实现按物品计费,也就是说,当我选中1种物品是,可以在旁边的TEXT中,输入数量,(同时可以选择好几种物品,全部可以在旁边输入数量)全部选择完后,按“确定”按钮,会把消费的物品数量和金额,存入指定的DBF中!这个表单,应该怎么设计下啊!
搜索更多相关主题的帖子: firefox 
2008-10-17 09:48
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
得分:0 
先将text文本框接收的Value设定为数值型。
在“确定”按钮click中:
repl 表.数量1 with thisform.text1.value,;
     表.数量2 with thisform.text2.value,;
     表.数量3 with thisform.text3.value
2008-10-17 16:29
潇洒人间一剑仙
Rank: 2
等 级:论坛游民
威 望:1
帖 子:140
专家分:48
注 册:2008-9-19
得分:0 
你是用checkbox做的物品名称吧,比如有10个
在确定按钮的click事件里这样写
SELECT 表1
for i=1 to 10
wp="thisform.check"+ALLTRIM(STR(i))
wp_coun="thisform.text"+ALLTRIM(STR(i))+".text"
if &wp..value=1
appe blan
repl 物品 with &wp..caption,数量 with val(&wp_coun.)
endif
next
以上代码我已调试通过.
2008-10-17 18:50
潇洒人间一剑仙
Rank: 2
等 级:论坛游民
威 望:1
帖 子:140
专家分:48
注 册:2008-9-19
得分:0 
这是界面

这是结果
2008-10-17 20:05
潇洒人间一剑仙
Rank: 2
等 级:论坛游民
威 望:1
帖 子:140
专家分:48
注 册:2008-9-19
得分:0 
建议你在repl语句后面再加一个清空checkbox和文本框的语句,便于实际使用.
2008-10-17 20:14
潇洒人间一剑仙
Rank: 2
等 级:论坛游民
威 望:1
帖 子:140
专家分:48
注 册:2008-9-19
得分:0 
金额的问题比较简单,用你的价目表做个select查询就可以了.
2008-10-17 20:21
午丁
Rank: 1
等 级:新手上路
威 望:1
帖 子:71
专家分:0
注 册:2008-3-19
得分:0 
[bo][un]qjbzjp[/un] 在 2008-10-17 16:29 的发言:[/bo]

先将text文本框接收的Value设定为数值型。
在“确定”按钮click中:
repl 表.数量1 with thisform.text1.value,;
     表.数量2 with thisform.text2.value,;
     表.数量3 with thisform.text3.value

假如元素比较多的话,我做个数组,将数组元素分别绑定到控件,操作后用 “GATHER ……”导入.dbf;;我以为比 REPLACE  好用些?
2008-10-19 00:30
潇洒人间一剑仙
Rank: 2
等 级:论坛游民
威 望:1
帖 子:140
专家分:48
注 册:2008-9-19
得分:0 
我想楼主的意思,并不是每种物品一个字段,而是只有物品和数量两个字段.
而且从冗余的角度来说,每条记录都空着大量的字段,是不合理的.
qjbzjp的数据结构如下:
数量1  数量2  数量3  数量4 数量6 数量7 数量8 数量9
2
                           3      6
        4
合理的做法是这样的:
物品   数量
数量1  2
数量6  3
数量7  6
数量2  4
要做到第二种,就要用用宏替换来遍历每个控件.
2008-10-19 09:16



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-238776-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.157395 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved