+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=27595)
مشكلة نسخ ولصق في داتا كريد فيو - kaiser_noori - 23-11-18
السلام عليكم اخواني
عندي بعض ارقام في ملف اكسل . من اخذ نسخ واروح في برنامج واشغل المشروع وافتح داتا كريد فيو واسوي لصق يجيب فقط رقم واحد شنو الحل لو سمحتو
RE: مشكلة نسخ ولصق في داتا كريد فيو - kaiser_noori - 23-11-18
(23-11-18, 09:16 AM)kaiser_noori كتب :
السلام عليكم اخواني
عندي بعض ارقام في ملف اكسل . من اخذ نسخ واروح في برنامج واشغل المشروع وافتح داتا كريد فيو واسوي لصق يجيب فقط رقم واحد شنو الحل لو سمحتو
العفو ماكو جواب لهذا سوال
RE: مشكلة نسخ ولصق في داتا كريد فيو - حريف برمجة - 23-11-18
جرب انقر على اعلا الداتاقريد في اليسار في المربع الصغير بجوار ICCID
ليتم تحديد كامل للداتاقريد ثم اعمل لصق .
RE: مشكلة نسخ ولصق في داتا كريد فيو - kaiser_noori - 23-11-18
(23-11-18, 05:25 PM)حريف برمجة كتب : جرب انقر على اعلا الداتاقريد في اليسار في المربع الصغير بجوار ICCID
ليتم تحديد كامل للداتاقريد ثم اعمل لصق .
مافي نتيجه أخي
RE: مشكلة نسخ ولصق في داتا كريد فيو - elgokr - 26-11-18
السبب لانك تقوم بعمل تحرير للخلية لتتمكن من عمل الكلك اليمين
حتى تتمكن من عمل اللصق وبما خلية مستقلة فطبيعي سياخذ رقم واحد فقط
الحل الصح اما ان تقوم بعمل استدعاء ملف الاكسل وجلب منه العمود لادراجه فى الداتا جريد
أو ان تقوم بعمل لصق للعمود المنسوخ فى TextBox مفعل خصائص Multiline
من ثم عمل كود For لاخز قيمة كل سطر من TextBox ليقوم بعمل اضافة لها فى الداتا جريد
تحياتى لك
وتمنياتى لك التوفيق
RE: مشكلة نسخ ولصق في داتا كريد فيو - HASAN6.0 - 26-11-18
PHP كود :
Private Sub PasteClipboard(ByVal lstx As DataGridView)
lstx.Rows.Clear()
lstx.Columns.Clear()
For im = lstx.Columns.Count - 1 To 0 Step -1
lstx.Columns.RemoveAt(im)
Next
Dim s As String
Dim i, ii As Integer
Dim arT() As String
Try
s = Clipboard.GetText()
Dim tArr() As String = s.Split(ControlChars.NewLine)
arT = tArr(0).Split(vbTab)
Dim word As String
For Each word In arT
lstx.Columns.Add(word, word)
Next
Dim cc, iRow, iCol As Integer
For i = 1 To tArr.Length - 2
lstx.Rows.Add("")
If tArr(i) <> "" Then
arT = tArr(i).Split(vbTab)
cc = iCol
For ii = 0 To arT.Length - 1
If cc > lstx.ColumnCount - 1 Then Exit For
If iRow > lstx.Rows.Count - 1 Then Exit Sub
With lstx.Item(cc, iRow)
.Value = arT(ii).TrimStart
End With
cc = cc + 1
Next
iRow = iRow + 1
End If
Next
Catch ex As Exception
MsgBox("Please redo Copy and Click on cell")
End Try
End Sub