求教求积与输入一个字跳出全名程序

heiqiqiou 2004-10-30 08:25:38
我的数据表中有字段:数量,单价,金额,要求输入数量和单价后自动赋值数量与单价的乘积给金额;
另一段:有字段品名要求输入品名的开始一个字自动将全名赋值给品名,我有写一段程序关于这个但是
出现我输入"钉" 程序会自动赋值给品名"钉钉书机"但我只要"钉书机".
希望各位高手指点迷津!
...全文
92 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
leungzhq2000 2004-11-01
  • 打赏
  • 举报
回复
另一段:有字段品名要求输入品名的开始一个字自动将全名赋值给品名,我有写一段程序关于这个但是
出现我输入"钉" 程序会自动赋值给品名"钉钉书机"但我只要"钉书机".


这个有人能实现吗?不清楚的东西,要是他的表中有:钉钉钉书机,钉钉钉钉钉书机、……这样的东西,能解决吗?如果能解决把答案也发给我。谢谢!
leungzhq2000 2004-11-01
  • 打赏
  • 举报
回复
我的数据表中有字段:数量,单价,金额,要求输入数量和单价后自动赋值数量与单价的乘积给金额;

我有疑问要提出:
1、是不是想用输入框的形式输入数量和单价?
如果是上面的情况,你必须确保数据库中-单价-的值是唯一的,要不你根本就不能实现
2、要是你直接在数据表中直接输入数量和单价,那么
replace all 金额 with 数量*单价 <for 条件>
LAIYANGPJ 2004-10-30
  • 打赏
  • 举报
回复
local pinm,pname1,pname2


pname2=thisform.text15.value
select 供应商报价表
locate for alltrim( 供应商名称)=alltrim(thisform.text14.value)
if found()
pinm=品名
if OCCURS(pname2,pname2)=1

pname2 = pinm
thisform.text15.value=pname2
thisform.refresh()

endif
endif
十豆三 2004-10-30
  • 打赏
  • 举报
回复
left(pinm,2)
heiqiqiou 2004-10-30
  • 打赏
  • 举报
回复
local pinm,pname1,pname2


pname2=thisform.text15.value
select 供应商报价表
locate for alltrim( 供应商名称)=alltrim(thisform.text14.value)
if found()
pinm=品名
pname1=left("pinm",2)
if pname1=pname2

pname2 = pinm
thisform.text15.value=pname2
thisform.refresh()

endif
endif
十豆三 2004-10-30
  • 打赏
  • 举报
回复
我有写一段程序关于这个但是出现我输入"钉" 程序会自动赋值给品名"钉钉书机"但我只要"钉书机".

----------------------------
把你的程序贴出来...
LAIYANGPJ 2004-10-30
  • 打赏
  • 举报
回复
1.REPLACE 金额 WITH 数量*单价
2.LOCATE FOR OCCURS('钉',字段名)=1

2,723

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧