Foxtable(狐表)用户栏目专家坐堂 → [求助]如何实现修改完当前行后必须保存才能对其它行进行操作?请帮忙看看代码是否有问题!已上传文件,请再帮忙看看!(已解决)


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

主题:[求助]如何实现修改完当前行后必须保存才能对其它行进行操作?请帮忙看看代码是否有问题!已上传文件,请再帮忙看看!(已解决)

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/12/22 14:11:00 [显示全部帖子]

看看这里的示例二:

 

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

 


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/12/22 14:44:00 [显示全部帖子]

1、删除你原来的AfterEdit事件代码.

2、AfterSelChange事件代码设置为:

 

If e.OldRange.RowSel <> e.NewRange.RowSel '如果选择的是不同的行
    If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行
        Dim r As DataRow = e.Table.Rows(e.OldRange.Rowsel).DataRow '获得原来选择的行
        If r.RowState = DataRowState.Modified OrElse r.RowState = DataRowState.Added Then
            If  MessageBox.Show("当前行已经修改,是否保存?", "提示", MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
                r.Save() '保存之
            End If
        End If
    End If
End If

 

 

 

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


 回到顶部