主题：利用DataTable().Find语句循环查找一组关键字的方法

Dim fcode as List (Of String)

for each f as string in fcode

    dim rw as datarow

    rw = datatables("产品").Find("编号 = '" & f & "'")

next