تنظیمات دیتاگرید [بایگانی]

soduko021

پنج شنبه 10 فروردین 1391, 15:19 عصر

سلام دوستان خسته نباشید
دوستان من یک دیتاگرید دارم و می خواهم فاصله ی اینها رو هرجور که می خواهم تنظیم کنم یعنی یک فیلد کوچک باشه و یکی بزرگ در هنگام اجرای برنامه میشه اما برنامه رو باز و بسته میکنم فاصله اش همون اولی میشه

MohammadGh2011

پنج شنبه 10 فروردین 1391, 15:45 عصر

سلام عليکم
روي Datagrid کليک راست کنيد و گزينه ي Properties رو انتخاب کنيد و از پنجره اي که باز ميشه به تب LayOut بريد و در قسمت Width فاصله رو تنظيم کنيد و براي انتخاب ستون ها هم از قسمت Columns ميتونيد استفاده کنيد.

موفق باشيد

رامین مرادی

پنج شنبه 10 فروردین 1391, 17:30 عصر

اگه می تونی توی کد نویسی انجام بده
من خودم شخصا اکثر تنظیمات رو توی کد نویسی انجام می دم چون کنترلش یه کم راحتره من اینطوری عادت کردم.اگه تونستی تو کد نویسی انجام بده

soduko021

پنج شنبه 10 فروردین 1391, 18:30 عصر

سلام من یک مشکل در حذف کردن فیلد های دیتا گرید دارم وقتی روی دکمه delete میزنم این اررور رو میده
84875
و در یک سوال دیگه داشتم چطوری میشه با کد نویسی وقتی هیچی در دیتاگرید نبود دیگه قسمت اتونامبر از ادامه قبلی ها نباشه از دوباره شروع بشه
ممنون

رامین مرادی

پنج شنبه 10 فروردین 1391, 18:41 عصر

این ارور مربوط به دستور سلکت شما می تونه باشه
اگه دیتا گریدتون هم خالی باشه و بخواهید دکمه حذف را بزنید احتمال به وجود آمدن خطا هم وجود داره شما می تونید با یک کنترل کننده خطا اون مدیریت کنید.
قبل از انجام عمل حذف بهتره یه بار رکورد ست رو چک کنید که کانتش کمتر از صفر نباشه ...

درباره اتو نامبر باید بگم که این کارو بانک اطلاعاتی برای شما انجام میده در اون باره نمی تونم نظری بدم ولی خودتون می تونید یه اتو نامبر دستی بسازید به این طریق که با هر بار اضافه کردن داده ها یک واحد اون عدد رو افزایش بدید یعنی عدد قبلی +1 و قبل از اضافه کردن عدد جدید چک کنید که تعداد رکورد های دیتا گرید اگه کمتر از صفر بود شماره گذاری رو از اول شروع کنه مثلا" از 1 به همین ترتیب
اگه مشکلی بود در خدمتیم

soduko021

پنج شنبه 10 فروردین 1391, 19:14 عصر

اما دوست عزیز من منظور شما در مورد اررور حذف نفمیدم میشه یک سورس کد بزارید یا بیشتر توضیح بدین
این کدهای که برای عمل حذف نوشتم
On Error Resume Next
If MsgBox("Delete!", vbYesNo, "Caution") = vbNo Then Exit Sub
'If (Adodc1.Recordset.RecordCount > 0) Then
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
'Form1.Refresh
Adodc1.Refresh
DataGrid1.Refresh
Adodc1.Recordset.MoveFirst
Call ref
Call txt_clear

رامین مرادی

شنبه 12 فروردین 1391, 12:33 عصر

تا جایی که من کار کردم و دیدم بعد از عمل حذف نیازی نیست دستور آپدیت رو بنویسیم
که نوشتن کلمه آپدیت در کامپایل شما به این معنی است که شما دارید یه رکورد جدید ی رو اضافه می کنید یا ویرایش که شما نباید اون آپدیت رو بنویسید
اگه مشکلی بود در خدمتیم
On Error Resume Next
If MsgBox("Delete!", vbYesNo, "Caution") = vbNo Then Exit Sub
'If (Adodc1.Recordset.RecordCount > 0) Then
Adodc1.Recordset.Delete
'Form1.Refresh
Adodc1.Refresh
DataGrid1.Refresh
Adodc1.Recordset.MoveFirst
Call ref
Call txt_clear