主题：求助一段代码，不知道怎么回事 报错实在找不到原因了 特来求助

If e.DataCol.Name = "数量"

    Dim rs As Integer = "编号 = " & e.DataRow("编号")  And "[方向] = '入库' "
    Dim cs As Integer = "编号 = " & e.DataRow("编号") And "[方向] = '出库' "
    Dim dqk As List(of DataRow) = DataTables("当前库存").Select(rs)
   For Each dqs As DataRow In dqk
  
Dim rss As Double = e.DataTable.Compute("sum(数量)",rs)
Dim css As Double = e.DataTable.Compute("sum(数量)",cs)
    dqs("数量") = rss  - css