Foxtable(狐表)用户栏目专家坐堂 → 查找数据行


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

主题:查找数据行

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


加好友 发短信
等级:狐神 帖子:6849 积分:43345 威望:0 精华:0 注册:2009/3/2 14:07:00
查找数据行  发帖心情 Post By:2009/8/28 8:23:00 [只看该作者]

“采购申请单”表的“采购申请单”窗口的“查找”按钮不能用,请指教。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


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


加好友 发短信
等级:狐神 帖子:6849 积分:43345 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2009/8/28 8:47:00 [只看该作者]

来也匆匆,去也匆匆。

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


加好友 发短信
等级:贵宾 帖子:102 积分:880 威望:0 精华:4 注册:2008/8/31 21:47:00
  发帖心情 Post By:2009/8/28 9:03:00 [只看该作者]

  是代码问题。应该是:
  r = .FindRow("[申请单编号] = '" & forms("采购申请单").controls("textbox1").value & "'",0,true) '从当前行开始查找

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33951 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2009/8/28 9:21:00 [只看该作者]

表名也有问题吧?

With tables("采购申请单.采购申请单明细")
    Dim r As Integer
    r = .FindRow("[申请单编号] = '" & e.Form.Controls("TextBox1").Value & "'",.Position +1,true) '从当前行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行.
    End If
End With

 回到顶部