主题：换行

cmd.CommandText = "Insert Into {history} ([deathTime],[deathPlace],[fuXuMoney],[funeralMoney],[weiWenMoney],[mateName],[mateSex],[mateAge],[mateJob],[livingAllownence],[mateTel],[curSituation]) Values ('"
cmd.CommandText = cmd.CommandText & deathTime & "','" & deathPla & "','"  & fuXuMon & "','" & funMon & "'" & _
                       ",'" & weiWenMon & "','" & mateName & "','" & mateSex & "','" & mateJob & "','" & Allown & "'" & _
                             ",'" & mateTel & "' ,"','" & mateCur & "')"

字符串的换行不一样，每一行必须是独立的一个字符串。

为什么又用insert又用foxtable代码？为什么要这样做？

不能直接用foxtable赋值，最后保存？

例子发上来测试吧，应该是简单问题，没那么复杂。

保存的时候撤销修改

With Tables("A")
    If .Current("ID") <> Nothing AndAlso .Current("姓名") <> Nothing  Then
        .Current.Save()
        ''附加信息页面
        Dim pg1 As WinForm.TabPage
        pg1 = Forms("窗口1").Controls("TabControl1").TabPages(1)
        If Forms("窗口1").Controls("state").value= "死亡"  Then
            Dim Result As DialogResult
            Result = MessageBox.Show("您确定用户状态为死亡么?", "提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
            If Result = DialogResult.OK  Then
                pg1.Visible = True
                DataTables("B").AddNew
                Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
                tab.SelectedIndex = 1
            Else
                Return
            End If
        Else
            Tables("B").Current.Reject
            pg1.Visible = False
           
        End If
       
    Else
        Messagebox.show("您输入内容为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Return
    End If
End With

改成

           If Tables("B").Current isnot Nothing Then Tables("B").Current.Reject
           pg1.Visible = False

从死亡修改成退休后，点击保存

没看懂你的问题，删除全部数据后测试

如果有问题，请具体说明测试步骤和效果，说明你需要怎样的结果。

beforeClose事件

If Tables("A").Current IsNot Nothing AndAlso Tables("A").Current.DataRow.RowState <> DataRowState.Unchanged Then '如果当前行已经修改过
    MessageBox.Show("基本信息页面:请选择保存或取消!","提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)
    e.Cancel = True
End If

If Tables("B").Current IsNot Nothing AndAlso Tables("B").Current.DataRow.RowState <> DataRowState.Unchanged Then '如果当前行已经修改过
    MessageBox.Show("附加信息页面:请选择保存或取消!","提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)
    e.Cancel = True
End If

DataTables("B").AddNew

改成

Tables("B").AddNew

http://www.foxtable.com/webhelp/scr/0560.htm