دوستان مشکلم در کوءری درستش رو به من بگین لطفا ممنون
Activity.LoadLayout("search1")
Activity.Color=Colors.White
If File.Exists(File.DirInternal,"a.db")=False Then
File.Copy(File.DirAssets,"a.db",File.DirInternal,"a.db")
End If
If Act_Matlab.sq.IsInitialized=False Then
Act_Matlab.sq.Initialize(File.DirInternal,"a.db",False)
End If
EditText1.Color=Colors.Transparent
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub btn_click
Dim b As Button
b=Sender
id=b.Tag
StartActivity(N1)
End Sub
Sub btn1_Click
Dim text As String = EditText1.text
Dim d As String
If text = "" Then
d = "لطفا یک کلمه برای جستجو وارد کنید"
Msgbox2(d, "توجه", "تایید", "", "", LoadBitmap(File.DirAssets, "error.png"))
Return
Else
'\/\/\/\/\/\/\/\//\/\
Dim cur1 As Cursor
cur1=Act_Matlab.sq.ExecQuery("select * From Tbl WHERE fasl LIKE '%"&EditText1.text&"%' OR fasl LIKE '%"&EditText1.text&"%'")
If cur1.RowCount = 0 Then
d = "هیچ موردی یافت نشد!"
Msgbox2(d, "توجه", "تایید", "", "", LoadBitmap(File.DirAssets, "error.png"))
Return
End If
'/\/\/\/\/\//\/\/\/\/\/\
Dim cur As Cursor
cur=Act_Matlab.sq.ExecQuery("select * From Tbl WHERE fasl LIKE '%"&EditText1.text&"%' OR fasl LIKE '%"&EditText1.text&"%'")
Dim h As Int
h=8%y
For i = 0 To cur.RowCount-1
cur.Position=i
'*******
Dim btn As Button
btn.Initialize("btn")
btn.text=cur.GetString("fasl")
btn.Tag=cur.GetInt("id")
btn.TextSize=16
btn.TextColor=Colors.White
If cur.GetInt("fav")=0 Then
Dim im As BitmapDrawable
im.Initialize(LoadBitmap(File.DirAssets,"B.png"))
btn.Background=im
Else
Dim im As BitmapDrawable
im.Initialize(LoadBitmap(File.DirAssets,"B.png"))
btn.Background=im
End If
ScrollView1.Panel.AddView(btn,0,h,100%x,13%Y)
ScrollView1.Panel.Height=(cur.RowCount)*13.5%y
h=h+13%Y
Next
End If
End Sub
سوال
حسینh 50
دوستان مشکلم در کوءری درستش رو به من بگین لطفا ممنون
Activity.LoadLayout("search1") Activity.Color=Colors.White If File.Exists(File.DirInternal,"a.db")=False Then File.Copy(File.DirAssets,"a.db",File.DirInternal,"a.db") End If If Act_Matlab.sq.IsInitialized=False Then Act_Matlab.sq.Initialize(File.DirInternal,"a.db",False) End If EditText1.Color=Colors.Transparent End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub btn_click Dim b As Button b=Sender id=b.Tag StartActivity(N1) End Sub Sub btn1_Click Dim text As String = EditText1.text Dim d As String If text = "" Then d = "لطفا یک کلمه برای جستجو وارد کنید" Msgbox2(d, "توجه", "تایید", "", "", LoadBitmap(File.DirAssets, "error.png")) Return Else '\/\/\/\/\/\/\/\//\/\ Dim cur1 As Cursor cur1=Act_Matlab.sq.ExecQuery("select * From Tbl WHERE fasl LIKE '%"&EditText1.text&"%' OR fasl LIKE '%"&EditText1.text&"%'") If cur1.RowCount = 0 Then d = "هیچ موردی یافت نشد!" Msgbox2(d, "توجه", "تایید", "", "", LoadBitmap(File.DirAssets, "error.png")) Return End If '/\/\/\/\/\//\/\/\/\/\/\ Dim cur As Cursor cur=Act_Matlab.sq.ExecQuery("select * From Tbl WHERE fasl LIKE '%"&EditText1.text&"%' OR fasl LIKE '%"&EditText1.text&"%'") Dim h As Int h=8%y For i = 0 To cur.RowCount-1 cur.Position=i '******* Dim btn As Button btn.Initialize("btn") btn.text=cur.GetString("fasl") btn.Tag=cur.GetInt("id") btn.TextSize=16 btn.TextColor=Colors.White If cur.GetInt("fav")=0 Then Dim im As BitmapDrawable im.Initialize(LoadBitmap(File.DirAssets,"B.png")) btn.Background=im Else Dim im As BitmapDrawable im.Initialize(LoadBitmap(File.DirAssets,"B.png")) btn.Background=im End If ScrollView1.Panel.AddView(btn,0,h,100%x,13%Y) ScrollView1.Panel.Height=(cur.RowCount)*13.5%y h=h+13%Y Next End If End Subعکس اررور را هم قرار دادم
لینک ارسال
به اشتراک گذاری در سایت های دیگر
12 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.