Dim lngI As Integer
Set restNew = New ADODB.Recordset
restNew.Fields.Append "受理编号", adVariant
restNew.Fields.Append "业务类别", adVariant
restNew.OpenWith MSHFlexGrid1
'MsgBox .Rows
For lngI = 1 To .Rows - 1
restNew.AddNew
restNew("受理编号") = .TextMatrix(lngI, 0)
restNew("业务类别") = .TextMatrix(lngI, 1)
restNew.Update
.Clear
Next lngI
End With
LoadGridTuiJian
Set MSHFlexGrid1.DataSource = restNew
我想用sort可以吗?我这样写的 restnew.sort ***,但不行啊。这是怎么回事??还有如果行了,那么当 Set MSHFlexGrid1.DataSource = restNew时,mshflexgrid中的记录会排序了吗?
Set restNew = New ADODB.Recordset
restNew.Fields.Append "受理编号", adVariant
restNew.Fields.Append "业务类别", adVariant
restNew.OpenWith MSHFlexGrid1
'MsgBox .Rows
For lngI = 1 To .Rows - 1
restNew.AddNew
restNew("受理编号") = .TextMatrix(lngI, 0)
restNew("业务类别") = .TextMatrix(lngI, 1)
restNew.Update
.Clear
Next lngI
End With
LoadGridTuiJian
Set MSHFlexGrid1.DataSource = restNew
我想用sort可以吗?我这样写的 restnew.sort ***,但不行啊。这是怎么回事??还有如果行了,那么当 Set MSHFlexGrid1.DataSource = restNew时,mshflexgrid中的记录会排序了吗?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货