主题：[求助]如何把获取的信息加入另一表中（已经解决）

If e.DataRow.OriginalValue("预约日期") <> e.DataRow("预约日期") Then

    Dim Result As DialogResult

    Result = MessageBox.Show("预约日期已经更改,是否需要短信通知患者家属?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

    If Result = DialogResult.Yes Then

        Dim dr As DataRow=Tables("基本情况").Current.DataRow

        Dim txt As String=""

        Dim txt1 As String =""

        txt +=dr("联系信息_联系人姓名") & ",您小孩" & dr("姓名")& "因患" & dr("疾病诊断")& "于" & dr("登记日期")& "在我院" & dr("预约科室") & "登记住院,原住院时间" & e.DataRow.originalValue("预约日期") & "现更改为" & dr("预约日期")& "请收到短信后直接短信回复或电话联系予以确认,联系电话:023-63659170"

        txt1=dr("联系信息_移动电话")

        With Tables("短信内容")

            Dim r As Row =.AddNew()

            r("联系号码")=txt1

            r("短信内容")=txt

        End With

    End If

End If