polisoftco
یک شنبه 16 فروردین 1388, 00:26 صبح
با سلام و خسته نباشید و تبریک سال نو
من یک مشکلی داشتم تو VSFlexGrid8 :
میخام کاری کنم که وقتی توی تکست باکس شماره شخص رو نوشتیم و کلید ENTER رو زدیم، فقط دریافتی های اون شخص توی گرید نشان داده بشه نه همشون همچنین جمع دریافتی اون شخص رو هم نشون بده.
ارتباطم ADODC و بانکم SQL SERVER هستش.
این هم کدی که من نوشتم :
If KeyCode = 13 And IsNumeric(txtID.Text) Then
Dim i As Integer
With Adodc1.Recordset
Adodc1.Refresh
.Find ("ID = " & Val(txtID.Text))
txtName.Text = .Fields("accName")
txtDate.Text = .Fields("datework")
txtMK.Text = .Fields("pricework")
txtMG.Text = .Fields("priceg")
همچنین اگه امکانش هست میخام طوری باشه که نام اون شخص رو هم از روی جدول دیگه برام بخونه، یعنی ارتباط جدول (tblAccWork) با جدول مشخصات (tblAccount)
(عکس ضمیمه)
-----------------------------------------------------------------------------------------
میخام سطرهای VSFlexGrid رو یک درمیان رنگی کنم(یک سطر آبی کمرنگ و بعدی پررنگ و بعدی کمرنگ...) و همچنین بعضی از سلولهارو رنگ متنش رو عوض کنم یا رنگ متن ستون خاص رو تغییر بدم.
من یک مشکلی داشتم تو VSFlexGrid8 :
میخام کاری کنم که وقتی توی تکست باکس شماره شخص رو نوشتیم و کلید ENTER رو زدیم، فقط دریافتی های اون شخص توی گرید نشان داده بشه نه همشون همچنین جمع دریافتی اون شخص رو هم نشون بده.
ارتباطم ADODC و بانکم SQL SERVER هستش.
این هم کدی که من نوشتم :
If KeyCode = 13 And IsNumeric(txtID.Text) Then
Dim i As Integer
With Adodc1.Recordset
Adodc1.Refresh
.Find ("ID = " & Val(txtID.Text))
txtName.Text = .Fields("accName")
txtDate.Text = .Fields("datework")
txtMK.Text = .Fields("pricework")
txtMG.Text = .Fields("priceg")
همچنین اگه امکانش هست میخام طوری باشه که نام اون شخص رو هم از روی جدول دیگه برام بخونه، یعنی ارتباط جدول (tblAccWork) با جدول مشخصات (tblAccount)
(عکس ضمیمه)
-----------------------------------------------------------------------------------------
میخام سطرهای VSFlexGrid رو یک درمیان رنگی کنم(یک سطر آبی کمرنگ و بعدی پررنگ و بعدی کمرنگ...) و همچنین بعضی از سلولهارو رنگ متنش رو عوض کنم یا رنگ متن ستون خاص رو تغییر بدم.