以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194250)
--  作者：巴德尔
--  发布时间：2024/11/22 11:15:00
--  此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据
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) 打开的时候就会出现
--  作者：有点蓝
--  发布时间：2024/11/22 11:33:00
--  
Syscmd.Project.Open(ProjectFile) 放在什么事件里的，完整代码发过来看看
--  作者：巴德尔
--  发布时间：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的事件初始化完成后，提示的
--  作者：有点蓝
--  发布时间：2024/11/25 9:07:00
--  
考虑把代码放到菜单按钮里，不要放到窗口按钮。Syscmd.Project.Open(ProjectFile)调用之前先关闭所有已经打开的窗口
--  作者：巴德尔
--  发布时间：2024/11/25 9:52:00
--  
好的，我试一下