以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  定位到找到的行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170000)
--  作者：qazlinle6
--  发布时间：2021/7/8 21:02:00
--  定位到找到的行
For i As Integer =  1 To e.form.controls("TextBox1").value
  Dim dr As Row = Tables("盘点明细").addnew    \'加到对应表
  dr("商品条码")= e.Form.Controls("条码1").Value     \'表对应ComboBox4\'
Next


\'If lst.count > 0
\'With Tables("FRID标签")
    \'Dim r As Integer
    \'r = .FindRow(lst(0)) \'从 第一行开始查找
    \'If r >= 0 Then \'如果找到的话
        \'.Position = r \'定位到找到的行.
\'End If
\'End With
\'End If


加到上面加行里去，加一行自动定位找到的行.
--  作者：有点蓝
--  发布时间：2021/7/8 21:19:00
--  
没看懂第一段代码和第二段代码有什么关系。要定位什么行？
--  作者：qazlinle6
--  发布时间：2021/7/8 21:21:00
--  
定位到増加的行上面，我现在増加行一直定在那不动
--  作者：有点蓝
--  发布时间：2021/7/8 21:24:00
--  
For i As Integer =  1 To e.form.controls("TextBox1").value
  Dim dr As Row = Tables("盘点明细").addnew    \'加到对应表
  dr("商品条码")= e.Form.Controls("条码1").Value     \'表对应ComboBox4\'
Tables("盘点明细").Position  = dr.index
Next