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
با تشکر فراوان
میرم سر اصل مطلب
یه دیتا بیس 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
با تشکر فراوان