สอบถามเรื่องการเช็คค่าสถานะและการส่งค่าต่อหน่อยครับ

  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}' , akesansit='{42}', akesansitcus='{43}', landsum='{44}', getrai='{45}', getngan='{46}', gettatava1='{47}', gettatava2='{48}' , sakagrow='{49}' , formatfrom2='{50}', qcpimdoc='{51}', qcsentdoc='{52}', assetcheck3='{53}', dassetcheck2='{54}', dassercheckraka2='{55}', dqcpimdoc='{56}', dqcsentdoc='{57}', dassetcheck3='{58}', dassetcheckdoc='{59}', noteqc='{60}', dcasedoc='{61}', dcasemont='{62}', dkeysentdoc='{63}', dkeyfpresent='{64}', trmroom='{65}', rakatrmroom='{66}' where  idcus='{67}'",
          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_dsentdoccbb.Text, dtp_dfpresent.Value.Date.ToString("yyyy/MM/dd"), cbb_dfpresentcbb.Text, dtp_dassetraka.Value.Date.ToString("yyyy/MM/dd"), dtp_dfrimdoc.Value.Date.ToString("yyyy/MM/dd"), dtp_dsentcd.Text, txt_rakateedin.Text, txt_rakasps.Text, txt_rakaall.Text, cbb_ผู้ตรวจ.Text, cbb_ผู้อนุมัติ.Text, txt_numberland.Text, txt_akesansitcus.Text, txt_landsum.Text, txt_ไร่.Text, txt_งาน.Text, txt_ตารางวา.Text, txt_ตารางวา2.Text, cbb_saka.Text, cbb_formatfrom2.Text, cbb_ผู้พิม.Text, cbb_ผู้ออกเล่ม.Text, cbb_ตรวจคุณภาพ.Text, dtp_1.Value.Date.ToString("yyyy/MM/dd"), dtp_2.Value.Date.ToString("yyyy/MM/dd"), dtp_3.Value.Date.ToString("yyyy/MM/dd"), dtp_4.Value.Date.ToString("yyyy/MM/dd"), dtp_5.Value.Date.ToString("yyyy/MM/dd"), dtp_6.Value.Date.ToString("yyyy/MM/dd"), txt_noteqc.Text, dtp_dcasedoc.Value.Date.ToString("yyyy/MM/dd"), dtp_dcasemont.Value.Date.ToString("yyyy/MM/dd"), txt_dkeysentdoc.Value.Date.ToString("yyyy/MM/dd"), txt_dketfpresent.Value.Date.ToString("yyyy/MM/dd"), txt_trmroom.Text, txt_rakatrmroom.Text, txt_eidcus.Text)


        If cmd_excuteNonquery() = 0 Then
            fail("คุณแก้ไขไม่สำเร็จ")
        Else
            ok("คุณแก้ไขสำเร็จ")


            If cbb_status_market.Text = "Completed" Then
                linesend_completed()
            End If

            clear_customer()
            refresh_all_data_user()

        End If
    End Sub

 Private Sub cbb_status_market_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbb_status_market.SelectedIndexChanged

        If cbb_status_market.Text = "Completed" Then
            linesend_completed()
        End If
    End Sub