RT 之前是好的，某次打开项目突然不行了 求助
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.1.19.19
错误所在事件：项目,AfterOpenProject
详细错误信息：
找不到字段:“UserCode.nfi”。
AfterOpenProject代码如下：
AddHandler nfi.DoubleClick, AddressOf Icon_DoubleClick '为通知区域图标添加双击事件
nfi.Text = "main" '鼠标移上去显示的文本
nfi.Icon = New Icon(projectpath & "main.ico") '图标地址
nfi.Visible = True '设置为显示
BaseMainform.Text = "main"
addhandler basemainform.resize, addressof BaseMainform_Resize
Dim tsm1 As New System.Windows.Forms.ToolStripMenuItem("浮窗") '定义一个菜单选项(带图标)
AddHandler tsm1.Click, AddressOf Menu_Click '为这个菜单选项添加点击事件
cms.Items.Add(tsm1)
nfi.ContextMenuStrip = cms
Dim tsm2 As New System.Windows.Forms.ToolStripMenuItem("设置") '定义一个菜单选项(带图标)
AddHandler tsm2.Click, AddressOf Menu_Click '为这个菜单选项添加点击事件
cms.Items.Add(tsm2)
nfi.ContextMenuStrip = cms
Dim tsm3 As New System.Windows.Forms.ToolStripMenuItem("退出") '定义一个菜单选项(带图标)
AddHandler tsm3.Click, AddressOf Menu_Click '为这个菜单选项添加点击事件
cms.Items.Add(tsm3)
nfi.ContextMenuStrip = cms
全局：
'定义通知区域小图标
Public Dim nfi As New System.Windows.Forms.NotifyIcon
Public wstate = 2
''图标双击事件'
Public Sub ICON_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
If forms("主窗口").opened Then
forms("主窗口").close
Else
basemainform.WindowState = 1
BaseMainForm.Opacity = 0
forms("主窗口").open
End If
End Sub
Public Sub BaseMainform_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs)
'If sender.WindowState = 1 Then
BaseMainForm.Opacity = 0
basemainform.ShowInTaskBar = False
' Else
' BaseMainForm.Opacity = 1
' basemainform.ShowInTaskBar = True
' End If
End Sub
'定义右键菜单
Public Dim cms As New System.Windows.Forms.ContextMenuStrip
'菜单按钮点击事件
Public Sub Menu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Select Case sender.Text
Case "浮窗"
basemainform.WindowState = 1
BaseMainForm.Opacity = 0
forms("主窗口").open()
Case "设置"
forms("主窗口").close()
basemainform.WindowState = wstate
BaseMainForm.Opacity = 1
Tables("详细信息").Filter = ""
Tables("详细信息").cols("参数类型").Visible = True
Case "退出"
Syscmd.Project.Exit(False)
End Select
End Sub
加好友 
发短信
Post By：2021/8/13 8:49:00 [只看该作者]
