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

项目事件

计划管理

表事件

产品代码_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

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

增加行也会哦

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

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

以下是引用yifan3429在2014/4/25 10:51:00的发言：

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

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

[此贴子已经被作者于2014-4-25 10:51:34编辑过]

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

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