Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共5 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据

1楼
巴德尔 发表于:2024/11/22 11:15:00
System.Data.RowNotInTableException: 此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据
   在 System.Data.DataRow.GetDefaultRecord()
   在 System.Data.DataRow.get_Item(String columnName)
   在 Foxtable.WinForm.Form.get_Name()
   在 Foxtable.WinForm.Form.O0O.__.()
   在 Foxtable.WinForm.Form.OO0oo.__0__000.(Object A_0, MouseEventArgs A_1)
   在 System.Windows.Forms.Control.OnMouseUp(MouseEventArgs e)
   在 System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
   在 C1.Win.C1Input.C1Button.OnMouseUp(MouseEventArgs mevent)
   在 System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
   在 System.Windows.Forms.Control.WndProc(Message& m)
   在 System.Windows.Forms.ButtonBase.WndProc(Message& m)
   在 System.Windows.Forms.Button.WndProc(Message& m)
   在 System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   在 System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   在 System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
狐狸爸爸,问一下,这个是什么原因导致的,我在做切换系统,采用Syscmd.Project.Open(ProjectFile) 打开的时候就会出现
2楼
有点蓝 发表于:2024/11/22 11:33:00
Syscmd.Project.Open(ProjectFile) 放在什么事件里的,完整代码发过来看看
3楼
巴德尔 发表于:2024/11/25 8:58:00
                Dim SysBookName As String = Me.cbb账套.Text
                If String.IsNullOrEmpty(SysBookName) Then
                    Msg.ShowInformation("请选择你要切换的账套,请核对.")
                    Me.cbb账套.Select()
                    Exit Sub
                End If

                If SysBookName.Equals(H_CurrentAcountBook) Then
                    Msg.ShowInformation("当前系统已是你选择的账套,无须切换!")
                    Exit Sub
                End If

                '统一认证库  验证用户名和密码
                Dim dr As Data.DataRow = _ucrmdb.Get_Userinfos_record(Vars("H_LoginPhone"))

                If dr Is Nothing Then
                    Msg.ShowInformation("无法获取到您的信息,切换系统失败!")
                    Exit Sub
                End If

                If IsDBNull(dr("u_valid")) = True OrElse dr("u_valid") = False Then
                    Msg.ShowInformation($"您已离职,{SysBookName}不允许您登陆.")
                    Exit Sub
                End If

                QSetPcParameters("切换账套", 1)

                QSetPcParameters("切换账套名称", Me.cbb账套.Text)

                Vars("result") = False

                e.Cancel = True
                Syscmd.Project.Open(ProjectFile)
                Exit Sub 我的它放到切换窗口,选择账套后的点击事件里面,上面的问题出现在重新打开后,AfterOpenProject的事件初始化完成后,提示的
4楼
有点蓝 发表于:2024/11/25 9:07:00
考虑把代码放到菜单按钮里,不要放到窗口按钮。Syscmd.Project.Open(ProjectFile)调用之前先关闭所有已经打开的窗口
5楼
巴德尔 发表于:2024/11/25 9:52:00
好的,我试一下

共5 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03516 s, 2 queries.