如何在文本框[证号]中自动合成一个8位数的证号

ccczzz

在文本框a1、a2、a3、a4中分别输入一个任意两位数，在文本框[证号]中自动合成一个8位数的证号，如何实现？

cg1

将下列代码加入代码段

Private Sub a1_AfterUpdate()
    ooo
End Sub
Private Sub a2_AfterUpdate()
    ooo
End Sub

Private Sub a3_AfterUpdate()
    ooo
End Sub

Private Sub a4_AfterUpdate()
    ooo
End Sub


Function ooo()
    证号 = a1 + a2 + a3 + a4
End Function

Private Sub Form_Open(Cancel As Integer)
a1.InputMask = "99"
a2.InputMask = "99"
a3.InputMask = "99"
a4.InputMask = "99"
a1.ValidationRule = "len([a1])=2"
a2.ValidationRule = "len([a2])=2"
a3.ValidationRule = "len([a3])=2"
a4.ValidationRule = "len([a4])=2"
End Sub

唐小小

没那么麻烦　，只要在证号单击属性设置：Me.证号 = a1 & a2 & a3 & a4就可以了,或者在最后一个文本框的更新后事件事设置：Me.证号 = a1 & a2 & a3 & a4

[此贴子已经被作者于2003-6-15 21:03:44编辑过]

Kiss-win

哈哈。。。唐小小果然反应很快，cg1想得太远啦：）

cg1

咳，有时候严格按照要求做也。。。

你不是说一定要两位数字吗？

唐小小

我晕，要学会灵活变通，我这个想要几位数都可以，5555，两位，三位，随便你定，不要都可以。

cg1

奥，那你就说输入任意数字不就行了？你现在说“一个任意两位数”，所以我有误解

唐小小

晕哦，还是要学会变通，任意　数是包括两位数的，不过你的程序也不错，中国人的程序与外国人的程序区别就是同样达到一个目的时的过程不同，作程序前要动脑子想一想怎么去简化，我是学C的，数据哭才学了不久，有空还要向你学习！

keyuyi

[em17]吃的太多.

krts

我还想吐呢