怎样写函数才能让字符串复原?

bjcompass

如例子:在窗体1中勾选了" 删除" 复选框后，“学员班” 后面添加了“（停）”。
希望在清除勾选后，“学员班” 恢复原来的内容。因为每条记录“学员班”字段长度不一致，函数不成功！
请教各位老师：应该怎样写才行？请老师给改一改吧。谢谢

t小宝

Private Sub 删除_AfterUpdate()
If 删除 = True Then
学员班 = 学员班.Value & "(停)"
Else

学员班 = Left(学员班.Value, Len(学员班.Value) - 3) '取左边起总字数减3


End If

End Sub

havegodinmou

是个很好的教程，之前没学过。














--------------------------------------------------------------
An eye for an eye, and a tooth for a tooth.
nike free run,nike free run 2,nike free 3.0

bjcompass

非常感谢版主解答。