主题：[求助]按合同内容填写入库物资

设置在收货单表的Datacolchanged事件：

Select Case e.DataCol.Name
    Case "供应商"
        If e.DataRow.GetChildRows("收货单明细").count = 0 '如果还没有输入明细,则自动生成
            Dim drs As List(of DataRow) = DataTables("合同明细").Select("供应商 = '" & e.DataRow("供应商") & "'")
            For Each dr1 As DataRow In drs
                Dim dr2 As DataRow = DataTables("收货单明细").Addnew
                dr2("收货单ID") = e.DataRow("_Identify")
                dr2("货物编号") = dr1("货物编号")
                dr2("货物名称") = dr1("货物名称")
                dr2("规格") = dr1("规格")
                dr2("单位") = dr1("单位")
            Next
        End If
End Select

你可以看到，上面的没有技巧可言，全是基础的，编程不是技术活，关键在于你能不能静下心里研究帮助，融会贯通。