我的做法:
Set Rs=Conn.Execute("Select * From Product order by Cint(Product_Sub(Mid(Product_Id,5,5)))")
Function Product_Sub(Product)
Product_Str=""
For i=1 To Len(Product)
If IsNumeric(Mid(Product,i,1)) Then Product_Str = Product_Str & Mid(Product,i,1)
Next
Product_Sub = Product_Str
End Function
可是这样根本就不显示记录.我也不知道要怎么办了.
哪位高手帮帮我.