Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Помогите с DataGridView в VB 2005 Добавлено: 01.03.06 14:39  

Автор вопроса:  avdey | ICQ: 219571279 
Как можно просто добавить в ячейку текст без всаких там БД и файлов (как например в MSHFlexGrid MatrixText...)

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 SHDZ



ICQ: 209382104 

Вопросов: 39
Ответов: 244
 Профиль | | #1 Добавлено: 01.03.06 18:00
Пример с бд, нотакже вставляй и просто, грид использовался VFlexGrid, в простом также
Public Sub Build_dbReportName(Optional newId As Long)
Dim qry As String
Dim rst As New ADODB.RecordSet
Dim Row As Long
Dim i As Integer
Dim j As Integer

qry = "select id, Name, Info from " & MyDateBase & "..t_SettingName (NOLOCK)"
With dbReportName
    If newId = 0 Then
        Row = .Row
    End If
    .Cols = 5
    .Rows = 2
    .FixedCols = 2
    .Clear
    
    '.FlexDataSource = g_FDS
    .TextMatrix(0, 2) = "mdx"
    .TextMatrix(0, 3) = "Íàèìåíîâàíèå"
    .TextMatrix(0, 4) = "Èíôî"

' .ColAlignmentFixed = flexAlignCenterCenter
    .ColAlignment(1) = flexAlignLeftCenter
    .ColAlignment(2) = flexAlignLeftCenter
    .ColAlignment(3) = flexAlignLeftCenter
    .ColAlignment(4) = flexAlignLeftCenter
    .ExplorerBar = flexExSortShowAndMove
    
    .ColWidth(0) = 0
    .ColWidth(1) = 250
    .ColWidth(2) = 500
    .ColWidth(3) = 3000
    .ColWidth(4) = .Width - 4000
    
    If cnn.State = 0 Then Exit Sub
    If Not sv_con_OpenRecordSet(cnn, rst, qry) Then
        Exit Sub
    End If

    If Not rst.eof Then
        .Rows = rst.RecordCount + 1
    End If
    i = 1
'
'**************************************************
Find_Ini_Files 1
'**************************************************
    While Not rst.eof
        .TextMatrix(i, 0) = rst!id
        .TextMatrix(i, 3) = rst!Name
        .TextMatrix(i, 4) = rst!info
        Select Case DirectoryExists(sIniFile & ";Donald\" & rst!Name & ".mdx";)
            Case True
                .Cell(flexcpPicture, i, 2) = ImageList1.ListImages(1).Picture
            Case False
                .Cell(flexcpPicture, i, 2) = ImageList1.ListImages(2).Picture
        End Select
        If rst!id = newId Then
            Row = i
        End If


    i = i + 1
    rst.MoveNext
    Wend
    If Row >= .Rows Then
        Row = 1
    End If

    .Row = Row
    .TopRow = .Row
End With

End Sub

Ответить

Номер ответа: 2
Автор ответа:
 avdey



ICQ: 219571279 

Вопросов: 34
Ответов: 486
 Профиль | | #2 Добавлено: 01.03.06 18:44
Но в DataGridView нет TextMatrix...

Ответить

Номер ответа: 3
Автор ответа:
 Sacred Phoenix



ICQ: 304238252 

Вопросов: 52
Ответов: 927
 Профиль | | #3 Добавлено: 01.03.06 22:06
SHDZ написал же, что юзается VFlexGrid, поэтому он чуточку не в тему

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам