[abdala]

'طريقة البحث عن صنف منغير فى كل جدول
Public Sub TankName(ByVal TankName As String, ByRef Text1 As Integer, ByRef Text2 As Integer, ByRef Text3 As Integer, ByRef Text4 As Integer)
'
Dim sql, sql2, sql3 As String
'======================================================
Sql = String.Format("SELECT sum( MixWeight) FROM TankNames WHERE (TankName = '{0}') AND (Grop_Type = '{1}')", TankName, "st")
Dim cmd As New OleDb.OleDbCommand(Sql, conn)
conn.Open()
Dim reader As OleDbDataReader = cmd.ExecuteReader()

While reader.Read()
Dim values(reader.FieldCount - 1) As Object
Dim fieldCount As Integer = reader.GetValues(values)
For i As Integer = 0 To fieldCount - 1
If reader.IsDBNull(i) Then

Text1 = 0
Else
Text1 = Val(Text1) + Val(reader.GetValue(i))

End If

Next

End While
reader.NextResult()
reader.Close()
'====================================================
sql2 = String.Format("SELECT sum( MixWeight) FROM TankNames WHERE (TankName = '{0}') AND (Grop_Type = '{1}')", TankName, "gr")
Dim cmd2 As New OleDbCommand(sql2, conn)

Dim reader2 As OleDbDataReader = cmd2.ExecuteReader()

While reader2.Read()
Dim values(reader2.FieldCount - 1) As Object
Dim fieldCount As Integer = reader2.GetValues(values)

For i As Integer = 0 To fieldCount - 1
If reader2.IsDBNull(i) Then

Text2 = 0
Else
Text2 = Val(Text2) + Val(reader2.GetValue(i))

End If
Next


End While
reader2.NextResult()

reader2.Close()
'================================================================
sql3 = String.Format("SELECT sum( MixWeight) FROM TankNames WHERE (TankName = '{0}') AND (Grop_Type = '{1}')", TankName, "fn")
Dim cmd3 As New OleDbCommand(sql3, conn)

Dim reader3 As OleDbDataReader = cmd3.ExecuteReader()

While reader3.Read()
Dim values(reader3.FieldCount - 1) As Object
Dim fieldCount As Integer = reader3.GetValues(values)

For i As Integer = 0 To fieldCount - 1
If reader3.IsDBNull(i) Then

Text3 = 0
Else
Text3 = Val(Text3) + Val(reader3.GetValue(i))
End If

Next
End While
reader3.NextResult()
reader3.Close()

conn.Close()



Text4 = Val(Text1) + Val(Text2) + Val(Text3)
End Sub

دة الطريقة للافادة الحمد للة
شكراا