Office中国论坛/Access中国论坛

标题: [求助]关于窗体控件中均值自动显示问题 [打印本页]

作者: wssf 时间: 2006-7-17 17:51
标题: [求助]关于窗体控件中均值自动显示问题
各位老大：有一个关于均值自动显示问题，菜鸟搞了半天没有办法，请指点一下，说不清楚，请麻烦看一下上传文件，谢谢![attach]19077[/attach]

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

作者: andymark 时间: 2006-7-17 18:37
没看明白,上传你想要结果的示意图

作者: 阿笨 时间: 2006-7-17 18:57
楼主,试试下面的语句

me.controls(控件名).value

比如,"平行"控件的值为01,"S10"值等于"S01"的值

就在"平行"的beforeupdate方法中输入:

s10.value=me.controls("S" & "平行".value).value

不知我理解的对不对

作者: wssf 时间: 2006-7-17 23:56
谢谢阿笨师傅和andymark版主，我说得不清楚，已在一楼上传文件中更改了，请再指点！谢谢！

作者: sgrshh29 时间: 2006-7-18 00:27
这样是不是你想要得结果(仅对文本框01-04)

Private Sub z10_AfterUpdate()
Dim hh As String
hh = "i" & Me.组合234
Me.Controls(hh) = (Nz(Me.Controls(hh), 0) + Me.z10 - Me.s10) / 2
End Sub

忘了说,先把文本框 I1 到 I4 改为 I01 到 I04

[此贴子已经被作者于2006-7-17 16:31:02编辑过]

作者: andymark 时间: 2006-7-18 00:41
Private Sub z10_AfterUpdate()
Dim J As String

J = Right((Me.组合234), Len(Me.组合234) - 1)
Me.Controls("i" & J).SetFocus
Me.Controls("i" & J) = ((Me.z10 - Me.s10) + (Me.Controls("z" & J) - Me.Controls("s" & J))) / 2

End Sub

作者: wssf 时间: 2006-7-18 02:30
andymark版主真厉害，指点的是正解。sgrshh29大侠的代码试了一次，没有通过，可能我还没有理解需要改动的地方，待晚上在试一试。谢谢两位老师的热心。谢谢！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)