主题：[求助]数据引用

老师好，这个项目中同种类型的元器件有三个相关的table，其中电解电容与电解电容检验记录建立了关联，主要是用于电解电容测试窗口中能够显示关联表的内容，我想问的问题是：

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

点击浏览该文件:测试系统试用版-1.table

老师好，上面这代码还是实现不了我所说的功能，下面缩写代码只能抽取电解电容检验记录数据库中的第一条记录写入到电解电容检验记录中，如何实现随机从电解电容检验记录数据库中抽取10条记录写入电解电容检验记录table中呢？谢谢！

If e.DataCol.Name = "材料代号" Then

    Dim nms() As String = {"外形尺寸_本体直径","外形尺寸_本体高","电容量测试值","损耗角正切测试值","漏电流测试值"}

    Dim dr1 As DataRow

    dr1 = DataTables("电解电容检验记录数据库").Find("[材料代号] = '" & e.NewValue & "'")

    If dr1 IsNot Nothing Then

        For Each nm As String In nms

            e.DataRow(nm) =dr1(nm)

        Next

    End If

       End  If

这样设计可以实现电解电容检验记录这个Table中的数据是否可以根据材料代号随机从电解电容检验记录数据库抽取10个数据，但是电解电容检验记录与电解电容关联列的内容就无法显示了呢？（这是三个不同的table，分别用于不同的功能）

老师好：下面所写代码所实现的功能是电解电容与电解电容检验记录通过编号建立关联，（"供应商","暂收单号","日期","采购单号","材料代号"）根据编号自动写入，电解电容检验记录根据材料代号随机从电解电容检验记录数据库抽取一行，请问这个代码有什么不严谨的地方吗？（代码分两部分，代码太长，一次上传不了）

If e.DataCol.Name = "编号" Then

    Dim nms() As String = {"供应商","暂收单号","日期","采购单号","材料代号"}

    If e.NewValue Is Nothing Then

        For Each nm As String In nms

            e.DataRow(nm) = Nothing

        Next

    Else

        Dim dr As DataRow

        dr = DataTables("电解电容").Find("[编号] = '" & e.NewValue & "'")

        If dr IsNot Nothing

            For Each nm As String In nms

                e.DataRow(nm) = dr(nm)

            Next

        End If

    End If

End If

If e.DataCol.Name = "材料代号" Then

    Dim nms1() As String = {"外形尺寸_本体直径","外形尺寸_本体高","电容量测试值","损耗角正切测试值","漏电流测试值"}

    Dim drs As List(of DataRow) = DataTables("电解电容检验记录数据库").Select("材料代号 = '" & e.NewValue & "'")

    systemready = False

    Dim i As Integer = 1

    Do

        Dim Id As Integer = rand.Next(0,drs.count)

        Dim dr5 As DataRow = drs(id)

        For Each nm1 As String In nms1

            e.DataRow(nm1) =dr5(nm1)

        Next

        i += 1

    Loop While i <= 10

systemready = True

End  If