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
如上代码 需要添加的功能 是如果“备件出入库”有“空白行”则数据写入”空白行“如果没有则新建行
“空白行”的判定标准为”识别码“列为“空白”
大佬我应该怎么写？
加好友 
发短信
Post By：2022/10/19 11:56:00 [显示全部帖子]
