سورس برنامه مدیریت پیام های ارسالی کاربران به بانک انلاین(معرفی + php + b4a)

[mirsedali 99]

خیلی عجیبه و جالب

ببین 2 تا چیز اینجا پیش میاد ، یکی اینکه فقط یه بار پست میشه که که بعد از انجا حلقه اس که اشتباه

2 اینکه حلقه کامل انجام میشه و بعد به تعداد حلقه، متغیر پست رو پست میکنه که متغیر پست اخرین فیلد رو داره

به جای پست بیا و دونه دونه ایتم هارو بده به پست استرینگ

واقعا جالبه

این مشکل رو با چند تا از اساتید مطرح میکنم هموطن

ممنون برادر، ولی اگه شما لوگ برنامه رو یه نگاه بندازید، فکر کنم بهتر به جواب برسیم. به نظرم اگه توی اون تاپیک بحث رو ادامه بدیم بهتره، چون کدای php اونجا قرار داده شده و هست.

باز هم تشکر

[susa 25]

داش شهاب سلام!

 

داش چطور میتونم دکمه ویرایش رو به قسمت تایید و حذف اضافه کنم؟

یه jobdone بگو که بشه اون کار رو توش انجام بده و دکمه ویرایش متن توی دیتابیس کار انجام بده!

[shahab.es 5,429]

متوجه نشدم:|

یکم واضح تر بگو، من چیو دقیقا به جاب دان بگم،؟؟؟!!!

[susa 25]

شما برای دکمه حذف و تایید نظر یه jobdone نوشتی. حالا من میخوام ی دکمه ویرایش هم اضافه کنم نمیدونم چی بنویسم براش

Sub jobdone (job As HttpJob)
	If job.Success = True Then
		If job.JobName = "job1" Then
			ProgressDialogHide
			ListView1.Clear
			Try
			Dim str1() As String = Regex.Split("<br>",job.GetString)
			Dim str2() As String
			For i = 0 To str1.Length - 1 
				str2 = Regex.Split("#",str1(i))
				ListView1.AddTwoLines2(str2(1),str2(0),str1(i))	
			Next
			Catch
				ToastMessageShow("اطلاعات جدیدی نیست",False)
				End Try
		End If
	End If
End Sub

این کد jobdone شماس حالا من چه چیزی بهش اضافه کنم که دکمه ویرایش کار کنه واز طریق ادیت تکست متن توی دیتابیس رو تغییر بده؟

[میلاد 441]

درود

این ارور واسه کدوم کتابخونس؟؟

 

[حاج حسین 2,098]

این ارور برای کتابخانه فراخوانیه 

تا نسخه 3.4 اومده 

من لینک 3 برات میزارم اگر کارنداد نسخه های دیگشو تست کن (هم قبلیا هم نسخه های جدیدترش)

[shahab.es 5,429]

شما برای دکمه حذف و تایید نظر یه jobdone نوشتی. حالا من میخوام ی دکمه ویرایش هم اضافه کنم نمیدونم چی بنویسم براش

Sub jobdone (job As HttpJob)
	If job.Success = True Then
		If job.JobName = "job1" Then
			ProgressDialogHide
			ListView1.Clear
			Try
			Dim str1() As String = Regex.Split("<br>",job.GetString)
			Dim str2() As String
			For i = 0 To str1.Length - 1 
				str2 = Regex.Split("#",str1(i))
				ListView1.AddTwoLines2(str2(1),str2(0),str1(i))	
			Next
			Catch
				ToastMessageShow("اطلاعات جدیدی نیست",False)
				End Try
		End If
	End If
End Sub

این کد jobdone شماس حالا من چه چیزی بهش اضافه کنم که دکمه ویرایش کار کنه واز طریق ادیت تکست متن توی دیتابیس رو تغییر بده؟

خوب هموطنم، شما قبل از تایید مگه اطلاعات رو توی یه ادیت تکست نداریدشون...؟؟؟!

خوب همونجا ویرایش میکنید، سند میکنید دیگه...

اگر بخواید سمت سرور انجام بدید، مشکل میشه براتون..

چون تمام کامنت هارو خواهید داشت کنار هم...