refresh كردن يك datagrid

[abbaspour]

با سلام خدمت دوستان محترم
1.من يه datagrid دارم كه اطلاعاتش براساس 4 فيلد filter يا جستجو مي شن ولي اگر يك بار براساس يكي از فيلدها جستجو بشن براي بار دوم datagrid موجود refresh نمي شه
و اطلاعات قبلي رو هم نمايش مي ده.
2.مورد دوم: مي خوام عنوان ستونهاي datagrid فارسي باشن.(فيلدها رو از يه بانك access ميخونه)
به كمكتون فوري فوري نياز دارم. :ناراحت::افسرده:

[EffatBandehlou]

دوست عزيز وقتي فيلتر شده يعني Source آن تغيير كرده
براي برگشتن به حالت اول بايد دوباره source را تغيير داده و refresh كنيد

[Fery666]

سلام به شما دوست عزيز.
وقتي شما datagrid رو فيلتر مي كنيد فقط يك شخص يا يك ركورد را نمايش مي دهد و براي برگشت همه ركورد به datagrid مي توانيد از دستور زير استفاده كنيد.

ado1.RecordSource = "Select * From Tabel"
ado1.Refresh

در فورم لود بايد ado را به datagrid معرفي كنيد
Set Datagrid.DataSource = ado1
با اين كار بعد از فيلتر كردن دوباره همه ركورد ها به نمايش در ميان.

و در مورد قسمت دوم :
شما مي تونين بدون كد نويسي اي كارو انجام بدين
يعني روي datagrid راست كليك كنيد و گزينه properties رو بزنيد و تب Columns رو بزن و هر فيلد رو انتخاب كن و اسم و datafield رو وارد كن.
به همين راحتي:چشمک:

[abbaspour]

با تشكر
1.اين كار رو كردم ولي اطلاعات فيلتر شده قبلي رو هم توي GATAGRID نمايش مي ده.
2.دوست عزيز فيلدهامو از TABLE مي خونه نمي تونم تغييرش بدم.:چشمک:
مرسي از كمكتون

[xxxxx_xxxxx]

براي عنوان فيلدهاي DataGrid بعد از ارتباط با بانك به اين صورت تغييرشون بديد:


DataGrid1.Columns.Item(0).Caption = " فيلد1"
DataGrid1.Columns.Item(1).Caption = " فيلد2"
DataGrid1.Columns.Item(2).Caption = " فيلد3"

[abbaspour]

مرسي از كمكتون
پس سوال اولم چي ميشه.؟؟:افسرده::ناراحت:

[xxxxx_xxxxx]

مرسي از كمكتون
پس سوال اولم چي ميشه.؟؟:افسرده::ناراحت:
اون قسمت از برنامه رو اينجا قرار بديد

[abbaspour]

DataGrid1.Refresh
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
con.Open "DSN=aa;DBQ=Y:\mali.mdb;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"
rs.Open "Select * from kholasepay where date_vsl > '" & Str(Me.txt_date_vsl2.Text) & "' AND date_vsl < '" & Str(Me.txt_date_vsl2.Text) & "' OR shrh_ksrt='" & Me.txt_sayer.Text & "' OR ghrd = '" & Me.cmb_nam_ghrd.Text & "' OR noe_prdkht='" & Me.cmb_noe_prdkht.Text & "'", con, adOpenKeyset, adLockPessimistic
' OR shrh_ksrt='" & Me.txt_sayer.Text & "' OR ghrd = '" & Me.cmb_nam_ghrd.Text & "' OR noe_prdkht='" & Me.cmb_noe_prdkht.Text & "'
Set DataGrid1.DataSource = rs
DataGrid1.Refresh

راستي فيلد date_vsl يه فيلد text هست با فرمت xx/xx/xx در صورتي كه بخوام ببينم مقدار اين فيلد بين دو تاريخ وارد شده در textbox هام هست بايد چيكار كنم؟