Dim fcode as List (Of String)
for each f as string in fcode
rw = datatables("产品").Find("编号" = '"& f &"')
next