وارد کردن حروف VSFlexGrid در تکست

[Hassan2500]

سلام

از دوستان یه کد کوتاه و مختصر میخوام که حروف ردیف اول جدول VSFlexGrid1 در تکست1 وارد بشن

مثال

91896

[محسن واژدی]

سلام علیکم
Private Sub Command1_Click()
Dim i, sR$
With MSFlexGrid1
For i = 0 To .Cols - 1
sR$ = sR$ & .TextMatrix(0, i) & " "
Next 'i
sR$ = Trim(sR$)
Text1 = sR$
End With
End Sub


موفق باشید

[m.4.r.m]

اگه همینو بخوایم تو Adodc بریزیم منظورم تو دیتابیس اون موقع چیکار می کنیم ؟

[Hassan2500]

جناب واژدی کدتون عالیه فقط کد چطوری تغییر باید پیدا کنه که سلول اول حرفش وارد نشه و از سلول دوم به بعد حروف سلولها در تکست وارد بشن

یه سؤال دیگه هم داشتم آیا میشه فوکوس رو در داخل سلولهای VSFlexGrid قرار دارد و نوشت یا نه نمیشه

[محسن واژدی]

اگه همینو بخوایم تو Adodc بریزیم منظورم تو دیتابیس اون موقع چیکار می کنیم ؟ سلام علیکم
میتوانیم کاراکترها را با یک جداکننده در بانک ذخیره کنیم به عنوان مثال اگر کد پست 2 را ویرایش کنیم: Private Sub Command1_Click()
Dim i, sR$
Const sSEP$ = "< D-SEP >"
With MSFlexGrid1
For i = 1 To .Cols - 1
sR$ = sR$ & .TextMatrix(0, i) & sSEP$
Next 'i
sR$ = Trim(sR$)
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("FieldNam").Value = sR$
Adodc1.Recordset.UpdateBatch
End With
End Sub



کد چطوری تغییر باید پیدا کنه که سلول اول حرفش وارد نشه و از سلول دوم به بعد حروف سلولها در تکست وارد بشن حلقه را از 1 شروع میکنیم (For i = 1)
آیا میشه فوکوس رو در داخل سلولهای VSFlexGrid قرار دارد و نوشت یا نه نمیشه میبخشید زیاد متوجه منظورتون نشدم، البته برای نوشتن در یک سلول از TextMatrix استفاده میکنیم

موفق باشید