以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  光标移至最近的空行的第一列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118175)
--  作者：恒隆君
--  发布时间：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
--  作者：有点甜
--  发布时间：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
--  作者：恒隆君
--  发布时间：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")
--  作者：有点甜
--  发布时间：2018/4/26 15:26:00
--  

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

 

改成

 

e.DataTable.addNew()
--  作者：有点甜
--  发布时间：2018/4/26 15:30:00
--  

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

 

改成

 

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