主题：错误在哪

rkdhs = DataTables("库存材料表").Select("[入库单号] = '" & e.Datarow("入库单号") & "' And [物料代码] = '" & e.DataRow("物料代码") & "'")

加上msgbox，看是否进入触发了代码。

Select Case e.DataCol.Name
    Case "入库单号","物料代码"
        Dim rkdhs As List (of DataRow)
        rkdhs = DataTables("入库单").Select("[入库单号] = '" & e.DataRow("入库单号") & "' And [物料代码] = '" & e.DataRow("物料代码") & "'")
        For Each rkdh As DataRow In rkdhs
           
            If rkdh ("记账") = True Then
                Dim nma() As String = {"仓库代码","仓库名称","入库日期","物料代码","物料名称","规格型号","常用计量单位","材料单价","入库数量","入库金额","入库单号"} 'A表数据来源列
                Dim nmb() As String = {"仓库代码","仓库名称","入库日期","物料代码","物料名称","规格型号","常用计量单位","材料单价","入库数量","入库金额","入库单号"} 'B表数据接收列
                Dim dr As DataRow = DataTables("库存材料表").find("[入库单号] = '" & e.DataRow("入库单号") & "' And [物料代码] = '" & e.DataRow("物料代码") & "'")
                If dr Is Nothing Then
                    dr = DataTables("库存材料表").addnew
                End If
                For i As Integer = 0 To nma.Length - 1
                    dr(nmb(i)) = rkdh (nma(i))
                Next
            End If
        Next
End Select

DataColChanged

 

Select Case e.DataCol.Name
    Case "物料代码","入库单号"
        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 Select

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浏览器打开上传附件。

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

 

Dim d As Date = Date.Today
d = new Date(d.Year, d.Month, 1)
Dim drs As List(Of DataRow) = DataTables("表A").Select("日期 >= #" & d.AddMonths(-1) & "# and 日期 < #" & d & "#")
For Each dr As DataRow In drs
    Dim ndr As DataRow = DataTables("表A").AddNew
    ndr("第一列") = dr("第一列")
Next