主题：复制行

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

点击浏览该文件:cs.rar

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

要逻辑值打勾锁定行

这里不是已经回复过你了吗? http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=44814&page=1&star=1

没有看明白的意思，此外这种代码应该在DataColchanged事件中，不应该放在DataColChaning事件中

你要放到DataColChanged 而不是DataColChangING

我明白了：

 

 

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

点击浏览该文件:数据管理.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 T 编译错误应为结束语句。

有笔误，应该：

 

    For Each nm As String In nma

 

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