22-11-18, 01:17 AM
(21-11-18, 06:06 PM)Rabeea Qbaha كتب : بنائا على ما تطلب من المفضل الانتقال للعمل في datagridview لتوفر خيارات اكبر.
لكن ساساعدك ببعض الامور
الاضافه الى listview
PHP كود :
Dim lvi As New ListViewItem(text_name.text)
lvi.SubItems.Add(text_salary.text)
ListView1.Items.Add(lvi)
جمع عمود الرواتب
PHP كود :
Public Function GetSubTotal() As Decimal
Dim TotalValue As Decimal
Dim tmp As Decimal
arrays and collections start at index(0) not (1)
OP code would skip the first item
For n As Integer = 0 To ListView1.Items.Count - 1
If Decimal.TryParse(ListView1.Items(n).SubItems(1).Text, tmp) Then
TotalValue += tmp
End If
Next
Return TotalValue
End Functionاظهار اعلى مرتب
PHP كود :
Dim max = listView1.Items.Cast(Of ListViewItem)().Max(Function(x) Integer.Parse(x.SubItems(1).Text))الاضافة لقاعدة البياناتPHP كود :
For i As Integer = 0 To ListView1.Items.Count - 1
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
Dim cmd As New OleDb.OleDbCommand
cmd.Connection = Conn
cmd.CommandType = CommandType.Text
cmd.CommandText = "INSERT INTO your_table (e_name, e_salary) VALUES (@e_name, @e_salary)"
cmd.Parameters.AddWithValue("@e_name", ListView1.Items(i).SubItems(0).Text)
cmd.Parameters.AddWithValue("@e_salary", ListView1.Items(i).SubItems(1).Text)
cmd.ExecuteScalar()
Conn.Close()
Next
بارك الله فيك اخي [b]Rabeea Qbaha [/b]
[b]شكرا علي اهتمامك ومساعدتك[/b]
[b]فقد استخدمت الداتا جريد فيو[/b]
[b]ولكن هناك مشكله حيث انني اقوم باضافة البيانات يدويا في الداتا جريد فيو بمعني انه عن تشغيل البرنامج[/b]
[b] اريد ادراج اعمده في الداتا جريد فيو مع عمل Resize او تنسيق للداتا جريد فيو ولكن بتظهر عندي مشكله وهي انه عند غلق الفورم واعادة فتحه بتحصل مشكله فيقول لي ان العمود مضاف قبل ذلك ولم اجد حل لهذه المشكله ولذلك اضطررت ان استبدل الداتا جريد فيو بال List view اذا كان عندك حل رجاء المساعده.[/b]
[b]لقد ارفقت جزء من المشروع ارجو من الله ان يكون هناك حل في الداتا جريد فيو [/b]
[b]وجزاك الله خيرا.[/b]
