点击下载此附件
问题:
新手求助,怎么可以双击文本框后自动添入当天日期?和 双击 文本框1 后动添入? 文本框2 中的内容?
http://www.accessoft.com/bbs/showtopic.asp?id=22161
Private Sub Form_Load()
Me.Text2 = "天气不错"
End Sub
Private Sub Text0_DblClick(Cancel As Integer)
Me.Text0 = Date '当天日期
End Sub
Private Sub Text1_DblClick(Cancel As Integer)
Me.Text1 = Me.Text2 '添入 文本框2 中的内容
End Sub