Printable View
تونستم درستش کنمنقل قول:
نوشته شده توسط Dr.Bronx
با این کدها:
Private Sub Command1_Click()
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\libproj.mdb;Persist Security Info=False"
Conn.Open
rs.Open "select BookID, bookName from lbook", Conn, adOpenStatic, adLockOptimistic
VSFlexGrid1.LoadArray rs.GetRows
خوب قطعا اشتباه هست
همین کد هارو اینطوری بنویسید
Private Sub Command1_Click()
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\libproj.mdb;Persist Security Info=False"
Conn.Open
rs.Open "select BookID, bookName from lbook", Conn, adOpenStatic, adLockOptimistic
set VSFlexGrid1.datasource = rs
end sub
موفق باشید./
خیلی ممنون این بهتر شد چون برای خالی بودنش یه شرط می خواستم بزارم کار نمی کرد
خیلی ممنون
اما حالا یه سوال دیگه
اینکه چطوری می تونم عرض یه ستون رو زیاد کنم یعنی اندازه متن باشه؟
نقل قول:
نوشته شده توسط NEEON2
vsflex.colwidth(1) = 500
موفق باشید ./
سلام
من از خاصیت RowColChange دیتاگرید برای انتخاب یک سطر و نمایش اطلاعات سطر select شده مثلا توی یه تکس باکس استفاده میکنم.اینطوری:
tbx_name.Text = Adodc1.Recordset.Fields("name")
میخوام ببینم توی vsflex چطور باید عمل کنم؟
هم می تونید از Rowchange و هم از Selchange استفاده کنید
موفق باشید ./
چگونه میتوان Format مربوط به یک ستون عددی که همیشه بایستی دو رقم بعد از ممیز را نمایش دهد به VSFlexGrid فهماند؛ البته علامت ممیز را به صورت / میخواهم. مثلا عدد 12.5 را به صورت 12/50 و عدد 11 را به صورت 11/00 نمایش دهد؟
سلام
شما باید از خاصیت ColFormat در گرید استفاده کنید.
مثلا در مورد flexgrid بنویسید:
flexgrid.ColFormat(1) = Format(Recordset!Total_Price, "#,##0;(#,##0)")فرمت و فیلد مورد نظر را در کد بالا جایگذاری میکنیم
از اینکه توجه کردین، خیلی ممنون. اما پاسخ شما عملی نیست متأسفانه. در حالت عادی برای دو رقم بعد از ممیز کافی است که چنین باشد:
ColFormat(5) = "#.##"
من چند حالت زیر را امتحان کردم اما جواب نگرفتم، چون میخواهم که علاوه براینکه دو رقم بعد از ممیز را نمایش دهد، علامت ممیز را با کاراکتر "/" نمایش دهد نه "."
ColFormat(5) = Format(Recordset!VAZN), "#/##")
ColFormat(5) = Format(Recordset!VAZN), "0/00")
ColFormat(5) = Replace$(Format(Recordset!VAZN , "0.00"), ".", "/")
سلام
من ميخوام از Vs Flex Grid براي ورود اطلاعات استفاده كنم چه جوري ميتونم format ستوني رو جوري ست كنم كه فقط تاريخ فارسي قبول كنه ، آيا راهي داره ؟
سلام دوستان ، یک سوال فنی داشتم :
چه جوری میشه گریدی رو که به صورت Bound به دیتابیس وصل شده رو قابلیت Sort درش فعال کرد . یعنی Explorer = flexexsort کار کنه . می خوام روی Header هر ستون که کلیک کردم . بر اساس اون ترتیب بشه .
با سلام
برای دانلود سورس دفترچه تلفنی که با flex Grid نوشته بودم به سایت برنامه نویسان بروید
امید وارم خوشتون بیاد
http://www.barnamenevisan.net/showthread.php?t=126
اگه میتونید درباره ذخیره کردن به صورت XML و باز کردن آن توسط کریستال بیشتر توضیح بدید
یا یک نمونه برنامه بزارید که خودم اونو بررسی کنم.
راستش می خواستم برای محدود کردن چاپ از این روش استفاده کنم.
اگه منو راهنمایی کنید ممنون میشم.
VS.SaveGrid App.Path + "\a.xls", flexFileExcel
سلام دوستان عزیز و اساتید محترم یه سوال داشتم : چرا ردیف 0 یا همون تیتر flexgrid رو به اکسل پاس نمیکنه ؟ از ردیف 1 به اکسل میفرسته
سلام : این برنامه شاید از نظر طراحی قشنگ نباشد ولی این برنامه برای ویدویو کلوپ کامل می باشد. امکانات :
1- سورسی که نوشتم کاملا برای vsflex Girid نمایش عکس درون آن همچنین ذخیره عکس در دیتا بیس مفید آشنا میشوید .
2- روش جستجو به صورت پارامترهای SQL و همچنین درج رکورده و ...
3- خود کامپوننت را هم می گذارم حجم فایل زیاد می باشد اگر شد حتماً ببینید با مثال ....
4- گزارش گیری برنامه به دو صورت پیشرفته کیریستال رپورت 9 است ببینید کارآمدترین گزارشگیر.
5- ذخیره عکس در دیتا بیس به صورت ole میباشد و باینری در فیلد Access قرار میگیرد به روش فایلنگ با کمک موتور ADO ....
6 - نمایش فیلم رکورداز فیل از مسیر با Mediplayer
فایل ضمیمه :
----------------------------
s/n bank رمز بانک برنامه خودم : a
نام وپسوند بانک را عوض کردم: a.asd
----------------------
رمز ورود به برنامه: 2
نام کاربري: 2
در صورت سوال پاسخگو هستم پیشنهاد بگذارید با تشکر رومنا hamedromana@yahoo.com
ببخشید اگر دیر شد این هم فایل ضمیمه: لطفا نظرتان را بدهید تشکر نخواستم ، متشکرم
از اینجا دانلو کنید فایل بانک & فایل سورس و ocx , کامپوننت همرا با مثال FlexGirix ...
http://rapidshare.com/files/38502082...pload.rar.html
سلام خدمت اساتید محترم من چطور میتونم دو ردیف متفاوت از دو Vs Flex Grid متفاوت رو با هم مقایسه کنم و موارد غیر یکسان رو به listbox پاس بدم؟
چیش رو میخواید مقایسه کنید ؟
اطلاعات یک فیلد رو ؟
بیشتر توضیح بدید .
موفق باشید ./
دوست عزیز اطلاعات یک فیلد رونقل قول:
نوشته شده توسط Hosna.Soft
در حقیقت من دوتا Vs Flex Grid دارم که در هر کدوم از آنها در col دومش یک سری اسم هست میخوام این دو رو مقایسه کنم و اسمهایی که یکسان نیستند رو در بیارم
نقل قول:
دوست عزیز اطلاعات یک فیلد رو
در حقیقت من دوتا Vs Flex Grid دارم که در هر کدوم از آنها در col دومش یک سری اسم هست میخوام این دو رو مقایسه کنم و اسمهایی که یکسان نیستند رو در بیارم
for i = 1 to vs1.rows
for s = 1 to vs2.rows
if vs1.TextMatrix(i,2) = vs2.TextMatrix(i,2) then
listbox1.additem vs1.textmatrix(i,2)
vs1.row = vs1.row + 1
vs2.row = vs2.row + 2
end if
next i
next s
فکر کنم درست نوشتم .
وی بی دم دست نیست که تست کنم متاسفانه .
تست کنید ببینید چی میشه دیگه
موفق باشید
سلام دوست عزیز خیلی ممنون از محبتتان یه مشکلی که من دارم اینه که فقط من میخوام غیر مشترک ها را بدست بیارم اگه محبت بفرمائید.
یه Not اضافه کنید به بعد اون If
for i = 1 to vs1.rows
for s = 1 to vs2.rows
if not vs1.TextMatrix(i,2) = vs2.TextMatrix(i,2) then
listbox1.additem vs1.textmatrix(i,2)
vs1.row = vs1.row + 1
vs2.row = vs2.row + 1
end if
next i
next s
موفق باشید ./
vs1.row = vs1.row + 1
vs2.row = vs2.row + 1
Hosna جان به این دوتا error میده در ضمن نتایجش تکراری؟
یه نمونه از برنامه در صورت امکان محبت بفرمائیدنقل قول:
نوشته شده توسط Hosna.Soft
خدمت شما دوست عزیز .
موفق باشید ./
Hosna جان دوست عزیز ببخشید که مزاحم میشم اگه جای TAB1 و TAB2 رو عوض کنیم نتیجه درست رو نمیده یعنی این تفاوتها حتما باید در یه TAB خاصی باشه؟ باز از وقتی که به من میزارین نهایت تشکر رو دارمنقل قول:
نوشته شده توسط Hosna.Soft
نقل قول:
نوشته شده توسط niko2008
سلام دوستان من به یه نتیجه رسیدم
VS.FixedRows = 0
VS.SaveGrid App.Path + "\a.xls", flexFileExcel
سلام دوستان چطور میتونیم محتوای vsflexgrid رو به صورت مرتب به TXT فرستاد؟؟؟؟
سلام دوستان
من میخوام بعضی فیلدها فلکس رو بصورت کمبو استفاده کنم و محتویات آنها رو از sql بخونم ، اما به مشکل خوردم.
چون از colcombolist استفاده میکنم ولی فکر کنم باید درون یک حلقه باشد تا تموم رکوردها رو بخونه ، چون اینجوری فقط یک گزینه داره ، لطفا به من کمک کنید. ممنون
for i = 1 to vs1.rowsfor s = 1 to vs2.rowsif not vs1.TextMatrix(i,2) = vs2.TextMatrix(i,2) thenlistbox1.additem vs1.textmatrix(i,2)vs1.row = vs1.row + 1vs2.row = vs2.row + 1end ifnext inext sHosna جان دوست عزیز ببخشید که مزاحم میشم اگه جای TABel1 و TABel2 رو عوض کنیم نتیجه درست رو نمیده یعنی این تفاوتها حتما باید در یه TAB خاصی باشه؟ باز از وقتی که به من میزارین نهایت تشکر رو دارم
آقا من وقتي عنوان ستون هام رو به عنواين فارسي تغيير ميدم خيلي سرعت نمايشش كند ميشه
براي حل اين مشكل بايد چي كار كنم
يعني وقتي عنوان ستونم نام هست طول مي كشه ولي وقتي name طول نمي كشه
با تشكر
چجوری میشه انازه عرض ستون ها رو بصورت دستی عوض کرد. یعنی اندازه دلخواهی بهش داد؟؟؟
چطوری میشه توی vsflex از CheckBox استفاده کرد؟؟؟
با سلام
سئوال اولم این است که چطور می توانم با کلیک در سر ستون، دیتابیس را نیز سورت کنم .
البته کد زیر این کار را انجام می دهد ولی با فونت فارسی مشکل دارد.
LastSort = "[" & VSFlexGrid1.TextMatrix(0, Col) & "]" & IIf(Order = 1, " ASC", " DESC")
Adodc1.Recordset.Sort = LastSort
این کد را یکی از اعضای همین سایت قرارداده است.
سئوال دوم من این است که مثل نرم افزار همکاران سیستم و هلو و سنجه چطور می توانم مستقیماً از قابلیتهای allowaddnew , allowedit در این grid با توجه به ایجاد متغیرها استفاده کنم.من با استفادهاز جدول موقت این کار را انجام دادم. ولی موقعی که با استفاده از صفحه کلید با کلید های جهت دار یا arrow keyمی خواهم یک سطر را اضافه یا حذف کنم به مشکل برمی خودم.
برای سورت کردن grid می تونی در پروپرتی گرید گزینه explorerbar را برابر عدد 7 بگذاری تا با کیلیک بر روی سر ستون گرید سورت شود
زمانی که با بانک اطلاعاتی در حالت datamode برابر با 2 باشد یا باند باشد نمی توان ار این گزینه استفاده کرد.
دوست عزیز چه جوری میشه جدول رو بر اساس یکی از دریف ها مثلا ردیف اول که شماره پرسنلی افراد هست از بزرگ به کوچیک یا بالعکس سرت کرد.
VSFlexGrid1.ColWidth(0) = 810
VSFlexGrid1.Cell(flexcpChecked, VSFlexGrid1.Row, 1) = flexcpChecked
با دستور vsflexgrid1.printgrid اطلاعاتم رو چاپ می کنم. چطوری می تونم بالای صفحه ای که چاپ میشه عنوان قرار بدم؟ مثلا بنویسه: " فرم شماره 1 " و بعد گرید رو چاپ کنه.
سلام
بچه ها من می خوام
توی فلکسی گرید هر سطرو با یه رنگ نشون بده به شرطی که فیلد رزرو جدولم 1 بود قرمز
فیلد پر جدولم 1 بود زرد و اگر هیچ کدوم اینها نبود سبز نشون بده
نتونستم اینکارو بکنم
این کدی که یکی از دوستان برای فوکوس می خواستن رو من با تغییرات خودم انجام دادم ولی ختی وقتی همین کد رو اجرا می کنم از خاصیت textmatrix ایراد میگیره که invalid property ...
کدی که از این تایپیک برداشتم
For i = 0 To vs.Rows
If Text1.Text = vs.TextMatrix(i, 0) Then
vs.SetFocus
vs.Select i, 0
Exit For
End If
Next i
تغییراتشم توی برنامه ی خودم اینه
ولی هیچ کدوم اجرا نشد
میشه خواهش کنم کمکم کنین
For i = 0 To vs.Rows
If vs.TextMatrix(i, 0)=1 Then
CColor = vs.Cell(flexcpBackColor, vs.Row, 0, vs.Row, vs.Cols - 1)
vs.Cell(flexcpBackColor, vs.Row, 0, vs.Row, vs.Cols - 1) = vbBlue
Exit For
End If
Next i
چه ها خو.اهش میکنم کمکم کنین
عجله دارم یه عالمه
ممنون از همتون
سلام
من با کد زیر vs1 خودم را پر می کنم
dim x as integer
vs1.Rows = 1001
vs1.Cols = 4
For i = 1 To 1000
vs1.TextMatrix(i, 0) = i
vs1.TextMatrix(i, 1) = i Mod 2
vs1.TextMatrix(i, 2) = "saeed"
Next i
و با کد زیر برای انتخاب استفاده می کنم
x = x + 10
vs1.Select x, 0, x, 1
خوب حالا یه مشکلی هست موقعی که من اطلاعات را select میکنم اسکرولبار به پایین هدایت نمیشه و کاربر نمیفهمه که کدام رکورد select شده
سلام دوست عزیز .نقل قول:
سلام
من با کد زیر vs1 خودم را پر می کنم
کد PHP:
dim x as integer
کد PHP:
vs1.Rows = 1001
vs1.Cols = 4
For i = 1 To 1000
vs1.TextMatrix(i, 0) = i
vs1.TextMatrix(i, 1) = i Mod 2
vs1.TextMatrix(i, 2) = "saeed"
Next i
و با کد زیر برای انتخاب استفاده می کنم
کد PHP:
x = x + 10
vs1.Select x, 0, x, 1
خوب حالا یه مشکلی هست موقعی که من اطلاعات را select میکنم اسکرولبار به پایین هدایت نمیشه و کاربر نمیفهمه که کدام رکورد select شده
انگار متاسفانه سوال شما رو خیلی دیر دیدم . اما به هر حال جواب شما به صورت زیر هست .
VS.Row = VS.Rows - 1
VS.TopRow = VS.Rows - 1
موفق باشید .
سلام .
چطور باید متن Fixed Column ها رو در حالت Design Time و بدون کد نویسی تغییر داد ؟
یعنی معادل این کد : "vs.TextMatrix(0, 1) = "Barnamenevis
آيا ميشه داخل هر خانه ي vsgride يك چك باكس گذاشت؟؟؟؟
و همينطور می خوام اطلاعات از VSFlexGRid بصورت کلی در پایگاه داده ثبت کنم نه بصورت تک تک یعنی در gridam تعداد 10 تا رکورد وارد کنم بعد در پایگاه داده ذخیره کنم . لطفا راهنمایی کنید .
دوستان وقتی در داخل DataGrid یک سطر رو انتخاب می کنیم داخل Adodc هم همون سطر انخاب میشه حالا این کار رو با VSFlexGrid هم میشود انجام داد
بله میشهنقل قول:
نوشته شده توسط ali reza mansoori 2
باید خاصیت DataMode رو با FlexdmBound مقدار بدید.
آقا كسي جواب اين سوالو بلد نيست؟نقل قول:
نوشته شده توسط مسعود منصوری
سلام دوستان.
امیدوارم سوالم را در جای صحیح مطرح کرده باشم.
چگونه می توان محتویات VsFlexGrid که بصورت درختی است در بانک اطلاعاتی ذخیره کرد و سپس آنرا از بانک خواند (مانند کنترل TreeView).
نقل قول:
نوشته شده توسط kahroba77
vs.ColEditMask(2) = "####/##/##"
اگر فايل setup كامپوننت رو داشته باشيد و نصب كنيد روي vs راست كليك و properties مي زنيد امكانات بيشتري داريد كه يكيش همينه .نقل قول:
چطور باید متن Fixed Column ها رو در حالت Design Time و بدون کد نویسی تغییر داد ؟
یعنی معادل این کد : "vs.TextMatrix(0, 1) = "Barnamenevis
گذاشتن Checkbox در Flexgrid
سلام خدمت دوستان و اساتید محترم
می خواستم بدونم چطور می تونم تو یکی از ستون های Flexgrid یه Checkbox قرار بدم
ممنون میشم اگه جوابمو بدید
سلام دوستان. من تو برنامم از يه datagrid استفاده كردم كه با اين دستور داده ها رو از جدولم ميخونه: Grid1.DataSource = rs (كه rs يه ركورد سته). حالا مشكل اينجاست كه وقتي گريدم داخلش ركورد هست و ميخام اونا پاك بشن و يه ركوردهاي ديگه رو نشون بده اين اررو رو ميده: object already loaded روي همون دستور بالا. فكركنم كه بايد يه جوري datasourceشو پاك كنم و دوباره ست كنم ولي نميدونم چطوري؟