تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة نسخ ولصق في داتا كريد فيو
#1

السلام عليكم اخواني
عندي بعض ارقام في ملف اكسل . من اخذ نسخ واروح في برنامج واشغل المشروع وافتح داتا كريد فيو واسوي لصق يجيب فقط رقم واحد شنو الحل لو سمحتو


الملفات المرفقة صورة/صور
       
الرد }}}
تم الشكر بواسطة:
#2
(23-11-18, 09:16 AM)kaiser_noori كتب :
السلام عليكم اخواني
عندي بعض ارقام في ملف اكسل . من اخذ نسخ واروح في برنامج واشغل المشروع وافتح داتا كريد فيو واسوي لصق يجيب فقط رقم واحد شنو الحل لو سمحتو

العفو ماكو جواب لهذا سوال
الرد }}}
تم الشكر بواسطة:
#3
جرب انقر على اعلا الداتاقريد في اليسار في المربع الصغير بجوار ICCID

ليتم تحديد كامل للداتاقريد ثم اعمل لصق .
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
تم الشكر بواسطة:
#4
(23-11-18, 05:25 PM)حريف برمجة كتب : جرب انقر على اعلا الداتاقريد في اليسار في المربع الصغير بجوار ICCID

ليتم تحديد كامل للداتاقريد ثم اعمل لصق .

مافي نتيجه أخي
الرد }}}
تم الشكر بواسطة:
#5
السبب لانك تقوم بعمل تحرير للخلية لتتمكن من عمل الكلك اليمين
حتى تتمكن من عمل اللصق وبما خلية مستقلة فطبيعي سياخذ رقم واحد فقط

الحل الصح اما ان تقوم بعمل استدعاء ملف الاكسل وجلب منه العمود لادراجه فى الداتا جريد
أو ان تقوم بعمل لصق للعمود المنسوخ فى TextBox مفعل خصائص Multiline
من ثم عمل كود For لاخز قيمة كل سطر من TextBox ليقوم بعمل اضافة لها فى الداتا جريد

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة:
#6
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
            
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(wordword)
            
Next
            Dim cc
iRowiCol As Integer
            
For 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(cciRow)
                            .
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 
الرد }}}
تم الشكر بواسطة: elgokr , asemshahen5



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم