主题：[求助]在窗口中对关联表进行查询的代码

Forms("客户的合同窗口")中有一个关联表，名称见下面代码

 

Forms("客户的合同窗口")中有一个查询按钮，代码如下：

 

Dim r As Integer
r = Tables("客户的客户窗口_客户一览表.合同一览表").FindRow("[合同编号] = '%" & Forms("客户的合同窗口").Controls("TextBox1").Text & "%'")
If r >= 0 Then '如果找到的话
    Tables("客户的客户窗口_客户一览表.合同一览表").Position = r
End If

 

想通过上述代码找到关联表中的相关记录，但是代码出错：找不到tables（。。。）

 

帮忙看一下

关联表，直接写表名即可，窗口名不用谢

测了一下r值，r=-1

 

为何找不到呢？

Dim r As Integer
r = Tables("客户一览表.合同一览表").FindRow("[合同编号] = '%" & e.Form.Controls("TextBox1").Text & "%'")
MessageBox.show(r)
If r >= 0 Then '如果找到的话
    Tables("客户一览表.合同一览表").Position = r
End If

 

这样改了以后，还是找不到，r=-1

找不到，就是条件不对或者没有数据。

Dim r As Integer
r = Tables("合同一览表").FindRow("[合同编号] = '%" & e.Form.Controls("TextBox1").Text & "%'")
MessageBox.show(r)
If r >= 0 Then '如果找到的话
    Tables("合同一览表").Position = r
End If

 

这样也还是找不到，无语了

 

+1

是不是要制定主表什么的，应该不需要吧？

数据肯定是有的，输入查询条件的合同编号时，就是为了防错，直接copy的

也测了文本框的值，是有的