菜鸟关于VB的2个小问题，共100分啦！快来抢啊！

本人是学医的菜鸟的啦！现在在用VB做一个数据库的软件，有关于计算的问题2个：
1.在一文本框（如text1）输入某一数字后，敲击回车后完成自动计算（除以一个固定系数），在另一个文本框（text2）中显示出来。应该比较简单的！
2.这个问题好象跟上一个一样的吧，应该更简单了，在一文本框（如text1）输入某一数字（整数）后，按某键（commandbutton）后完成自动计算（加1），在同一个文本框中（text1）中显示。不知道我写清楚没有，如：在该文本框中输入4后按cmdadd键后变成5，以此类推！
如果有老鸟告之其它的计算方法，减法和乘法等等，不甚感激的啦。可以的留个mail嘛，做个朋友交流一下！

19 个解决方案

#1

Private Sub text1_KeyUp(KeyCode As Integer, Shift As Integer)
    If vbKeyReturn = KeyCode Then
        '你的自动计算的代码
    End If
End Sub
KeyUp事件的含义是判断是否在这个文本匡里面按下了回车键
---------------

sub commandbutton_click()
   text1.text = CStr(CInt(text1.text) + 1)
end sub

当然你得保证输入的是数字才行

#2

1
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
            text2.Text = Str(Val(Text1.Text) / 固定系统)
    End If
End Sub

2
Private Sub Command1_Click()
    text1.text=str(val(text1.text)+1)
End Sub

加减乘除以此类推啦

#3

楼上的老师，我是这样写的，还是不行啊！错误显示是“缺少数组！”麻烦你们多写点代码的啦！

#4

赞成二楼的，

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbcrlf Then
            text2.Text = Str(Val(Text1.Text) / 固定系统) '固定数据是什么类型的？如是实型的，还要取精度。如是整数，用\整除好了
    End If
End Sub

2
Private Sub Command1_Click()
    text1.text=str(val(text1.text)+1)
End Sub

UP

#5

star55(瞬发引信)是对的，你再找找错误!

#6

你不会是定义了数组类型吧？！

#7

你的Text1是不是控件数组？

#8

你直接双击text1控件，进入代码窗口后在事件函数下拉矿里面找KeyPress事件就能保证不出错呀。

#9

谢谢 star55(瞬发引信)、谢谢blueiceberg(阿朗)、谢谢 lion_wing(太阳刀) 、谢谢zyl910(910：分儿，我来了！) 可是我还是没有搞定！
我是按二楼的这么写的，但是显示没有工程和数据库啊，我的text是绑定到Data控件上的，做数据库的嘛，是我没有说清楚啊了！上述我做一个标准工程是可以的，但是在我的程序中却不行！不好意思啊，各位！

#10

同意 zyl910的看法，看看你的控件是不是控件数组，你最好把你的代码拿一点出来

#11

楼上的老师们，我的mainmenu（form）上做了十来个text控件，分别把Text都绑定到data1上了，说第一个问题的代码是
Private Sub Text5_keypress(keyascii As Integer)
If keyascii = 13 Then
Text9.SetFocus ‘获得输入焦点
End If
End Sub
第二个问题的代码：
Private Sub cmdadd_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
Text2.SetFocus
Text1.Text = Now
end sub
不知道这下子说明白没有？

#12

我怎么没看出来你的代码和你的问题有什么联系？
Private Sub Text5_keypress(keyascii As Integer)
If keyascii = 13 Then
Text9.SetFocus ‘获得输入焦点
要显示的text.text=计算公式
End If
End Sub
第二个问题的代码：
Private Sub cmdadd_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
Text2.SetFocus
Text1.Text = Now
要计算的text.text=要计算的text.text+1
end sub

#13

楼上的老师，还是不行，上述的方法我在标准工程是没有问题的，还是在str中显示是“缺少数组”的啊！我都搞糊涂了！

#14

XILY
我遇到过一个问题,如果一个FORM 上有 BUTTON ,按回车时是BUTTON 先响应.
还有,你在ADDNEW 后立即UPDATA 可能不行,ADDNEW 后,绑定的控件的值为空.即只能UPDATE 空值.
不知是否有帮助!

#15

SYMXXY(小勇) 谢谢你，但是不可行！我自己还是多看看吧！楼上的各位老师，不管如何我都会给分的，还是谢谢你们！

#16

你把要求给我我帮你做吧

#17

UP
我就UP一下好了，这么简单的问题，懒得回答。

#18

楼上的，你说得对，好象是很简单的，因为我太笨了吧！
实现是可以的，但是在当前的页面却没有搞定！

#19

楼上的各位老师！我的问题还是解决了！
但是你们绝对没有想到我是如何解决的，你们给的还是给了我帮助！现把分给上！
我在无意间在我的代码中删除了str
问题就解决了
代码是
Private Sub cmdadd_Click()
Text12.Text = (Val(Text12.Text) + 1)
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
Text2.SetFocus
Text1.Text = Now
End Sub
如果加上了str就出现上述的错误！有人告诉我为什么会这样吗？
而且在另一个相同的页面用了str(Val(Text12.Text) + 1)的话结果text总是为1，我也没有搞懂原因！
希望楼上的老师们如果知道原因的话请给我一份MAIL，学生不甚感激！

#20

#1

#2

#3