13-04-13, 05:08 PM
السيد الفاضل
هناك اصناف يتم تحميلها في اللستة بالكود التالي
'تعبئة اكود الاصناف
ComboBox1.Items.Clear()
Sql = "SELECT * FROM items"
Dp = New OleDbDataAdapter(Sql, objconn)
Dp.Fill(Ds, "items")
objconn.Close()
For i As Integer = 0 To Me.BindingContext(Ds, "items").Count - 1
Dim AddStr As String = Ds.Tables("items").Rows(i).Item("itnam").ToString
If AddStr <> "" Then ComboBox1.Items.Add(AddStr)
Next
وهذا الكود لحساب الرصيد لصنف
Ds = New DataSet
If objconn.State = ConnectionState.Closed Then objconn.Open()
If firstone = False Then
Sql = "SELECT * FROM raseed where invsun='" & Me.ComboBox1.Text & "' "
Else
Sql = "SELECT * FROM raseed "
End If
cmd.Connection = objconn
cmd = New OleDbCommand(Sql, objconn)
Dp = New OleDbDataAdapter(cmd)
builder = New OleDbCommandBuilder(Dp)
Ds = New DataSet()
Dp.Fill(Ds, "raseed")
If Ds.Tables("raseed").Rows.Count = 0 Then
Me.TextBox2.Text = ""
MsgBox("لم يتم شراء او بيع هذا الصنف")
Exit Sub
End If
Try
Ds.Tables("raseed").Rows(0).Item("it_balance") = 0
For r As Integer = 0 To Ds.Tables("raseed").Rows.Count - 1
If IsDBNull(Ds.Tables("raseed").Rows®.Item("it_balance")) Then Ds.Tables("raseed").Rows®.Item("it_balance") = 0
If r = 0 Then
Ds.Tables("raseed").Rows®.Item("it_balance") = Ds.Tables("raseed").Rows(0).Item("it_balance") + Ds.Tables("raseed").Rows(0).Item("invqu") - Ds.Tables("raseed").Rows(0).Item("purqu")
Else
Ds.Tables("raseed").Rows®.Item("it_balance") = Ds.Tables("raseed").Rows(r - 1).Item("it_balance") + Ds.Tables("raseed").Rows®.Item("invqu") - Ds.Tables("raseed").Rows®.Item("purqu")
End If
Next
Dp.Update(Ds.Tables("raseed"))
Ds.AcceptChanges()
كيف يتم حساب الرصيد لكل صنف مع عرض الرصيد للعناصر في الداتا جريد
مثلا
م الصنف الرصيد
1 صنف 1 3
2 صنف2 4
3 صنف 3 15
شكرا
هناك اصناف يتم تحميلها في اللستة بالكود التالي
'تعبئة اكود الاصناف
ComboBox1.Items.Clear()
Sql = "SELECT * FROM items"
Dp = New OleDbDataAdapter(Sql, objconn)
Dp.Fill(Ds, "items")
objconn.Close()
For i As Integer = 0 To Me.BindingContext(Ds, "items").Count - 1
Dim AddStr As String = Ds.Tables("items").Rows(i).Item("itnam").ToString
If AddStr <> "" Then ComboBox1.Items.Add(AddStr)
Next
وهذا الكود لحساب الرصيد لصنف
Ds = New DataSet
If objconn.State = ConnectionState.Closed Then objconn.Open()
If firstone = False Then
Sql = "SELECT * FROM raseed where invsun='" & Me.ComboBox1.Text & "' "
Else
Sql = "SELECT * FROM raseed "
End If
cmd.Connection = objconn
cmd = New OleDbCommand(Sql, objconn)
Dp = New OleDbDataAdapter(cmd)
builder = New OleDbCommandBuilder(Dp)
Ds = New DataSet()
Dp.Fill(Ds, "raseed")
If Ds.Tables("raseed").Rows.Count = 0 Then
Me.TextBox2.Text = ""
MsgBox("لم يتم شراء او بيع هذا الصنف")
Exit Sub
End If
Try
Ds.Tables("raseed").Rows(0).Item("it_balance") = 0
For r As Integer = 0 To Ds.Tables("raseed").Rows.Count - 1
If IsDBNull(Ds.Tables("raseed").Rows®.Item("it_balance")) Then Ds.Tables("raseed").Rows®.Item("it_balance") = 0
If r = 0 Then
Ds.Tables("raseed").Rows®.Item("it_balance") = Ds.Tables("raseed").Rows(0).Item("it_balance") + Ds.Tables("raseed").Rows(0).Item("invqu") - Ds.Tables("raseed").Rows(0).Item("purqu")
Else
Ds.Tables("raseed").Rows®.Item("it_balance") = Ds.Tables("raseed").Rows(r - 1).Item("it_balance") + Ds.Tables("raseed").Rows®.Item("invqu") - Ds.Tables("raseed").Rows®.Item("purqu")
End If
Next
Dp.Update(Ds.Tables("raseed"))
Ds.AcceptChanges()
كيف يتم حساب الرصيد لكل صنف مع عرض الرصيد للعناصر في الداتا جريد
مثلا
م الصنف الرصيد
1 صنف 1 3
2 صنف2 4
3 صنف 3 15
شكرا