Поймал ситуацию когда проявляется баг при отображении иерархических данных в ComponentOne TDBGrid70.
Здесь лежит файл со скриптом и содержимым таблиц, для которых этот баг проявится.
На форме лежит только TDBGrid. Свойство DataView = 1-Hierarchical
А это код программы:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Dim Conn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset
Private Sub Form_Initialize()
Set Conn1 = New ADODB.Connection
Set rs1 = New ADODB.Recordset
End Sub
Private Sub Form_Load()
Conn1.CursorLocation = adUseClient
Conn1.Open "Provider=MSDataShape; Data Provider=SQLOLEDB.1;" & _
"Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=MyDataBase;Data Source=MyComputer"
rs1.Open "SHAPE {SELECT * FROM TVK00} AS T0" & _
" APPEND ({SELECT Sch_id FROM TVK01} AS T0 RELATE 'Sch_id' TO 'Sch_id') AS T1" _
, Conn1, adOpenStatic, adLockReadOnly, adCmdText
Set TDBGrid1.DataSource = rs1
End Sub
Кто может, пожалуйста, проверьте на своей версии TDBGrid !
