PDA

View Full Version : سوال: رفتن به خط بعدی در کدهای طولانی



saeed 444
یک شنبه 25 فروردین 1392, 18:16 عصر
با سلام
من برای رفتن به خط بعدی در زمان بلند بودن کد هام ار _ + استفاده میکنم ولی در این کد نتونستم
لطفا در صورت امکان راهنمایی بفرمائید
نمونه کد :

command.CommandText = "update h set ID=@ID ,name=@name ,tel=@tel,date=@date ,fam=@fam ,txetP=@textp ,gozine=@gozine ,gtk=@gtk ,LBL111=@LBL111 ,LBL112=@LBL112 ,LBL113=@LBL113 ,LBL114=@LBL114 ,LBL115=@LBL115 ,LBL116=@LBL116 ,LBL117=@LBL117 ,LBL118=@LBL118 ,LBL119=@LBL119 ,LBL120=@LBL120 ,LBL121=@LBL121 ,LBL122=@LBL122 ,LBL123=@LBL123 ,LBL124=@LBL124 ,LBL125=@LBL125 ,lblChange=@lblChange ,txtT1=@txtT1 ,txtT2=@txtT2 ,txtT3=@txtT3 ,txtT4=@txtT4 ,txtT5=@txtT5 ,txtT6=@txtT6 ,txtT7=@txtT7 ,txtT8=@txtT8 ,txtT9=@txtT9 ,txtT10=@txtT10 ,txtT11=@txtT11 ,txtT12=@txtT12 ,txtT13=@txtT13 ,txtT14=@txtT14 ,txtT15=@txtT15 where ID = '" & TextBox2.Text & "'"

swallow.pa
یک شنبه 25 فروردین 1392, 18:39 عصر
نكته اول
از تابع STRING.FORMAT استفاده كن يك جستجو كني راحت مي فهمي چيكار كني
نكته دوم براي خطهاي بعدي مي توني از vbCrLf استفاده كن اين دوتا كليد رو جستجو كن كارت راه مي افته

saeed 444
یک شنبه 25 فروردین 1392, 20:48 عصر
ممنون
اگه ممکنه یه مثال عملی روی همین کد برام بزنید
تو سرچ چیزی دستگیرم نشد

Mani_rf
دوشنبه 26 فروردین 1392, 01:17 صبح
ته رشته رو ببند ، یک فاصله و یک آندرلاین (_) بگذار ، تو خط جدید & بگذار و ادامه رشته رو بنویس.
اینطوری :

Dim Str as String = "Test Text" _
& "Test Text 2 " _
& "Test Text 3"


این هم کد خودت :

command.CommandText = "update h set ID=@ID ,name=@name ,tel=@tel,date=@date " _
& ",fam=@fam ,txetP=@textp ,gozine=@gozine ,gtk=@gtk ,LBL111=@LBL111 ,LBL112=@LBL112 ,LBL113=@LBL113 ,LBL114=@LBL114 " _
& ",LBL115=@LBL115 ,LBL116=@LBL116 ,LBL117=@LBL117 ,LBL118=@LBL118 ,LBL119=@LBL119 ,LBL120=@LBL120 ,LBL121=@LBL121 " _
& ",LBL122=@LBL122 ,LBL123=@LBL123 ,LBL124=@LBL124 ,LBL125=@LBL125 ,lblChange=@lblChange ,txtT1=@txtT1 ,txtT2=@txtT2 " _
& ",txtT3=@txtT3 ,txtT4=@txtT4 ,txtT5=@txtT5 ,txtT6=@txtT6 ,txtT7=@txtT7 ,txtT8=@txtT8 ,txtT9=@txtT9 ,txtT10=@txtT10 " _
& ",txtT11=@txtT11 ,txtT12=@txtT12 ,txtT13=@txtT13 ,txtT14=@txtT14 ,txtT15=@txtT15 where ID = '" & TextBox2.Text & "'"