sunboy
سه شنبه 19 خرداد 1383, 11:07 صبح
سلام
این کد درست کار می کنه
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
ممنون می شم اگه جواب بدی
این کد درست کار می کنه
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
ممنون می شم اگه جواب بدی