主题：JIT调试错误

此主题相关图片如下：qq截图20140425104652.png

这种问题  查看解决呢  老师们

上例子,说明如何操作重现错误,以及你要实现的需求.

点击继续，貌似没有影响功能 

 

项目事件

 

计划管理

 

表事件

 

产品代码_BeforeShowContextMenu

 

e.ContextMenu = ContextMenus("窗口")

 

产品代码_DataRowAdding

 

e.DataRow("日期") = Date.Today()

e.DataRow("姓名") = User.Name

e.DataRow("编号") = e.DataTable.Compute("Max(编号)") + 1

 

产品阵容_DataColChanged

 

'Select e.DataCol.Name

    'Case "类别"

        'If e.DataRow.IsNull("类别") Then

            'e.DataRow("编号") = Nothing

        'Else

            'Dim lb As String = e.DataRow("类别")

            'If e.DataRow("编号").StartsWith(lb) = False '如果单据编号前缀不符

                'Dim max As String

                'Dim idx As Integer

                'max = e.DataTable.Compute("Max(编号)","类别 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号

                'If max > "" Then '如果存在最大编号

                    'idx = CInt(max.Substring(3,3)) + 1 '获得最大编号的后三位顺序号,并加1

                'Else

                    'idx = 1 '否则顺序号等于1

                'End If

                'e.DataRow("编号") = lb & Format(idx,"000")

            'End If

        'End If

'End Select

 

产品阵容_BeforeAttachFile

 

Dim dr As DataRow = e.DataRow

If dr.IsNull("产品风格") OrElse dr.IsNull("空间") OrElse dr.IsNull("元素") Then

    msgbox("产品风格列不能为空")

    e.cancel = True

Else

    Select Case e.DataCol.Name

        'Case "A空间_整体效果"

            'e.SubFolder = dr("产品风格") & "\" & dr("空间") & "\1.布局效果图"

        'Case "A空间_单体效果"

            'e.SubFolder = dr("产品风格") & "\" & dr("空间") & "\2.单体效果图"

        'Case "A空间_细节效果"

            'e.SubFolder = dr("产品风格") & "\" & dr("空间") & "\3.细节效果图"

            '

        'Case "B元素_造型"

            'e.SubFolder = dr("产品风格") & "\" & dr("元素") & "\1.造型"

        'Case "B元素_原料"

            'e.SubFolder = dr("产品风格") & "\" & dr("元素") & "\2.主原料"

        'Case "B元素_五金"

            'e.SubFolder = dr("产品风格") & "\" & dr("元素") & "\3.五金"

        'Case "B元素_雕花"

            'e.SubFolder = dr("产品风格") & "\" & dr("元素")  & "\4.雕花"

        'Case "B元素_布料"

            'e.SubFolder = dr("产品风格") & "\" & dr("元素")  & "\5.布料"

        'Case "B元素_颜色"

            'e.SubFolder = dr("产品风格") & "\" & dr("元素")  & "\6.色样"

            '

            '

        Case "C置物类_衣柜"

            e.SubFolder = dr("产品风格") & "\C置物类_衣柜"

        Case "C置物类_平开门"

            e.SubFolder = dr("产品风格") & "\C置物类_平开门"

        Case "C置物类_躺门"

            e.SubFolder = dr("产品风格") & "\C置物类_躺门"

        Case "C置物类_书柜"

            e.SubFolder = dr("产品风格") & "\C置物类_书柜"

        Case "C置物类_酒柜"

            e.SubFolder = dr("产品风格") & "\C置物类_酒柜"

           

        Case "D固装类_墙板"

            e.SubFolder = dr("产品风格") & "\D固装类_墙板"

        Case "D固装类_内门"

            e.SubFolder = dr("产品风格") & "\D固装类_内门"

        Case "D固装类_天花"

            e.SubFolder = dr("产品风格") & "\D固装类_天花"

        Case "D固装类_隔断"

            e.SubFolder = dr("产品风格") & "\D固装类_隔断"

           

        Case "G工艺_门板"

            e.SubFolder = dr("产品风格") & "\G工艺_门板"

        Case "G工艺_墙板"

            e.SubFolder = dr("产品风格") & "\G工艺_墙板"

        Case "G工艺_木门"

            e.SubFolder = dr("产品风格") & "\G工艺_木门"

        Case "G工艺_衣柜"

            e.SubFolder = dr("产品风格") & "\G工艺_衣柜"

        Case "G工艺_天花"

            e.SubFolder = dr("产品风格") & "\G工艺_天花"

           

        Case "H安装_墙板"

            e.SubFolder = dr("产品风格") & "\H安装_墙板"

        Case "H安装_木门"

            e.SubFolder = dr("产品风格") & "\H安装_木门"

        Case "H安装_天花"

            e.SubFolder = dr("产品风格") & "\H安装_天花"

        Case "H安装_衣柜"

            e.SubFolder = dr("产品风格") & "\H安装_衣柜"

        Case "H安装_配套"

            e.SubFolder = dr("产品风格") & "\H安装_配套"

           

        Case "I助销道具_产品文化"

            e.SubFolder = dr("产品风格") & "\I助销道具_产品文化"

        Case "I助销道具_网站图片"

            e.SubFolder = dr("产品风格") & "\I助销道具_网站图片"

        Case "I助销道具_色板"

            e.SubFolder = dr("产品风格") & "\I助销道具_色板"

           

        Case "E活动类_床"

            e.SubFolder = dr("产品风格") & "\E活动类_床"

        Case "E活动类_床头柜"

            e.SubFolder = dr("产品风格") & "\E活动类_床头柜"

    End Select

End If

 

产品阵容_BeforeShowContextMenu

 

e.ContextMenu = ContextMenus("窗口")

 

产品阵容_DataRowAdding

 

e.DataRow("空间") = "1.空间"

e.DataRow("元素") = "2.元素"

 

窗口表事件

 

窗口与控件事件

 

自定义函数

 

全局代码

 

菜单事件

 

保存_Click

 

Syscmd.Project.Save()

 

保存退出_Click

 

Syscmd.Project.Exit(True)

 

窗口_打开游览窗口_Click

 

Forms("游览窗口").Open()

 

窗口_复制_Click

 

Syscmd.Edit.Copy()

 

窗口_锁定行_Click

 

Syscmd.Row.Lock()

 

窗口_增加行_Click

 

Syscmd.Row.AddNew()

 

窗口_粘贴_Click

 

Syscmd.Edit.Paste()

 

导出数据_Click

 

Syscmd.Project.QuickExport()

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:产品阵容大全.foxdb

 

只要添加文件就会出现错误   单击继续  不会影响代码的执行   结果还是会实现。

增加行也会哦

说明如何操作重现错误,以及你要实现的需求.

 我测试了一下你的例子，添加文件和新增行，都没有出现错误提示。

 

 你可以自己打开一下你的例子看一下。

我今天也出现了这种现象，是什么原因引起的呢？如何解决？

 

 

 

 

说明操作，贴出相关的代码。