If e.Form.Controls("模板1txt").Checked = True And e.Form.Controls("TextBox2").value IsNot Nothing Then
e.Form.Controls("模板1txt").text = e.Form.Controls("TextBox2").value
ElseIf e.Form.Controls("模板2txt").Checked = True And e.Form.Controls("TextBox2").value IsNot Nothing Then
e.Form.Controls("模板2txt").text = e.Form.Controls("TextBox2").value
End If