主题：请教：一个单元格的内容是否在另一列中出现过

表A、表B结构相同，[第十列]是日期类型

Dim Mark As date

mark=                                   '表A第一行、第十列单元格内容赋值给变量mark
If Mark  Then                  '判断mark的值在表B的第十列是否出现过
    Output.Show( "出现过")
Else
    Output.Show( "未出现过")
End If

问题：带注释的两行语句怎么写。

Dim Mark As Date
mark=Tables("表A").Rows(0)("第十列")                        '表A第一行?第十列单元格内容赋值给变量mark
If DataTables("表B").find("第十列 = #" & mark & "#") IsNot Nothing Then                  '判断mark的值在表B的第十列是否出现过
    Output.Show( "出现过")
Else
    Output.Show( "未出现过")
End If

谢谢老师！代码可以运行了。我应该是没有掌握学习方法，例如mark=Tables("表A").Rows(0)("第十列")  这个代码，之前我不知道怎么写，只有自己的一个想法 '表A第一行的第十列单元格内容赋值给变量mark，我应该在帮助文件搜索怎样的关键字，才能找到相似的示例文件。还有搜索到的内容，在目录文件中的什么位置，搜索到的内容是从目录中复制后显示给用户看的吗。

1、要把帮助文档大致看一遍；

 

2、遇到需要查询的内容，大致记得一些关键字，然后查询就行。