23-03-19, 01:56 AM
السلام عليكم ورحمه الله و بركاته
برجاء المساعده ضروروي لان المشروع ليا شغال فيه كده وقف بسبب المشكله الكبيره ديه عندي
المشكله بتتلخص في اني عايز اضيف اكثر من معامل تحويل للاوزان يحني كيلو طن مثلا
المشكله اني لما بفتح الفاتوره و اختار منها اكثر من صنف بينزل الكيلو او الطن في اخر صنف بس مش بينزل في باقي الاصناف الي فوق
طبعا الصوره في المرفق
[img=1x1]file:///C:/Users/Mohamed/Desktop/pill.jpg[/img]
برجاء المساعده ضروروي لان المشروع ليا شغال فيه كده وقف بسبب المشكله الكبيره ديه عندي
المشكله بتتلخص في اني عايز اضيف اكثر من معامل تحويل للاوزان يحني كيلو طن مثلا
المشكله اني لما بفتح الفاتوره و اختار منها اكثر من صنف بينزل الكيلو او الطن في اخر صنف بس مش بينزل في باقي الاصناف الي فوق
طبعا الصوره في المرفق
[img=1x1]file:///C:/Users/Mohamed/Desktop/pill.jpg[/img]
كود :
'معامل التحويل
Dim comb As New DataGridViewComboBoxCell
comb = DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(14)
Dim dt As New DataTable
Dim da As New SqlDataAdapter
dt.Clear()
da = New SqlDataAdapter("select * from unit where item_code =" & DataGridView1(0, DataGridView1.CurrentRow.Index).Value & " ", Con)
da.Fill(dt)
If dt.Rows.Count > 0 Then
comb.Items.Clear()
For i As Integer = 0 To dt.Rows.Count - 1
comb.Items.Add(dt.Rows(i).Item("name_unit"))
If DataGridView1(14, DataGridView1.CurrentRow.Index).Value = dt.Rows(i).Item("name_unit") Then
DataGridView1(15, DataGridView1.CurrentRow.Index).Value = dt.Rows(i).Item("unit")
End If
Next
End If