Dim kcbz As List(of DataRow) = DataTables("销售单").Select("数量 > 当前库存")
或者
Dim kcbz As List(of DataRow) = DataTables("销售单").Select("数量 > '" & tables("表a").current("当前库存") & "'")