Страница: 1 |
|
Вопрос: Помогите с DataGridView в VB 2005
|
Добавлено: 01.03.06 14:39
|
|
Автор вопроса: avdey | ICQ: 219571279
|
Как можно просто добавить в ячейку текст без всаких там БД и файлов (как например в MSHFlexGrid MatrixText...)
Ответить
|
Номер ответа: 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 & "onald\" & 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
Ответить
|
Страница: 1 |
Поиск по форуму