主题：请教代码find 和 like

with DataTables("flxsb")
    dr = DataTables("flxsb").find ("年份 = '" & currenttable(0,"年份") & " ' And 月份 = '" & currenttable(0,"月份") & " ' and 编号 like 'ZH'  " and 分号 = “flxsb”表中最大的（整数型）)   
1、查找“flxsb”中，与当前表当前行的年份、月份、编号中含‘ZH’、且分号 为最大的那行。
    说明：flxsb表中有N个带‘ZH'的编号，分号 是含有'ZH'编号的N个小序号（相同年月和有'ZH'的个数）。
2、用findrow 提示：‘findrow’ is not a menber of ‘datatable’

包含请用*符号.

一直用不好，具体位置还有 ' " & 摆放？，还有Max怎么表达，请帮完善上面的代码好吗？

我是半瓶醋来着，没有文件还真写不出代码。

看看是不是这个意思？

Dim dt As DataTable = DataTables("flxsb")
Dim dr,dr1 As DataRow
dr = DataTables("当前表").DataRows(0)
dr1 = dt.find("年份 = '" & dr("年份") & " ' And 月份 = '" & dr("月份") & " ' and 编号 like '*ZH*' And [分号] = '" & dr("分号") & "'","分号 Desc" )

谢谢您czy，我要打球去了，明天再来试一试，感觉没什么问题。

【and 编号 like '*ZH*' 】不起作用＝会提示错误！～  删除它 代码不会出错！
我的目的是在表A中（即代码中的当前表）要取得最大号的 含‘ZH或MH’的编号：ZH-006 或 MH-004 ，见图：

此主题相关图片如下：未命名1.jpg

给个例子：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:like的使用.table

这个ok了！～～～
Dim dt As DataTable = DataTables("flxsb")
Dim dr1 As DataRow
dr1 = dt.find("年份 = '" & tables("表A").current("年份")& " ' And 月份 = '" & tables("表A").current("月份")&  " ' and 编号 like '*" & tables("表A").current("选类")& "*'","分号 Desc" )
     Tables("表A").current("编号") = dr1("编号")
     Tables("表A").current("分号") = dr1("分号")

是那个*号的问题！