以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助模式窗口中行定位的问题。  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=75680)
--  作者：liuxianjie1980
--  发布时间：2015/10/12 20:16:00
--  [求助模式窗口中行定位的问题。

模式窗口，含有一个tabview，第一个页面中有一个表（“异常合同表”），非副本表，一个查询按钮

 

查询代码如下：

 

Dim wz As Integer
wz = Tables("合同异常记录表").FindRow("[合同编号] Like \'% "& Forms("合同异常窗口").Controls("TextBox9").Value & "%\'")
If wz >= 0 Then \'如果找到的话
    Tables("合同异常记录表").Position = wz
End If

 

执行代码，窗口中的表没有反应。

 

注：该模式窗口打开后，Tables("合同异常记录表")并不是主表。不过我觉得跟这个没有关系吧，应该是跟没有指定好是哪个Tables("合同异常记录表")好像，但是又觉得也不是这个原因，因为这个表是非副本的。

 

 
--  作者：大红袍
--  发布时间：2015/10/12 20:20:00
--  
Dim t As Table = e.Form.Controls("Table1").Table
Dim wz As Integer
wz = t.FindRow("[合同编号] Like \'% "& Forms("合同异常窗口").Controls("TextBox9").Value & "%\'")
If wz >= 0 Then \'如果找到的话
    t.Position = wz
End If
--  作者：liuxianjie1980
--  发布时间：2015/10/12 20:25:00
--  

Dim wz As Integer
wz = Tables("合同异常记录表")..FindRow("[合同编号] Like \'% "& Forms("合同异常窗口").Controls("TextBox9").Value & "%\'")
If wz >= 0 Then \'如果找到的话
    Tables("合同异常窗口_合同异常记录表")..Position = wz
End If

 

 

这样写，行不行？
--  作者：大红袍
--  发布时间：2015/10/12 20:26:00
--  
 参考2楼，t要一致
[此贴子已经被作者于2015/10/12 20:26:21编辑过]
--  作者：liuxianjie1980
--  发布时间：2015/10/12 20:29:00
--  
红袍兄：你写的那段代码好像也不行，无法定位。
--  作者：大红袍
--  发布时间：2015/10/12 20:30:00
--  
那不可能，例子说明。除非你条件不满足。
[此贴子已经被作者于2015/10/12 20:30:14编辑过]
--  作者：liuxianjie1980
--  发布时间：2015/10/12 20:35:00
--  

 

[此贴子已经被作者于2015/10/12 21:00:37编辑过]
--  作者：大红袍
--  发布时间：2015/10/12 20:46:00
--  

多了空格

 

Dim t As Table = e.Form.Controls("Table1").Table
Dim wz As Integer
wz = t.FindRow("[合同编号] Like \'%" & Forms("合同异常窗口").Controls("TextBox9").Value & "%\'")
If wz >= 0 Then \'如果找到的话
    t.Position = wz
End If
--  作者：liuxianjie1980
--  发布时间：2015/10/12 20:46:00
--  

同样对于“到货登记”，查询筛选也无法进行。
--  作者：大红袍
--  发布时间：2015/10/12 20:47:00
--  
看8楼