以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  新增行 继承上行数据并加1  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177075)

--  作者:有点灰2
--  发布时间:2022/5/8 16:48:00
--  新增行 继承上行数据并加1

图片点击可在新窗口打开查看此主题相关图片如下:03.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:031.png
图片点击可在新窗口打开查看
我想新增一行后  加工工序由2601  变成2602
--  作者:有点蓝
--  发布时间:2022/5/8 21:26:00
--  
到datarowadded事件处理

dim idx as integer = tables(e.datatble.name).findrow(e.datarow)
if idx > -1 then
dim r1 as row =  tables(e.datatble.name).rows(idx-1)
e.datarow("工序") = r1("工序") +1
end if

--  作者:有点灰2
--  发布时间:2022/5/9 15:30:00
--  

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

 

 

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


--  作者:有点蓝
--  发布时间:2022/5/9 15:42:00
--  
IsNull:http://www.foxtable.com/webhelp/topics/0426.htm