主题：[求助]数据引用

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

11楼的代码操作的只有一行，还是参考9楼的代码吧