Dim Index = Tables("物品名称").FindRow(Filter,0,False)少了个值类型
Dim Index As Integer = Tables("物品名称").FindRow(Filter,0,False)