如下代码新增行是出现这样的问题怎么解决?用MSGBOX测试是肯定是最后一句代码出了问题,不知道怎么改善,请高手们帮忙呀

此主题相关图片如下:qq截图20130414134715.png

Dim _finished As List(of DataRow)
Dim _process As DataRow = DataTables("办单信息").Find("PO号 = '" & e.DataRow("办单号") & "'") '找出父表的订单信息
msgbox(1)
_finished = e.DataTable.Select("[办单号] = '" & e.DataRow("办单号") & "' and [是否完成] = true")'找出当前订单所有已经完成工序;
msgbox(2)
_process("生产进度") = CInt(_finished.Count) '将已经完成的工序数赋值给生产进度列;
msgbox(3)