Dim sm As String = e.Form.Controls("TextBox2").value
Dim fs As String = e.Form.Controls("TextBox1").value
Dim dr As Row = CurrentTable.Current
Dim st As String = dr("说明")
If e.Form.Controls("TextBox2").value > "" Then
e.Form.Controls("TextBox2").value = sm & vbcrlf & fs
Else
e.Form.Controls("TextBox2").value = fs & _username
End If