主题：换行

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了，相同字段我想通过这样的方式导入，

但是报错了

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

 

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

但是

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

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

 

感觉进入了死循环

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

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

 

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

Tables("B").Current.Reject
老师 ，加了这句后 ，有报错，未将对象绑定到对象实例

还是会给历史库增加空白行

老师，您的办法可以解决误点的问题，

但是，

1、我到如历史库第一条后，再到第二条就倒不进去了

2、而且，切换到附加信息页面，死亡时间已经填好是第一条的时间，应该是空的啊

此主题相关图片如下：1.png

1、清空数据表，重新打开项目

2、应用窗口1，输入ID、姓名、死亡状态，写入死亡时间，导入时， 报上面的错误，但是历史库已经导入一条了

3、关闭窗口后，重新应用窗口1测试输入第二条，输入ID、姓名、死亡状态，切换到附加信息页面时，死亡时间是第一条的时间已经填入（应该是空白新增的一行），导入时有上图错误， 并且历史库导入为空（应该把第二条也顺利导入)

老师，beforeclose没问题了

但是，导入历史库第二条为空，

没问题了！感谢老师！！谢谢谢，

 

老师，为啥后面这一句就影响这么大呀？