主题：test运算符后缺少操作数

试试

 

Dim vl As object = ary(n,m+1)

 

改成

 

Dim vl As object = ary(n,m+1)

vl = cstr(vl).replace("'", "''")

 

-----------不行，就用下面的方法

 

加入代码

 

msgbox(n & "   " & filter)

Dim dr As DataRow = DataTables("订单").find(filter)

 

运行看运行到哪一条出错

看读取到哪一条报错啊。不会做，就做个例子发上来，代码没什么问题，你数据的问题。