Foxtable(狐表)用户栏目专家坐堂 → 光标移至最近的空行的第一列


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

主题:光标移至最近的空行的第一列

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


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
光标移至最近的空行的第一列  发帖心情 Post By:2018/4/26 13:57:00 [只看该作者]

光标移至最近的空行的第一列 (墨桶编号
为什么不行?


With Tables("油墨归库")
            Dim r As Integer
            r = .FindRow("[墨桶编号] is null ", .Position + 1, True ) '从当前行的下一行开始查找
            If r >= 0 Then '如果找到的话
                .Position = r '定位到找到的行.
                .Select =(r,.Cols("墨桶编号").Index)
            End If
            
        End With


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/26 14:40:00 [只看该作者]

 

With Tables("油墨归库")
    Dim r As Integer
    r = .FindRow("[墨桶编号] is null ", .Position + 1, True ) '从当前行的下一行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行.
        .Select(r,.Cols("墨桶编号").Index)
    End If
   
End With


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


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
  发帖心情 Post By:2018/4/26 14:56:00 [只看该作者]

这段代码没有问题,

我现在想输入完 油墨重量 之后,光标移至最近的空行的第一列 墨桶编号
目前,我在datacolchanged 的代码
 Case "归库毛重"
        
        If e.oldvalue Is Nothing And e.newvalue IsNot Nothing Then '如果是油墨编号列的内容变动
            Tables("油墨归库").addNew()
        End If
        If e.newvalue IsNot Nothing Then
            With Tables("油墨归库")
                Dim r As Integer
                r = .FindRow("[墨桶编号] is null ", .Position + 1, True ) '从当前行的下一行开始查找
                If r >= 0 Then '如果找到的话
                    .Position = r '定位到找到的行.
                End If
                .Select(.RowSel, .Cols("墨桶编号").Index)
            End With
        End If
' MessageBox.show ("1")


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/26 15:26:00 [只看该作者]

Tables("油墨归库").addNew()

 

改成

 

e.DataTable.addNew()


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/26 15:30:00 [只看该作者]

.Select(.RowSel, .Cols("墨桶编号").Index)

 

改成

 

.Select(.RowSel, .Cols("墨桶编号").Index-1)


 回到顶部