[kaiser_noori]

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

[kaiser_noori]

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

العفو ماكو جواب لهذا سوال

[حريف برمجة]

جرب انقر على اعلا الداتاقريد في اليسار في المربع الصغير بجوار ICCID

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

[kaiser_noori]

(23-11-18, 05:25 PM)حريف برمجة كتب : جرب انقر على اعلا الداتاقريد في اليسار في المربع الصغير بجوار ICCID

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

مافي نتيجه أخي

[elgokr]

السبب لانك تقوم بعمل تحرير للخلية لتتمكن من عمل الكلك اليمين

حتى تتمكن من عمل اللصق وبما خلية مستقلة فطبيعي سياخذ رقم واحد فقط

الحل الصح اما ان تقوم بعمل استدعاء ملف الاكسل وجلب منه العمود لادراجه فى الداتا جريد

أو ان تقوم بعمل لصق للعمود المنسوخ فى TextBox مفعل خصائص Multiline

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

تحياتى لك

وتمنياتى لك التوفيق

[HASAN6.0]

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