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 & "\')"

老师，您帮我看看我的换行哪里有问题，老师换不对？

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 & "\')"

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

If cmd.ExecuteNonQuery = 1 Then \'返回1表示增加成功
       Messagebox.show("添加成功!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
      
        Dim dr1 As DataRow=Tables("person").Current.DataRow()
        Dim dr2  As  DataRow =  Tables("history").Current.DataRow()
        For Each dc  As  DataCol  In  DataTables("person").DataCols
                      dr2(dc.Name) = dr1(dc.name)
       Next
       DataTables("history").Save
       DataTables("history").load
End If

老师，这是人员死亡后，把基本信息从当前库导入历史库，死亡相关的字段我通过复制insert了，相同字段我想通过这样的方式导入，

但是报错了

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

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

因为在新增窗口中3页面，人员信息->家庭信息->附加信息

1、在人员信息保存时，判断状态是否为死亡，若是，则给附加信息增加一行，这样顺顺利利的走下去没问题，

但是

2、我有一次把选择死亡跳到附加信息页面，发现我选错了， 我就退到人员信息页面把状态改成退休，

afterload事件一直提醒我选择保存或者取消附加信息页面，但是状态该为退休后，附加信息页面就不可见了，

感觉进入了死循环

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目14.table

老师，您测试下，就是当你输入死亡再返回改成退休时， 给B表多加了一个无效行，且afterload事件会有提示，让你保存或删除附加页面

保存的时候撤销修改

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