Set rs = conn.Execute(Statement) //rs has 6 fields
我想将当前 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)) >;
您可以像这样添加新行。
DataGrid1.Rows = DataGrid1.Rows + 1
像这样的专栏
DataGrid1.Cols = DataGrid1.Cols + 1
之后,您可以像这样填充网格。
DataGrid1.TextMatrix(<row>,<column>) = rs.Fields(0)
DataGrid1.TextMatrix(<row>,<column+1>) = rs.Fields(1)
这是老派的,但是如何立即将整个记录集绑定到数据网格:
Set DataGrid1.DataSource = rs
DataGrid1.Refresh