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

表事件为beforesavedatarow。要实现的功能是：

预约日期发生改变——出现对话框，提示是否短信通知，选择“是”——将预约日期发生改变行中的“联系电话”和由很多列链接的信息保存在表“短信内容”的对应列中。代码如下，提示有问题。问题窗口如图所示。看看代码的问题在哪？谢谢！

此主题相关图片如下：360软件小助手截图20131204112602.jpg

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

        Dim txt As String=""

        Dim txt1 As String =""

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

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

        With Tables("短信内容")

            If .Current Is Nothing Then

                .AddNew()

                .cols("联系号码")=txt1

                .cols("短信内容")=txt

            End If

        End With

    End If

End If