PDA

View Full Version : مشکل در رکورد زیاد در VSFLESXGRAID



farzinf
یک شنبه 07 فروردین 1390, 18:27 عصر
سلام

میرم سر اصل مطلب
یه دیتا بیس SQL دارم تقریبا با 2000 رکورد این رکورد ها و یک تابع که این رکورد ها را تو فکس گراید لود می کنه دوستان مشکلم اینجاست وقتی اطلاعات لود میشه تا رکورد 1010 لود میشه بقیش لود نمی شه یعنی سطر ایجاد می شه ولی هیچ اطلاعاتی نیست داخلش

من فک کردم شاید این رکورد مشکل داره رفتم او رکوردو پاک کردم ولی وشکل حل نشد

و جالب ایجاست که وقتی این تابع لود کردن اطلاعات (همونی که بالا گفتم) دوبار فراخوانی می کنم اطلاعات کامل لود میشه یعنی همه ی اطلاعات کامل لود می شه

این تابع لود اطلاعاته


Private Sub vsload()

Call LoadAll
Set VSFlexGrid1.DataSource = Rst
VSFlexGrid1.Refresh

Rst.Close
Conn.Close
Set Conn = Nothing
Set Rst = Nothing

VSFlexGrid1.TextMatrix(0, 1) = "ش کارت"
VSFlexGrid1.TextMatrix(0, 2) = "ش گروه"
VSFlexGrid1.TextMatrix(0, 3) = "نام"
VSFlexGrid1.TextMatrix(0, 4) = "نام خانوادگي"
VSFlexGrid1.TextMatrix(0, 5) = "شماره ملي"
VSFlexGrid1.TextMatrix(0, 6) = "تاريخ تولد"
VSFlexGrid1.TextMatrix(0, 7) = "تلفن"
VSFlexGrid1.TextMatrix(0, 8) = "ش بيمه"

Dim i As Integer

If VSFlexGrid1.Rows > 1 Then

For i = 1 To (VSFlexGrid1.Rows - 1)
VSFlexGrid1.TextMatrix(i, 0) = i
'If VSFlexGrid1.TextMatrix(i, 7) = -1 Then
' VSFlexGrid1.TextMatrix(i, 7) = "مرد"
'ElseIf VSFlexGrid1.TextMatrix(i, 7) = 0 Then
' VSFlexGrid1.TextMatrix(i, 7) = "زن"
'End If
VSFlexGrid1.TextMatrix(i, 6) = MESHAMSI.Convert_Date(VSFlexGrid1.TextMatrix(i, 6), Gregorian_, HijriShamsi_)
'اينجا بايد شماره گروه را به نام گروه تبديل کنم
Next

VSFlexGrid1.ColAlignment(-1) = flexAlignRightCenter
VSFlexGrid1.AutoSizeMode = flexAutoSizeColWidth
VSFlexGrid1.AutoSize 0, VSFlexGrid1.Cols - 1, False, 50
VSFlexGrid1.SelectionMode = flexSelectionByRow
VSFlexGrid1.AllowSelection = False

End If

VSFlexGrid1.Refresh
End Sub


توضیح اینکه تابع LoadAll ارتباط با بانک SQL برقرار می کنه


اینم مشخصات فلکسه


VSFlexGrid1.DataMode = flexDMBoundBatch
VSFlexGrid1.AllowBigSelection = False
VSFlexGrid1.AllowSelection = False
VSFlexGrid1.RightToLeft = True
VSFlexGrid1.BorderStyle = flexBorderNone
VSFlexGrid1.BackColorBkg = &H8000000F
VSFlexGrid1.ExplorerBar = flexExSort
VSFlexGrid1.SelectionMode = flexSelectionByRow
VSFlexGrid1.FocusRect = flexFocusNone
VSFlexGrid1.HighLight = flexHighlightAlways
VSFlexGrid1.BackColorAlternate = &HE6E6E6
VSFlexGrid1.ScrollTrack = True
VSFlexGrid1.Refresh

SQLQuery = "Select id ,id_Group, fname, lname , id_m ,date_birth,phone,id_b From eshterak"

Call vsload


با تشکر فراوان

farzinf
دوشنبه 08 فروردین 1390, 15:36 عصر
حداقل یکی می یومد یه دروغی می گفت از یجایی مشکل می گرفت آدم تو این فروم نا امید می شه

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

خواهش مدیران یه فکری بکنن نه بخاطر ما بلکه بخاطر خود فروم فک کنم داره کم کم به آخریای عمرش نزدیکه میشه

farzinf
دوشنبه 08 فروردین 1390, 15:43 عصر
من مشکلم حل شد

مشکل اینجا بود که زود می بسم رکوردست رو


If Rst.State = 1 Then Rst.Close
If Conn.State = 1 Then Conn.Close
Set Conn = Nothing
Set Rst = Nothing