欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

Fill Spread

 

‘************************************
‘函數名:    FillSpreadData
‘參數  :    RS:         傳入的記錄集
‘           fpSpread:  被填充的Spread表
‘說(shuō)明  :    將記錄集中的數據自動(dòng)填充到Spread表格中
‘************************************
Public Function FillSpreadData(ByVal rs As Recordset, ByRef fpSpread As Object)
Dim RsMax, RsFields, i, j As Double
    RsMax = rs.RecordCount
    RsFields = rs.Fields.count
    fpSpread.MaxRows = 0
    rs.MoveFirst
    With fpSpread
        .Col = 1
        For i = 1 To RsMax
            .MaxRows = i
            .Row = i
            For j = 1 To RsFields
                .Col = j
                .text = CStr(rs(j - 1))
            Next j
            rs.MoveNext
        Next i
    End With
End Function
‘************************************
‘函數名:    FillSpreadData1
‘參數  :    RS:         傳入的記錄集
‘           fpSpread:  被填充的Spread表
‘說(shuō)明  :    將記錄集中的數據自動(dòng)填充到第一列為按鈕的Spread表格中
‘************************************
Public Function FillSpreadData1(ByVal rs As Recordset, ByRef fpSpread As Object)
Dim RsMax, RsFields, i, j As Double
    RsMax = rs.RecordCount
    RsFields = rs.Fields.count
    fpSpread.MaxRows = 0
    rs.MoveFirst
    With fpSpread
        .Col = 1
        For i = 1 To RsMax
            .MaxRows = i
            .Row = i
            For j = 1 To RsFields
                .Col = j + 1
                .text = CStr(rs(j - 1))
            Next j
            rs.MoveNext
        Next i
    End With
End Function

‘************************************
‘函數名:    FillSpecifySpreadData
‘參數  :    RS:         傳入的記錄集
‘           fpSpread:  被填充的Spread表
‘           top，left: 填充第一行，第一列的位置
‘           BackColor:背景顏色；ForeColor:字體顏色
‘說(shuō)明  :    將記錄集中的數據自動(dòng)填充到Spread表格中
‘************************************
Public Function FillSpecifySpreadData(ByVal rs As Recordset, ByRef fpSpread As Object, Top As Double, Left As Double, BackColor As String, ForeColor As String)
Dim RsMax, RsFields, i, j As Double
    RsMax = rs.RecordCount
    RsFields = rs.Fields.count
    rs.MoveFirst
    With fpSpread
        .Col = Left
        For i = 0 To RsMax - 1
            .Row = Top + i
            For j = 1 To RsFields
                .Col = Left + j
                If rs.Fields(j - 1).Type = adDBTimeStamp Then
                    .text = Format(rs.Fields(j - 1).Value, "yyyy-mm-dd")
                Else
                    .text = CStr(rs(j - 1))
                End If
               
                If BackColor <> "" Then
                    .BackColor = BackColor
                End If
                If ForeColor <> "" Then
                    .ForeColor = ForeColor
                End If
            Next j
            rs.MoveNext
        Next i
    End With
End Function