kablayi
جمعه 03 خرداد 1387, 02:18 صبح
سلام ...
اگه به تصویر زیر دقت کنیدبه مشکل من پی می برید ...
این یه فرمه که برای جستجو استفاده میکنم ... برای بار اول که باز میشه مشکلی نداره ... ولی بار دوم که بازش میکنم مقادر جدول دیگه درون اون قرار میگیره ولی هنوز بعضی از ستونهای جدول قبلی که از تو دیتا ست درون اون قرار گرفته، باقی مونده ... باید چیکار کنم که هر بار که فرم اجرا میشه دیتاگرید کامل پاک بشه ...
این کدیه که تو فرم لود نوشتم :
txtfsearch.Text = ""
_controls = lblfsearch.Text
If _controls = "JM-n" Or _controls = "JM-f" Or _controls = "JM-t" Then
strsql2 = "select IDCode as [کد اشتراک],Name as [نام],LastName as [نام خانوادگی],Address as [آدرس],Tell as [تلفن] from customer"
ElseIf _controls = "JR-n" Or _controls = "JR-f" Or _controls = "JR-cn" Then
strsql2 = "select ID as [کد],Name as [نام],LastName as [نام خانوادگی],IDCode as [شماره شناسنامه],FName as [نام پدر],MCode as [کد ملی],TCode as [شماره گواهینامه],CarNu as [پلاک خودرو],Tell as [تلفن],Address as [آدرس] from drivers"
End If
Dim da1 As New OleDbDataAdapter(strsql2, strcon)
ds.Clear()
da1.Fill(ds, "tbtsearch")
DGV1.DataSource = ds
DGV1.DataMember = "tbtsearch"
Me.BindingContext(ds, "tbtsearch").Position = 0
حتی دیتاست رو هم clear میکنم ولی بازم جواب نمیده
اگه به تصویر زیر دقت کنیدبه مشکل من پی می برید ...
این یه فرمه که برای جستجو استفاده میکنم ... برای بار اول که باز میشه مشکلی نداره ... ولی بار دوم که بازش میکنم مقادر جدول دیگه درون اون قرار میگیره ولی هنوز بعضی از ستونهای جدول قبلی که از تو دیتا ست درون اون قرار گرفته، باقی مونده ... باید چیکار کنم که هر بار که فرم اجرا میشه دیتاگرید کامل پاک بشه ...
این کدیه که تو فرم لود نوشتم :
txtfsearch.Text = ""
_controls = lblfsearch.Text
If _controls = "JM-n" Or _controls = "JM-f" Or _controls = "JM-t" Then
strsql2 = "select IDCode as [کد اشتراک],Name as [نام],LastName as [نام خانوادگی],Address as [آدرس],Tell as [تلفن] from customer"
ElseIf _controls = "JR-n" Or _controls = "JR-f" Or _controls = "JR-cn" Then
strsql2 = "select ID as [کد],Name as [نام],LastName as [نام خانوادگی],IDCode as [شماره شناسنامه],FName as [نام پدر],MCode as [کد ملی],TCode as [شماره گواهینامه],CarNu as [پلاک خودرو],Tell as [تلفن],Address as [آدرس] from drivers"
End If
Dim da1 As New OleDbDataAdapter(strsql2, strcon)
ds.Clear()
da1.Fill(ds, "tbtsearch")
DGV1.DataSource = ds
DGV1.DataMember = "tbtsearch"
Me.BindingContext(ds, "tbtsearch").Position = 0
حتی دیتاست رو هم clear میکنم ولی بازم جواب نمیده