Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]求修改，编译不过


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

主题：[求助]求修改，编译不过
帅哥哟，离线，有人找我吗？
737182811
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：246 积分：1775 威望：0 精华：0 注册：2013/12/22 14:54:00 		[求助]求修改，编译不过  发帖心情 Post By：2014/4/16 17:19:00 [显示全部帖子]

If e.OldRange.RowSel <> e.NewRange.RowSel '如果选择的是不同的行
    If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行
        Dim r As Row = e.Table.Rows(e.OldRange.Rowsel) '获得原来选择的行
        For Each c As Col In e.Table.Cols
            If [C.Name] not In ('编辑者','执行次数') Then  ‘此行有问题
                MessageBox.Show(c.Name)
            End If
        Next
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
737182811
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：246 积分：1775 威望：0 精华：0 注册：2013/12/22 14:54:00 		  发帖心情 Post By：2014/4/16 17:22:00 [显示全部帖子]

就是忽略比较这两个列的newvalue 和oringinalvalue比较。

 回到顶部
帅哥哟，离线，有人找我吗？
737182811
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：246 积分：1775 威望：0 精华：0 注册：2013/12/22 14:54:00 		  发帖心情 Post By：2014/4/16 17:30:00 [显示全部帖子]

我想要选择不同行之前判断一下：
是否除了编辑者列和执行次数列的其他列的内容如果未实际修改过的话，就执行以下。r.reject  或者update一下 ,把编辑者列还原。
对应原来狐爸的例子，这样就可以解锁该列。
[此贴子已经被作者于2014-4-16 17:43:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
737182811
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：246 积分：1775 威望：0 精华：0 注册：2013/12/22 14:54:00 		  发帖心情 Post By：2014/4/16 17:43:00 [显示全部帖子]

谢谢了，我还是继续自己研究吧。

 回到顶部
帅哥哟，离线，有人找我吗？
737182811
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：246 积分：1775 威望：0 精华：0 注册：2013/12/22 14:54:00 		  发帖心情 Post By：2014/4/16 17:54:00 [显示全部帖子]


我修改一下

dim i as  integer = 0
 For Each c As Col In e.Table.Cols
            if r.DataRow.OriginalValue(c.name)  <>  r(c.name) andalso c.name<>"编辑者" andalso c.name<>"执行次数"  then
                  i = i+1
            End If  
 Next
if i = 0 then
r.reject
end if

重新修改了一下,应该可以了，不过如果需要判断的类似“编辑者”列的数目更多一点的话，难道要无限制andalso下去？
[此贴子已经被作者于2014-4-16 20:32:47编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
737182811
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：246 积分：1775 威望：0 精华：0 注册：2013/12/22 14:54:00 		  发帖心情 Post By：2014/4/16 20:36:00 [显示全部帖子]

大概看懂.

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 5 次数据查询