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