سؤال

ولدي البرمجية التالية:

Dim i As Integer = dtResult.Rows.Count
For i = 0 To dtResult.Rows.Count Step 1
    strVerse = blHelper.Highlight(dtResult.Rows(i).ToString, s)
    ' syntax error here
    dtResult.Rows(i) = strVerse 
Next

وأريد أن أضيف strVerse إلى الصف الحالي.

وماذا أفعل الخطأ؟

هل كانت مفيدة؟

المحلول

والمشكلة كنت تقوم بتشغيل إلى أن كنت في محاولة ليحل محل كائن الصف بأكمله. أن لا يسمح به API DataTable و. بدلا من ذلك لديك لتحديث القيم في الأعمدة من كائن التوالي. أو إضافة صف جديد إلى المجموعة.

لتحديث العمود صف معين يمكنك الوصول إليه بالاسم أو مؤشر. على سبيل المثال هل يمكن كتابة التعليمات البرمجية التالية لتحديث عمود "فو" ليكون strVerse قيمة

dtResult.Rows(i)("Foo") = strVerse

نصائح أخرى

ويمكنك الوصول إلى أعمدة حسب مؤشر، بالاسم وبعض <لأ href = "http://msdn.microsoft.com/en-us/library/system.data.datarow.item.aspx" يختلط = "noreferrer" > طرق أخرى :

dtResult.Rows(i)("columnName") = strVerse

وربما يجب عليك التأكد من DataTable الخاص بك لديه بعض الأعمدة أولا ...

Dim myRow() As Data.DataRow
myRow = dt.Select("MyColumnName = 'SomeColumnTitle'")
myRow(0)("SomeOtherColumnTitle") = strValue

والقانون فوق instantiates على DataRow. حيث "دينارا" هو DataTable و، وتحصل على التوالي عن طريق اختيار أي عمود (وأنا أعلم، يبدو الوراء). ثم يمكنك بعد ذلك تعيين قيمة مهما الصف الذي تريد (اخترت الصف الأول، أو "myRow (0)")، مهما كان العمود الذي تريد.

مرخصة بموجب: CC-BY-SA مع الإسناد
لا تنتمي إلى StackOverflow
scroll top