vb6のデータグリッドに行を動的に追加する方法

Question

Set rs = conn.Execute(Statement) //rs has 6 fields 

DataGridに現在のrs行を追加したいとします。どうすればいい？

サンプル：

DataGrid1.<someFunction (say AddRow)> = <some operations with rs.Fields (say, Str(rs.Fields(0)) & rs.Fields(1) & rs.Fields(2) & Str(rs.Fields(3)) & Str(rs.Fields(4)) & Str(rs.Fields(5)) >; 

Answer 1

あなたはこのように新しい行を追加することができます。あなたはこのようなグリッドを埋めることができた後、この

DataGrid1.Cols = DataGrid1.Cols + 1 

よう

DataGrid1.Rows = DataGrid1.Rows + 1 

と列。

DataGrid1.TextMatrix(<row>,<column>) = rs.Fields(0) 
DataGrid1.TextMatrix(<row>,<column+1>) = rs.Fields(1) 

Answer 2

これは、一度にデータグリッドに全体のレコードを結合に関するオールドスクールが、どのようにです：

Set DataGrid1.DataSource = rs 
DataGrid1.Refresh