cast ( as int) 运行时出现错误,缺少列表分隔符或),

rs4.Open "select * from printdata where barcode='" + Left(MS1.TextMatrix(i, 1), Len(MS1.TextMatrix(i, 1)) - InStr(StrReverse(MS1.TextMatrix(i, 1)), "-")) + "'and  cast((sl as int) < '" + cast(Right(MS1.TextMatrix(i, 1), InStr(StrReverse(MS1.TextMatrix(i , 1)), "-") - 1) as int) + "'", cnn, 1, 3



运行时出现错误,缺少列表分隔符或),请 各为指点 谢谢 cast   cast((sl as int) < '" + cast(Right(MS1.TextMatrix(i, 1), InStr(StrReverse(MS1.TextMatrix(i , 1)), "-") - 1) as int) + "'", cnn, 1, 3

这里面缺少一个')' 自己核对一下哪里少了个右括号就行了

补充：VB ,  基础类