Foxtable(狐表)用户栏目专家坐堂 → [求助]切换行问题


  共有14469人关注过本帖树形打印复制链接

主题:[求助]切换行问题

帅哥哟,离线,有人找我吗?
jxjzj2000
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:142 积分:1031 威望:0 精华:0 注册:2011/8/14 1:57:00
  发帖心情 Post By:2011/9/5 9:34:00 [只看该作者]

狐狸爸爸,那应该如何解决代码出错问题呢,还望给个具体的代码。。。

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/9/5 9:35:00 [只看该作者]

8楼已经给你了答案,在BeforeAddDataRow事件中再加上一个判断,如果当前行没有锁定,就拒绝增加行即可。

 

 

http://www.foxtable.com/help/topics/0629.htm


 回到顶部
帅哥哟,离线,有人找我吗?
jxjzj2000
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:142 积分:1031 威望:0 精华:0 注册:2011/8/14 1:57:00
  发帖心情 Post By:2011/9/5 9:40:00 [只看该作者]

关键是当前行锁定状态,跳出对话框,没弄懂。。。

如果当前行非锁定,那么,跳出对话框很正常啊


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/9/5 9:52:00 [只看该作者]

有的问题,不需要弄懂的,知道如何处理或绕开就行。

 回到顶部
帅哥哟,离线,有人找我吗?
jxjzj2000
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:142 积分:1031 威望:0 精华:0 注册:2011/8/14 1:57:00
  发帖心情 Post By:2011/9/5 9:54:00 [只看该作者]

狐狸爸爸,没处理好呀,还是不行,图片点击可在新窗口打开查看

 

当前行被锁定状态,增加行,跳出对话框,图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/9/5 10:06:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.rar


 回到顶部
帅哥哟,离线,有人找我吗?
jxjzj2000
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:142 积分:1031 威望:0 精华:0 注册:2011/8/14 1:57:00
  发帖心情 Post By:2011/9/5 10:28:00 [只看该作者]

看来,我要把整个项目传上来了,新项目中这样做可以,但是到我的项目中这样就不行,难道是别的什么代码错了?狐狸爸爸帮忙看看

 回到顶部
帅哥哟,离线,有人找我吗?
jxjzj2000
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:142 积分:1031 威望:0 精华:0 注册:2011/8/14 1:57:00
  发帖心情 Post By:2011/9/5 10:30:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:网络部erp 1.0_0905创建外部数据源之前.rar


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/9/5 11:53:00 [只看该作者]

注意我写的BeforeSelChange代码,加粗部分是关键:

 

If e.Table.Current.locked = False AndAlso e.Table.Rowsel = e.Table.Position  Then  '如果当前行未锁定
    If e.NewRange.RowSel <> e.OldRange.RowSel Then '而且即将选择另一行
        e.Cancel = True '那么取消操作
        MessageBox.Show("请先保存当前客户信息!", "提示")
    End If
End If


 回到顶部
帅哥哟,离线,有人找我吗?
jxjzj2000
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:142 积分:1031 威望:0 精华:0 注册:2011/8/14 1:57:00
  发帖心情 Post By:2011/9/5 16:01:00 [只看该作者]

终于解决了,原来少了这个东西,困扰了我一天半了,谢谢狐狸爸爸的耐心指导


 回到顶部
总数 33 上一页 1 2 3 4 下一页