以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  换行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122837)

--  作者:susu312
--  发布时间:2018/8/2 18:08:00
--  换行

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

 

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


--  作者:有点甜
--  发布时间:2018/8/2 19:11:00
--  

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

 

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


--  作者:susu312
--  发布时间:2018/8/2 20:35:00
--  

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

但是报错了


--  作者:有点甜
--  发布时间:2018/8/2 20:54:00
--  

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

 

不能直接用foxtable赋值,最后保存?


--  作者:susu312
--  发布时间:2018/8/2 20:59:00
--  

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

 

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

但是

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

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

 

感觉进入了死循环


--  作者:有点甜
--  发布时间:2018/8/2 21:09:00
--  

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


--  作者:susu312
--  发布时间:2018/8/2 22:12:00
--  

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目14.table

 

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


--  作者:有点甜
--  发布时间:2018/8/2 22:40:00
--  

保存的时候撤销修改

 

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


--  作者:susu312
--  发布时间:2018/8/2 22:52:00
--  
Tables("B").Current.Reject
老师 ,加了这句后 ,有报错,未将对象绑定到对象实例
--  作者:有点甜
--  发布时间:2018/8/2 22:55:00
--  

改成

 

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