下载信息  [文件大小：   下载次数： ]

点击浏览该文件:cs.rar

厂家发货登记表点逻辑值通知入库可以复制行到物资入库，但物资费用结算也跟着复制了空行(不要复制空行)，逻辑值打勾是不能锁定行，逻辑值不打勾可锁定行 ，怎样改代码 e.DataRow.Locked = false 也不行 

我明白了：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:数据管理.foxdb

锁定行解决了，谢谢！

“厂家发货登记表”点逻辑值通知入库可以复制行到“物资入库”，但在“物资费用结算表”里也跟着复制了一些空行，在物资费用结算表同时出现复制空行。怎样修改在“物资费用结算表”里不复制了一些空行。

复制的时候判断一下，必须输入值才复制啊：

If e.DataCol.Name = "通知入库" AndAlso e.DataRow("通知入库") = True Then
    Dim nma() As String = {"发货日期","品名","规格","材质","长度","产地","单重","单位","厂发数量","厂发重量","车皮号"} \'A表数据来源列
    Dim nmb() As String = {"发货日期","品名","规格","材质","长度","产地","单重","单位","厂发数量","厂发重量","车皮号"} \'B表数据接收列
    For Each nm As String In nma T
        If e.DataRow.Isnull(nm) Then
            messagebox.Show("请输入" & nm & "!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
            Return
        End If
    Next
    Dim dr As DataRow = DataTables("物资入库").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
    e.DataRow.Locked = True
End If

有笔误，应该：

    For Each nm As String In nma

这样的问题，你应该能够自己看出来的，你太依赖别人了。