大哥们，大姐们！来看看啊！一个让我很头疼的问题！access可以实现吗？

zhycfb2006

在一个窗体中有两个文本框A和B

我想达到的目的是：在A的文本框中输入一个数字a后，B文本框会自动根据A框中的数字a的大小显示不同的数字。例如：如果0<a<=100    B框中显示10  如果100<a<=200 B框中显示的是30   如果200<a   B框中显示的是50

这个想了很久，没有什么头绪，不知道access可以实现吗！

哪位英雄大侠能帮我解开这个结，我将不胜感激！

作了个示例传上来了！

[此贴子已经被作者于2006-11-17 15:32:15编辑过]

laiguiyou

If Me.Text0 > 0 And Me.Text0 <= 100 Then
Me.Text2 = 10
ElseIf Me.Text0 > 100 And Me.Text0 <= 200 Then
Me.Text2 = 30
ElseIf Me.Text0 > 200 Then
Me.Text2 = 50
End If

zhycfb2006

laiguiyou兄！

如果我建立一个表用来储存数值100，200，0！

另一个表储存数值10，30，50

通过对表中的数值进行改变！就可以让文本框2显示不同的数值！

这样的代码怎么写呢？

qlm

可以实现,先传例子

andymark

以下是引用zhycfb2006在2006-11-16 12:29:00的发言：


laiguiyou兄！

如果我建立一个表用来储存数值100，200，0！

另一个表储存数值10，30，50

通过对表中的数值进行改变！就可以让文本框2显示不同的数值！

这样的代码怎么写呢？

      可以把两者合并在一张表,用dlookup就能实现

zhycfb2006

现在我把示例传上来！

哪位大哥能帮小弟整整！

小弟在此拜谢！

zhycfb2006

Option Compare Database

Private Sub Command2_Click()
Dim a, b, c
a = DLookup("中间值", "点", "中间值 = 50")
b = DLookup("中间值", "点", "最大值 = 100")
Me.Text0 = c

If c > a And c <= b Then

Me.Text3 = c

End If

End Sub



以上哪些程序是错的呢？

qlm

没有原始数据,不大好整。

你的两个表关系怎么建立，我搞不懂。Dlookup的用法，请参考：
http://www.office-cn.net/vvb/dispbbs.asp?BoardID=2&replyID=46260&id=49795&skin=0

[此贴子已经被作者于2006-11-21 22:03:39编辑过]