主题：错误在哪

物料代码和入库单号只能有一列输入数据了

Select Case e.DataCol.Name
    Case "物料代码","入库单号"
        If e.DataRow.IsNull("物料代码")=False AndAlso e.DataRow.isnull("入库单号")=False Then
            Dim fdr As DataRow =  DataTables("材料入库明细表").find("[入库单号] = '" & e.DataRow("入库单号") & "' And [物料代码] = '" & e.DataRow("物料代码") & "'")
            If fdr IsNot Nothing Then
                msgbox("同一入库单物料代码不能重复")
                e.DataRow(e.DataCol.name) = Nothing
            End If
        End If
End Select

还是不行，只能输入一列

代码没问题啊，你写到dataColchanged事件啊。

 

不会做，上传具体例子。

显示上除了附件，我看不到

用IE浏览器打开上传附件。

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

点击浏览该文件:hjkscbhs.zip

Select Case e.DataCol.Name
    Case "物料代码","入库单号"
        If e.DataRow.IsNull("物料代码") = False And e.DataRow.isnull("入库单号") = False Then
            Dim fdr As DataRow =  e.DataTable.find("[入库单号] = '" & e.DataRow("入库单号") & "' And [物料代码] = '" & e.DataRow("物料代码") & "' and _Identify <> " & e.DataRow("_Identify"))
            If fdr IsNot Nothing Then
                msgbox("同一入库单号物料代码不能重复")
                e.DataRow(e.DataCol.name) = Nothing
            End If
        End If
End Select

 

谢谢！

如何将表中的上月数据（所有行、列）复制到本月，代码如何写，谢谢