(اماتورم) یه نگاهی به این کد می اندازی

[sunboy]

سلام

این کد درست کار می کنه


Dim ph As Object, ta As DataRow, t As DataSet1.phoneRow
ph = txtser.Text '// جستجو بر اساس شماره تلفن
t = DataSet11.Tables("phone").Rows.Find(ph)
If Not (t Is Nothing) Then
'Me.lbls.Text = " OK" '// در صورت بیافتن
lbls.Text = t.address
Else
lbls.Text = "Fill" '// در صورت پیدا نکردن
End If


ولی این کار نمی کنه می دونی چرا




Dim ob As Object, tabb As DataSet1.phoneRow
ob = "sadegh"
tabb = DataSet11.Tables("phone").Rows.Find(ob)
If Not (tabb Is Nothing) Then
lbls2.Text = tabb.phone
Else
lbls2.Text = " جستجو موفقیت امیز نبود "
End If


ممنون می شم اگه جواب بدی

[Farhad.B.S]

دوست عزیز ، تازه وارد که نیستی ، این دومین باره که از همین عنوان سوال استفاده میکنی . عنوانی مرتبط با سوالت انتخاب کن تا اگه شخص دیگه ای هم مشکل شما رو داشت بتونه با یه مرور ساده بر روی سوال و جواب قبلی مشکلش رو پیدا کنه.

دوم اینکه دو کدی که نوشتی هیچ فرقی با هم ندارند ، ممکنه نوع / محتویات دو دیتاست یا ساختار بانک یا ... تفاوت داشته باشه . همینطور اینکه منظورت از "درست کار نمیکنه" چیه ؟

[sunboy]

1 ) داش فرهاد مثل این که خیلی قاتی پاتی ها چشم نورتم اینم بر چشم

2) این Error می ده



Input string was not in a correct format.
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.FormatException: Input string was not in a correct format.

Source Error:


Line 188: Dim ob As Object, tabb As DataSet1.phoneRow
Line 189: ob = "sadegh"
Line 190: tabb = DataSet11.Tables("phone").Rows.Find(ob)
Line 191: If Not (tabb Is Nothing) Then
Line 192: lbls2.Text = tabb.phone



گوچیک همه

اچپا اهرانتا ارسا ادقصا