m2011kh
جمعه 29 دی 1391, 20:03 عصر
سلام دوستان.
من از این کد برای اضافه کردن موردی به گریدم استفاده میکنم:
With VSFlexGrid1
.ColWidth(0) = 3000
.ColWidth(1) = 3000
.ColWidth(2) = 3000
.ColWidth(3) = 3000
.ColWidth(4) = 3000
.ColWidth(5) = 3000
.ColWidth(6) = 3000
.ColWidth(7) = 3000
.ColWidth(8) = 3000
.ColWidth(9) = 3000
.ColWidth(10) = 3000
.ColWidth(11) = 3000
.TextMatrix(0, 0) = "نام"
.TextMatrix(0, 1) = "نام خانوادگي"
.TextMatrix(0, 2) = "سن"
.TextMatrix(0, 3) = "نسبت"
.TextMatrix(0, 4) = "شماره تماس"
.TextMatrix(0, 5) = "شماره تماس محل کار"
.TextMatrix(0, 6) = "شماره موبايل"
.TextMatrix(0, 7) = "شماره موبايل دوم"
.TextMatrix(0, 8) = "نشاني پست الکترونيکي"
.TextMatrix(0, 9) = "نشاني"
.TextMatrix(0, 10) = "مدرسه"
.TextMatrix(0, 11) = "دانشگاه"
.TextMatrix(0, 12) = "شغل"
.TextMatrix(txtSearch, 0) = FirstNa.Text
.TextMatrix(txtSearch, 1) = LastNa.Text
.TextMatrix(txtSearch, 2) = Old.Text
.TextMatrix(txtSearch, 3) = Nesbat.Text
.TextMatrix(txtSearch, 4) = PhonNumberHome.Text
.TextMatrix(txtSearch, 5) = PhoneNumberWork.Text
.TextMatrix(txtSearch, 6) = MibileNumber.Text
.TextMatrix(txtSearch, 7) = MobileNumbertwo.Text
.TextMatrix(txtSearch, 8) = Email.Text
.TextMatrix(txtSearch, 9) = address.Text
.TextMatrix(txtSearch, 10) = School.Text
.TextMatrix(txtSearch, 11) = danehgah.Text
.TextMatrix(txtSearch, 12) = Work.Text
End With
تا حدودی مطمئنم که کدم درسته و تا نهمی رو هم انجام میده ولی همین که به دهمی میرسه که ایجاد کنه اررور میده.
از راهنمایی هاتون ممنون میشم.
من از این کد برای اضافه کردن موردی به گریدم استفاده میکنم:
With VSFlexGrid1
.ColWidth(0) = 3000
.ColWidth(1) = 3000
.ColWidth(2) = 3000
.ColWidth(3) = 3000
.ColWidth(4) = 3000
.ColWidth(5) = 3000
.ColWidth(6) = 3000
.ColWidth(7) = 3000
.ColWidth(8) = 3000
.ColWidth(9) = 3000
.ColWidth(10) = 3000
.ColWidth(11) = 3000
.TextMatrix(0, 0) = "نام"
.TextMatrix(0, 1) = "نام خانوادگي"
.TextMatrix(0, 2) = "سن"
.TextMatrix(0, 3) = "نسبت"
.TextMatrix(0, 4) = "شماره تماس"
.TextMatrix(0, 5) = "شماره تماس محل کار"
.TextMatrix(0, 6) = "شماره موبايل"
.TextMatrix(0, 7) = "شماره موبايل دوم"
.TextMatrix(0, 8) = "نشاني پست الکترونيکي"
.TextMatrix(0, 9) = "نشاني"
.TextMatrix(0, 10) = "مدرسه"
.TextMatrix(0, 11) = "دانشگاه"
.TextMatrix(0, 12) = "شغل"
.TextMatrix(txtSearch, 0) = FirstNa.Text
.TextMatrix(txtSearch, 1) = LastNa.Text
.TextMatrix(txtSearch, 2) = Old.Text
.TextMatrix(txtSearch, 3) = Nesbat.Text
.TextMatrix(txtSearch, 4) = PhonNumberHome.Text
.TextMatrix(txtSearch, 5) = PhoneNumberWork.Text
.TextMatrix(txtSearch, 6) = MibileNumber.Text
.TextMatrix(txtSearch, 7) = MobileNumbertwo.Text
.TextMatrix(txtSearch, 8) = Email.Text
.TextMatrix(txtSearch, 9) = address.Text
.TextMatrix(txtSearch, 10) = School.Text
.TextMatrix(txtSearch, 11) = danehgah.Text
.TextMatrix(txtSearch, 12) = Work.Text
End With
تا حدودی مطمئنم که کدم درسته و تا نهمی رو هم انجام میده ولی همین که به دهمی میرسه که ایجاد کنه اررور میده.
از راهنمایی هاتون ممنون میشم.