自定义子窗口 子窗口_FormClosing事件报错

李泰蜜

1都没有弹出

admin

Proj.CurrentClickedGridMenu这个只能在表菜单事件里面用，其他地方使用会有异常的。

李泰蜜

admin 发表于 2025-6-10 16:06
Proj.CurrentClickedGridMenu这个只能在表菜单事件里面用，其他地方使用会有异常的。
...

1. Public Sub 子窗口_FormClosing(sender As Object,e As  System.Windows.Forms.FormClosingEventArgs)
   
2.                         '关闭窗口前设置表格禁止编辑，
   
3.                         If Me.SmForm.MainGrid.BaseBaseGrid.AllowEdit=True         Then
   
4.                                 MessageBox.Show(1)
   
5.                                 Me.SmForm.MainGrid.BaseBaseGrid.AllowEdit= False
   
6. '                                CmdRow.UnLock(Proj.CurrentClickedGridMenu.BaseGrid)
   
7.                      
   
8.                         End If
   
9.                         '刷新表格，主要是删除多余的空白行
   
10.                         '                        CmdGrid.Load(Proj.CurrentClickedGridMenu.BaseGrid,False)
    
11.                         '删除空行
    
12.                         If   Me.SmForm.MainGrid.BaseBaseGrid.DataTableHelp IsNot Nothing Then
    
13.                                   MessageBox.Show(2)
    
14.                                 If Proj.FormTags.Contains("子窗口","删除列名称") Then '在取值之前可以先判断一下需要查询的Key是否存在。
    
15.                                         '包含此Key则取值
    
16.                                         Dim strReturn As String=Proj.FormTags("子窗口","删除列名称")
    
17.                                 Me.SmForm.MainGrid.BaseBaseGrid.DataTableHelp.DeleteFor(strReturn & " is null")
    
18.                                 End If
    
19.                         End If
    
20.                 End Sub

复制代码

改成这样还是报错，1都没弹出来

admin

报错报的什么错？描述问题要把问题描述清楚了。把报错的详细信息贴出来。

另外，1没有弹出来有可能是条件不符合，所以就没有进入到1这个位置。

李泰蜜

报错贴图

admin

这是你这个是自定义窗体，MainGrid这个属性没有赋值（系统自带的窗体模板会主动给这个属性赋值，自定义窗体需要自己将主表先赋值存储好），所以主表可以换一种引用方式

Dim ModelDetailEdit1 As ModelDetailEdit=Me.SmForm.ControlDictionary()("ModelDetailEdit1")
Dim tbl as BaseGrid=  ModelDetailEdit1.GridMenuBase.BaseGrid.BaseBaseGrid

李泰蜜

我的最终修改是窗口加载的时候（Load事件这）就给MainGrid这个赋值（系统自带的窗体模板会主动给这个属性赋值，自定义窗体需要自己将主表先赋值存储好）               

1.                 Dim ModelDetailEdit1 As ModelDetailEdit=Me.SmForm.ControlDictionary()("ModelDetailEdit1")
   
2.             Me.SmForm.MainGrid =  ModelDetailEdit1.BaseDataRuleGrid

复制代码