DataColChanged事件
Select case e.DataCol.Name
Case "病人姓名"
e.DataRow("短信内容") = "尊敬的(" & e.DataRow("病人姓名") & "),您好!"
End Select