VB6 DataGrid脱离数据库表绑定自定义数据

在代码头部定义全局变量

Option Explicit
Dim rs As New ADODB.Recordset

在初始化Initialize方法部分添加下列代码

rs.CursorLocation = adUseClient
rs.Fields.Append "状态", adVarChar, 20
rs.Fields.Append "状态信息", adVarChar, 50
rs.Fields.Append "车号", adVarChar, 20
rs.Fields.Append "送货单位", adVarChar, 20
rs.Open
Set DataGrid1.DataSource = rs

在需要添加数据的地方添加下列代码

rs.AddNew
rs.Fields("状态") = sdatarray(0)
rs.Fields("状态信息") = sdatarray(1)
rs.Fields("车号") = sdatarray(2)
rs.Fields("送货单位") = sdatarray(3)

删除所有数据

If rs.RecordCount > 0 Then
        rs.MoveLast
        Do
            rs.Delete
            rs.MovePrevious
        Loop While rs.RecordCount > 0
    End If

在图形化界面设置DataGrid1的属性。属性页-通用：去掉允许添加，允许删除，允许更新；属性页-列：将rs中添加到字段绑定。