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

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

点击浏览该文件:hao (2).foxdb

请各位给看一下啊！！！ 非常感谢

两个问题

1   关闭时 提示上面的 错误

2   打开程序 切换菜单 ，切换其他菜单后 再返回  销售时，程序自己关闭退出。

1、去看你的BeforeCloseProject事件，路径一定要存在。而且要有权限写入文件；

2、销售单datacolchanged事件，一定要判断列名啊

If e.DataCol.Name = "xiadantime" Then
    If e.DataRow.IsNull("xiadantime") Then
        e.DataRow("xiaoshoudan") = Nothing
    Else
        Dim bh As String ="销售" & Format(e.DataRow("xiadantime"),"yyyyMMddhhmmss") \'取得xiaoshoudan的8位前缀
        e.DataRow("xiaoshoudan") = bh
        \'      End If
    End If
End If

Select Case e.DataCol.name
    Case "yishou","tajin","huilv"
        If e.DataRow.IsNull("yishou") Then
            e.DataRow("zhuan")=e.DataRow("tajin") / e.DataRow("huilv")
        Else e.DataRow("zhuan")= (e.DataRow("tajin") - e.DataRow("yishou")) /e.DataRow("huilv")
        End If
End Select