字符串乘积的实现

LinkoSong 2011-12-21 09:51:58

vb text1.text=数值 combo1.text= 数值 text2.text= text1.text 与 combo1.text 数值的乘积
If Text2.Text <> "" Then Data1.Recordset.Fields("宿费") = ? ?为 $ + text2.text的数值

text1.text 与 combo1.text 数值的乘积　　代码怎么实现
?为 $ + text2.text的数值　代码怎么实现
　

...全文

115 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

a040285 2011-12-21

打赏
举报

if trim(text1.text)="" then exit sub
if trim(combo1.text)="" then exit sub

if trim(text2.text)="" then
text2=cstr( cdbl(text1.text) *cdbl(combo1.text))
Data1.Recordset.Fields("宿费") = cstr($)+ cstr( text2.text)
end if

LinkoSong 2011-12-21

打赏
举报

能具体点说么？我是小白

贝隆 2011-12-21

打赏
举报

思想：
根据四则运算的规则分解字符串表达式为多个运算子表达式，然后再各个求结构，最后求总结果。

LinkoSong 2011-12-21

打赏
举报

dim x as long
x=val(text1)*val(combo1)

我用这句来添加Data1的信息为什么不对啊？

Data1.Recordset.Fields("宿费") = "x"
求解谢谢

LinkoSong 2011-12-21

打赏
举报

dim x as long
x=val(text1)*val(combo1)

我用这句来添加Data1的信息为什么不对啊？

Data1.Recordset.Fields("宿费") = "x"
求解谢谢

worldy 2011-12-21

打赏
举报

dim x as long
x=val(text1)*val(combo1)

LinkoSong 2011-12-21

打赏
举报

Data1.Recordset.Fields("宿费") = cstr($)+ cstr( text2.text)
这句话提示数据类型转换错误啊怎么事？

还有这句text2=cstr( cdbl(text1.text) *cdbl(combo1.text)) 不是text2.text=cstr( cdbl(text1.text) *cdbl(combo1.text))
求解谢谢