السلام عليكم
عندي مشكلة لما احمل الداتا على List Box في الفيجوال بيسك 6
يعني انا بستخدم هالكود للتحميل الداتا
Do Until .EOF
If IsNull(!fldserialnumber) Then
'Exit Sub
.MoveNext
Else
lstfind.AddItem !fldserialnumber
lstfind.ItemData(lstfind.NewIndex) = !fldid
.MoveNext
End If
Loop
يعني لما "lstfind.NewIndex" توصل ل قيمة 32767
القيمة اللي بعدها يحولها الى -32767
و يعطيني Error msg: Invalid property array index.
فشو الحل بهالحالة لان عندي داتا كثير اكثر من 33 الف
اتمنى تجاوبوني بسرعة لان البرنامج واقف ولا يشتغل بسبب هالمشكلة
الف شكر ومع التحية

