چگونگی استفاده از دو متغییر متفاوت در لیست ویو

[marius 23]

با سلام دوستان چجوری از دو متغییر متفاوت در لیست ویو استفاده بکنم

نقل قول

       cur1=sql1.ExecQuery("SELECT * FROM Define")
	   For i = 0 To cur1.RowCount-1
       cur1.Position=i
	   Next
	   cur2=sql1.ExecQuery("Select * FROM Define WHERE AR = 1")
	   For i = 0 To cur2.RowCount-1
       cur2.Position=i
	   
	   LVT.AddTwoLines(cur1.GetString("SV"),cur2.GetString("PV"))
	   Next 

 

 

[مجید آرتا 5,874]

سلام

سوالتون اصلا مشخص نیست در مورد چیه ؟ چیکار میخوایید انجام بدید.

حداقل کمی دست به قلم میشدید توضیح می دادید

 

[marius 23]

ساری فکر کردم شاید کد گویا باشه

به این صورت که من میخوام دوتا متغیر با کوئری های بالا بگیرم

یکیو با این

   cur1=sql1.ExecQuery("SELECT * FROM Define")
	   For i = 0 To cur1.RowCount-1
       cur1.Position=i
	   Next

و یکیو با این

  cur2=sql1.ExecQuery("Select * FROM Define WHERE AR = 1")
	   For i = 0 To cur2.RowCount-1
       cur2.Position=i

 بعدش در لیست ویوو لود بکنم

کلا اینجوری نوشتم

  cur1=sql1.ExecQuery("SELECT * FROM Define")
	   For i = 0 To cur1.RowCount-1
       cur1.Position=i
	   Next
	   cur2=sql1.ExecQuery("Select * FROM Define WHERE AR = 1")
	   For i = 0 To cur2.RowCount-1
       cur2.Position=i
	   
	   LVT.AddTwoLines(cur1.GetString("SV"),cur2.GetString("PV"))
	   Next 

مشکل اینجاست که در محل قرار دادن next پیش میاد . اولی رو درست نشون میده و کلیه داده ها رو طبق کوئری لیست میکنه میاره ولی متغیر دوم رو فقط آخرین سطر دیتا رو در همه تکرار میکنه

مثلا بجای

 1      5

2        2

5        7

نشون میده

5    5

5    2

5    7

متاسفانه من فارسی زبان نیستم. ببخشید اگر توضیحاتم واضح نیست

[arastooms 1,046]

سلام 
ایندا باید بگم که کد ها به نظر من اشتباه است و باید بهتر بشه چون در چرخه درست کار نمیکنه 

این کاری که من فکر میکنم می تونید انجام بدیدبستگی داره که مقادیر 2 کرسور برابر هست با نه 

یعنی اگر کرسور اول 4 مقدار میگیره کورسور دوم هم 4 مقدار میگیره دقیقا میتونید از map استفاده کنید
هر دو رو بریزید تو مپ و بعد از مپ بگیرید بریزید در لیست ویو

یا میتونید از 2 تا لیست استفاده کنید که مقادیر کرسر اول در یک لیست و دوم در یک لیست و بعد بدید به لیست ویو

البته ممکنه عزیزان فرمان و کد منطقی تری پیشنهاد بدن که منم خوشحال میشم یاد بگیرم 
موفق باشید

[امین مهدی نژاد 2,141]

ویرایش شده کد شما این میشه. که جواب میده

cur1=sql1.ExecQuery("SELECT * FROM Define")
cur2=sql1.ExecQuery("Select * FROM Define WHERE AR = 1")
	For i = 0 To cur1.RowCount-1
       		cur1.Position=i
		If i<cur2.RowCount Then
       			cur2.Position=i
	  	 	LVT.AddTwoLines(cur1.GetString("SV"),cur2.GetString("PV"))
         End If
	   Next