以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  【求助】空白行查找问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=180897)
--  作者：王小风
--  发布时间：2022/10/19 11:56:00
--  【求助】空白行查找问题
If e.Col.Name="识别码" And e.Row("识别码")=""
    e.Cancel = True \'禁止进入编辑状态
    Forms("窗口2").Open()
End If
If e.Col.Name="采购状态" And e.Row("采购状态")=""
    e.Row("采购状态")="采购中"
    Dim nma() As String={"识别码","分类","名称","规格","用途","数量","备注","单位","供应商"}
    Dim nmb() As String={"识别码","分类","名称","规格","用途","库存数量","备注","单位","供应商"}



    Dim dr As DataRow=DataTables("备件出入库").AddNew
    For i As  Integer= 0 To nma.Length - 1
        dr(nmb(i)) = e.Row(nma(i))
    Next
    dr("出入库类型")="入库"
    dr("出入库日期")=Nothing
    dr("经手人")=Nothing
dr("流水号")=e.Row("流水号")
End If

如上代码 需要添加的功能 是如果“备件出入库”有“空白行”则数据写入”空白行“如果没有则新建行
“空白行”的判定标准为”识别码“列为“空白”
大佬我应该怎么写？
--  作者：有点蓝
--  发布时间：2022/10/19 13:34:00
--  
……
Dim dr As DataRow=DataTables("备件出入库").find("识别码 is null")
if dr is nothing then
    dr=DataTables("备件出入库").AddNew
end if
    For i As  Integer= 0 To nma.Length - 1
        dr(nmb(i)) = e.Row(nma(i))
    Next
    dr("出入库类型")="入库"
……
--  作者：王小风
--  发布时间：2022/10/19 13:47:00
--  
明白了  谢谢大佬