以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  发布项目后遇到的问题。。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44717)

--  作者:幼狐
--  发布时间:2014/1/7 15:04:00
--  发布项目后遇到的问题。。

发布项目后,公司局域网使用项目,有的电脑可以打开项目正常使用。有的电脑打开时出现错误提示,如下:

 


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140107150352.jpg
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2014/1/7 15:07:00
--  
该电脑是否没有安装.net2.0 sp2

.net2.0 sp2 微软官方下载地址:http://www.microsoft.com/zh-cn/download/details.aspx?id=1639

64位系统选择X64版本 32位系统选择X86版本


--  作者:幼狐
--  发布时间:2014/1/7 15:29:00
--  

下图是我设计的出库表:


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

当只有一行的情况下,我通过录入窗口选择删除,之后点击保存后会出现如下错误提示:

图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看

。。


--  作者:Bin
--  发布时间:2014/1/7 15:33:00
--  
把代码发出来看看
--  作者:Bin
--  发布时间:2014/1/7 15:33:00
--  
窗口的beforclose事件的代码
--  作者:幼狐
--  发布时间:2014/1/7 15:36:00
--  
If Tables("yuanzhichuku").Current.DataRow.RowState <> DataRowState.Unchanged Then \'如果当前行已经修改过
    e.Cancel = True
End If

--  作者:有点甜
--  发布时间:2014/1/7 20:46:00
--  
代码改一下

If Tables("yuanzhichuku").Current IsNot Nothing Then
    If Tables("yuanzhichuku").Current.DataRow.RowState <> DataRowState.Unchanged Then \'如果当前行已经修改过
        e.Cancel = True
    End If
End If