主题：如何将以下代码合在一起

Select Case e.DataCol.Name

    Case  "数量","仓库","存货名称"

        Dim fdr As DataRow = DataTables("盘点表").Find("存货名称 = '" & e.DataRow("存货名称") & "'")

        For Each dr As DataRow In DataTables("盘点表").DataRows

            dr("本月出库数量") = 0

            dr("新厂借用数量") = 0

        Next

        

        If fdr IsNot Nothing Then

            Dim d As Date = new Date(Date.Today.Year,Date.Today.Month,1)

            fdr("新厂借用数量") = DataTables("出仓").Compute("sum(数量)","存货名称 ='" & e.DataRow("存货名称") & "' and 仓库  = '新厂'" & "' and 日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#")

            fdr("本月出库数量") = DataTables("出仓").Compute("sum(数量)","存货名称 ='" & e.DataRow("存货名称") & "' and 仓库  = '老厂'" & "' and 日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#")

        End If

End Select