Foxtable(狐表)用户栏目专家坐堂 → 插入行问题,已经解决了


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

主题:插入行问题,已经解决了

帅哥,在线噢!
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/3/28 22:47:00 [显示全部帖子]

没有发现问题啊

 回到顶部
帅哥,在线噢!
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/3/28 22:56:00 [显示全部帖子]

 

我用菜单的插入行测试,没有管你的代码。


 回到顶部
帅哥,在线噢!
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/3/29 8:29:00 [显示全部帖子]

Dim  edr  as row = e.Row
if edr isnot nothing then
    if  e.Col.Name = "插入"
        Dim rnew as Row
        If edr("插入") = True then
            if  e.table.position =  CurrentTable.rows.count-1 then
                rnew =  CurrentTable.Rows.addnew
            else
                rnew = CurrentTable.Rows.InsertNew
            end if
            rnew("日期")  = edr("日期").AddDays(1)
        End If
    End If
End If

 回到顶部