主题：新增行 继承上行数据并加1

此主题相关图片如下：03.png


此主题相关图片如下：031.png

我想新增一行后  加工工序由2601  变成2602

Dim idx As Integer = Tables(e.DataTable.name).findRow(e.DataRow)
If idx > -1 And e.DataRow("图号") =  Nothing Then
    Dim r1 As Row =  Tables(e.DataTable.name).rows(idx-1)
    e.DataRow("生产加工评估_加工工序") = r1("生产加工评估_加工工序") +1
End If

 

 

  我想增加一个判断语句   就是图号列如果是空值  运行下面的程序   这样写为什么不行