[求助]关于窗体控件中均值自动显示问题

wssf

各位老大：有一个关于均值自动显示问题，菜鸟搞了半天没有办法，请指点一下，说不清楚，请麻烦看一下上传文件，谢谢!

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

andymark

没看明白,上传你想要结果的示意图

阿笨

楼主,试试下面的语句

me.controls(控件名).value

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

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

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

不知我理解的对不对

wssf

谢谢阿笨师傅和andymark版主，我说得不清楚，已在一楼上传文件中更改了，请再指点！谢谢！

sgrshh29

这样是不是你想要得结果(仅对文本框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

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

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