[سؤال] التعامل مع الداتا جريد - نسخة قابلة للطباعة

كود :

Private Sub Command3_Click()

 dis = Sqr(((Val(Text1.Text - Text3.Text)) ^ 2) + ((Val(Text2.Text - Text4.Text)) ^ 2))

Text5.Text = dis

If dis + 2000 <= 5350 Then

Text8.Text = "six"

With Adodc6.Recordset

.MoveFirst

For j = 0 To 26

mg6.TextMatrix(j, 0) = .Fields!Distance

mg6.TextMatrix(j, 1) = .Fields!Hieght

mg6.TextMatrix(j, 2) = .Fields!Time

.MoveNext

Next

End With

For i = 0 To 26

If dis = mg6.TextMatrix(i, 0) Then

Text6.Text = mg6.TextMatrix(i, 1)

Text7.Text = mg6.TextMatrix(i, 2)

ElseIf mg6.TextMatrix(i, 0) < dis Then

Text6.Text = (((mg6.TextMatrix(i + 1, 1) - mg6.TextMatrix(i, 1)) / 200) * (dis - mg6.TextMatrix(i, 0))) + mg6.TextMatrix(i, 1)

Text7.Text = (((mg6.TextMatrix(i + 1, 2) - mg6.TextMatrix(i, 2)) / 200) * (dis - mg6.TextMatrix(i, 0))) + mg6.TextMatrix(i, 2)



Else: End If

حيث يقوم البرنامج بحساب المسافة

ثم يقوم بالبحث في الجدول عن المسافة فاذا وجدها يقوم باظهار الارتفاع والزمن علي تكست خاصة حسب المسافة

واذا كانت المسافة غير موجوده او اكبر يقوم بعملية حسابية بين المسافتين الموجدتين في الجدول ويستخرج الارتفاع والزمن 

اسف البرنامج معقد ويصعب شرحه لكن اريد بنفس طريقة الماتركس ان اغير الي الداتا جريد

ارجو ان تكون الفكرة وضحت 

وشكرا لكل من شاهد وكل من علق

كود :

DataGridView1(0, i).Value

كود :

mg6.TextMatrix(i, 0)

كود :

Dim i As Integer

        For i = 0 To 54

            If TextBox1.Text = DataGridView1(0, i).Value Then

                TextBox2.Text = DataGridView1(1, i).Value

                TextBox3.Text = DataGridView1(2, i).Value

            ElseIf TextBox1.Text > DataGridView1(0, i).Value Then

                TextBox2.Text = (((DataGridView1(1, i + 1).Value - DataGridView1(1, i).Value) / 200) * (Val(TextBox1.Text) - DataGridView1(0, i).Value)) + DataGridView1(1, i).Value

                TextBox3.Text = (((DataGridView1(2, i + 1).Value - DataGridView1(2, i).Value) / 200) * (Val(TextBox1.Text) - DataGridView1(0, i).Value)) + DataGridView1(2, i).Value

                



            End If

        Next

كود :

TextBox2.Text = (((DataGridView1(1, i + 1).Value - DataGridView1(1, i).Value) / 200) * (Val(TextBox1.Text) - DataGridView1(0, i).Value)) + DataGridView1(1, i).Value

                TextBox3.Text = (((DataGridView1(2, i + 1).Value - DataGridView1(2, i).Value) / 200) * (Val(TextBox1.Text) - DataGridView1(0, i).Value)) + DataGridView1(2, i).Value