主题：复制行

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

我明白了：

 

 

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

点击浏览该文件:数据管理.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

 

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