+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيف نضع شرط لهذا الكود (/showthread.php?tid=17561)
الصفحات:
1
2
كيف نضع شرط لهذا الكود - abumuhannadzym - 05-10-16
السلام كيف اضع شرط بحيث انه لايظهر في الدتا جريد غير الارقام الاكبر من 10
For Each rc As DataGridViewRow In index.DataGridView.Rows
sumc1 = Val(rc.Cells(0).Value) - Val(rc.Cells(1).Value)
rc.Cells(2).Value = Format(sumc1, "###.##")
Next
RE: كيف نضع شرط لهذا الكود - abumuhannadzym - 07-10-16
اسف لم اضف الكود كامل هذا الكود
index.DataGridView.DataSource = dt
For Each rc As DataGridViewRow In index.DataGridView.Rows
sumc1 = Val(rc.Cells(0).Value) - Val(rc.Cells(1).Value)
rc.Cells(2).Value = Format(sumc1, "###.##")
Next
RE: كيف نضع شرط لهذا الكود - tifagreet - 07-10-16
نضع شرط في جملة الاستعلام الخاص ب da
رجاء وضع كود الحدث كامل و إن شاء الله نقوم بالتصحيح
RE: كيف نضع شرط لهذا الكود - abumuhannadzym - 08-10-16
(07-10-16, 03:46 PM)tifagreet كتب : نضع شرط في جملة الاستعلام الخاص ب da
رجاء وضع كود الحدث كامل و إن شاء الله نقوم بالتصحيح
Dim cs As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & SLibro & ";" & " Extended Properties='Excel 8.0;HDR=NO;IMEX=1'"
Dim dAdapter As New OleDbDataAdapter("Select * From [" & sHoja & "$] ", cs)
Dim datos As New DataSet
dAdapter.Fill(datos)
Dim dt As DataTable = datos.Tables(0)
For i As Integer = 0 To dt.Columns.Count - 1
dt.Columns(i).ColumnName = dt.Rows(0).Item(i)
Next
Dim dr As DataRow = dt.Rows(0)
dr.Delete()
With index.DataGridView
.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.BottomLeft
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(0).Width = 100
.Columns(1).Width = 100
End With
index.DataGridView.DataSource = dt
For Each rc As DataGridViewRow In index.DataGridView.Rows
sumc1 = Val(rc.Cells(0).Value) - Val(rc.Cells(1).Value)
rc.Cells(2).Value = Format(sumc1, "###.##")
Next
RE: كيف نضع شرط لهذا الكود - benomar - 08-10-16
محاولة بطريقتين
RE: كيف نضع شرط لهذا الكود - abumuhannadzym - 08-10-16
(08-10-16, 06:57 PM)benomar كتب : محاولة بطريقتين
مشكور اخي ولكن اريد يظهر فقط في الدتا جريد بشرط اذا كان اكبر مثلا من 5 الباقي مايظهر
وتحياتي لك
PHP كود :
dr.Fill(dt)
if(الشرط هنا انه لايطبع من الدتا جريد فقط اذا كان العمود الثاني اكبر من 10){
DataGridView1.DataSource = dt
}
RE: كيف نضع شرط لهذا الكود - abumuhannadzym - 09-10-16
هل من جديد
RE: كيف نضع شرط لهذا الكود - benomar - 09-10-16
[attachment=11938]محاولة
RE: كيف نضع شرط لهذا الكود - abumuhannadzym - 09-10-16
(09-10-16, 07:44 PM)benomar كتب : محاولة
الف شكر عمل معي تمام بس هنالك مشكلة في بعض الجداول فيها غير ارقام يعني بدل الرقم علامة # فيطلع خطاء
RE: كيف نضع شرط لهذا الكود - benomar - 09-10-16
تفضل
هل هذا هو طلبك