ต้องการ refresh datagrid เฉพาะข้อมูลตัวที่เราแก้ไข
ต้องการ refresh datagrid เฉพาะข้อมูลตัวที่เราแก้ไข
ผม refresh ได้แต่มันจะไม่จำค่าที่เราเลือกมา ยกตัวอย่างผมเลือกงานที่จะแก้ไขในวันที่ 9/2/62 แต่พอ refresh ออกมามันกลับแสดงข้อมูลทั้งหมด ผมอยากให้มันแสดงหรือจำค่าที่เราเลือกอ่ะครับ แล้ว refresh เฉพาะ อันนั้น
อันนี้โค๊ดปุ่มแก้ไข
Code (VB.NET)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If confirm("คุณต้องการบันทึกใช่หรือไม่ ?") = vbNo Then Return
sql = String.Format("update customer set docid='{0}', id='{1}', cid='{2}', nsatabun='{3}', objects='{4}', insur='{5}', typepro='{6}' , lidoc='{7}', metasset='{8}', dgetreport='{9}', dsentreport='{10}', dpresents='{11}', teamasset1='{12}', teamasset2='{13}', titlename='{14}', names='{15}', address='{16}', admoo='{17}', adsoi='{18}', adroad='{19}', adtambon='{20}', adaumper='{21}', adcity='{22}', adpost='{23}', referdoc='{24}' ,statusqc='{25}' ,bankname='{26}' ,adbank='{27}',nametidtor='{28}',adtidtor='{29}',dsentdoc='{30}',dsentdoccbb='{31}',dfpresent='{32}',dfpresentcbb='{33}',dassetraka='{34}',dfrimdoc='{35}',dsentcd='{36}',rakateedin='{37}',rakasps='{38}',rakaall='{39}',assetcheck='{40}',assercheckraka='{41}',dpaycom='{42}',dcasedoc='{43}',dcasemont='{44}',dkeysentdoc='{45}',dkeyfpresent='{46}',akesansit='{47}',akesansitcus='{48}',landsum='{49}',getrai='{50}',getngan='{51}',gettatava1='{52}',gettatava2='{53}',sakagrow='{54}' ,formatfrom='{55}',formatfrom2='{56}',timefrom='{57}',dprerakareport='{58}',dvangbillreport='{59}',dgetmonreport='{60}',numsanurraka='{61}',numdubtreport='{62}',numbilltemp='{63}',billreport='{64}',statusnewaccount='{65}',serchage='{66}',namerabpidbill='{67}',dpayofficebig='{68}',statusgetbillasset='{69}' ,billservicedoc='{70}',discount='{71}',displus='{72}',billtravel='{73}',billtotal='{74}',vat7='{75}' ,vat3='{76}',percom='{77}',billcom='{78}',totaloffice='{79}',billcaseper1='{80}',billcaseper2='{81}',billcaseper3='{82}',billcaseofficer='{83}' ,pluscase='{84}' ,totaloffice2='{85}' ,namecom='{86}' ,dpresentraka='{87}',dpresentvangbill='{88}',dpresentgetbill='{89}',numpreraka='{90}',numbillpresent='{91}',billpresent='{92}',statuspresent='{93}',prebillservice='{94}',prediscount='{95}',predisplus='{96}',prebillpresent='{97}',prebilltravel='{98}',prebilltotal='{99}',prevat7='{100}',prevat3='{101}',prepercom='{102}',prebillcom='{103}',pretotaloffice='{104}',prepercaseoffice='{105}',precaseofficer='{106}',precaseplus='{107}',precaseper='{108}',precaseper2='{109}',pretotal='{110}',noteor='{111}',notemarket='{112}',batchdoc='{113}' ,pathfile='{114}' ,sumv7='{115}' ,presumv7='{116}' ,docps='{117}' ,trmroom='{118}' where idcus='{119}'",
txt_edocid.Text, txt_eid.Text, txt_ecid.Text, txt_nsatabun.Text, cbb_object.Text, cbb_insur.Text, cbb_typepro.Text, cbb_lidoc.Text, cbb_metasset.Text, date_getreport.Value.Date.ToString("yyyy/MM/dd"), date_sentreport.Value.Date.ToString("yyyy/MM/dd"), date_present.Value.Date.ToString("yyyy/MM/dd"), txt_tasset1.Text, txt_tasset2.Text, cbb_title.Text, txt_name.Text, txt_ad.Text, txtmoo.Text, txtsoi.Text, txt_road.Text, txttambon.Text, txt_aumpor.Text, cbb_city.Text, txt_post.Text, txt_refer.Text, cbb_status_market.Text, txt_ebankname.Text, txt_adbank.Text, txt_tidtor.Text, txt_adtidtor.Text, dtp_dsentdoc.Value.Date.ToString("yyyy/MM/dd"), cbb_dsentdoc.Text, dtp_dfpresent.Value.Date.ToString("yyyy/MM/dd"), cbb_dfpresent.Text, dtp_dassetraka.Value.Date.ToString("yyyy/MM/dd"), dtp_dfrimdoc.Value.Date.ToString("yyyy/MM/dd"), dtp_dsentcd.Value.Date.ToString("yyyy/MM/dd"), txt_rakateedin.Text, txt_rakasps.Text, txt_rakaall.Text, cbb_ผู้ตรวจสอบ.Text, cbb_ผุ้อนุมัติราคา.Text, dtp_dpaycom.Value.Date.ToString("yyyy/MM/dd"), dtp_dcasedoc.Value.Date.ToString("yyyy/MM/dd"), dtp_dcasemont.Value.Date.ToString("yyyy/MM/dd"), dtp_dkeysentdoc.Value.Date.ToString("yyyy/MM/dd"), dtp_dkeyfpresent.Value.Date.ToString("yyyy/MM/dd"), txt_numberland.Text, txt_akesansitcus.Text, txt_landsum.Text, txt_ไร่.Text, txt_งาน.Text, txt_ตารางวา.Text, txt_ตารางวา2.Text, cbb_saka.Text, txt_fotmatfrom.Text, cbb_formatfrom2.Text, cbb_timefrom.Text, dtp_dprerakareport.Value.Date.ToString("yyyy/MM/dd"), dtp_dvangbillreport.Value.Date.ToString("yyyy/MM/dd"), dtp_dgetmonreport.Value.Date.ToString("yyyy/MM/dd"), txt_numsanurraka.Text, txt_numdubtreport.Text, txt_numbilltemp.Text, txt_billreport.Text, cbb_statusnewaccount.Text, cbb_serchage.Text, cbb_acc1.Text, dtp_dpayofficebig.Value.Date.ToString("yyyy/MM/dd"), cbb_statusgetbillasset.Text, txt_ค่าบริการ.Text, txt_ส่วนลด.Text, txt_ส่วนบวกเพิ่ม.Text, txt_ค่าเดินทาง.Text, txt_รวมเป็นเงิน.Text, txt_vat.Text, txt_ณที่จ่าย.Text, txt_ค่าคอมเปอ.Text, txt_ค่าคอม.Text, txt_รายรับบริษัท.Text, txt_เครสจนท.Text, txt_ค่าเครสเปอ2.Text, txt_เปอเซ็นค่าเครส.Text, txt_ค่าเครสพนักงาน.Text, txt_ส่วนบวกเพิ่มค่าเครส.Text, txt_บริษัทรับสุทธิ.Text, txt_namecom.Text, dtp_dpresentraka.Value.Date.ToString("yyyy/MM/dd"), dtp_dpresentvangbill.Value.Date.ToString("yyyy/MM/dd"), dtp_dpresentgetbill.Value.Date.ToString("yyyy/MM/dd"), txt_numpreraka.Text, txt_numbillpresent.Text, txt_billpresent.Text, cbb_statuspresent.Text, txt_preค่าบริการ.Text, txt_preส่วนลด.Text, txt_preบวกเพิ่ม.Text, txt_preค่าpre.Text, txt_preค่าเดินทาง.Text, txt_preรวมเป็นเงิน.Text, txt_prev7.Text, txt_prev3.Text, txt_preค่าคอมเปอ.Text, txt_preค่าคอม.Text, txt_preรับบริษัท.Text, txt_preเคสเปอ.Text, txt_preค่าเคสพนักงาน.Text, txt_preบวกเพิ่มค่าเคส.Text, txt_preเคสจนท1.Text, txt_preเคสจนท2.Text, txt_preบริษัทสุทธิ.Text, txt_notemarket.Text, txt_noteor.Text, txt_groupdoc.Text, txt_linkfile.Text, txt_รวม7.Text, txt_preรวม7.Text, txt_ps2.Text, txt_trmroom.Text, txt_eidcus.Text) 'cbb_status_market.Text, , statusmarket='{26}'
If cmd_excuteNonquery() = 0 Then
fail("คุณแก้ไขไม่สำเร็จ")
Else
ok("คุณแก้ไขสำเร็จ")
clear_customer()
refresh_all_data_user()
End If
End Sub
อันนี้โค๊ด refresh
Code (VB.NET)
Private Sub refresh_all_data_user()
sql = "select docid,id,batchdoc,titlename+ +names,adtambon,adaumper,adcity,dassetraka,teamasset1,statusqc,sumv7,presumv7 from customer"
dtg_marketedit.DataSource = cmd_dataTable()
change_all_column()
End Sub
อันนี้โค๊ดปุ่มค้นหาวันที่
Code (VB.NET)
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
sql = String.Format("select docid,id,batchdoc,titlename+ +names,adtambon,adaumper,adcity,dassetraka,teamasset1,statusqc,sumv7,presumv7 from customer where dgetreport like '" & dtp_1.Value.ToString("yyyy-MM-dd") & "'")
dtg_marketedit.DataSource = cmd_dataTable()
dtg_marketedit.Columns(0).Width = 130
dtg_marketedit.Columns(1).Width = 60
dtg_marketedit.Columns(2).Width = 60
dtg_marketedit.Columns(3).Width = 160
dtg_marketedit.Columns(4).Width = 60
dtg_marketedit.Columns(5).Width = 60
dtg_marketedit.Columns(6).Width = 60
dtg_marketedit.Columns(7).Width = 60
dtg_marketedit.Columns(8).Width = 60
dtg_marketedit.Columns(9).Width = 60
dtg_marketedit.Columns(10).Width = 50
dtg_marketedit.Columns(11).Width = 80
change_all_column()
End Sub
Tag : .NET, VB.NET, VS 2010 (.NET 4.x)
Date :
2019-02-26 16:58:57
By :
futurezax
View :
792
Reply :
1
ตอน refresh ก็ select มาตามที่ต้องการ ครับ
เช่นอาจจะ ต่อด้วย ปุ่มค้นหาวันที่ แทนที่จะ เรียกใช้ refresh_all_data_user()
Date :
2019-02-26 19:29:17
By :
lamaka.tor
Load balance : Server 02