以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]临时表的行是不是没有RowState属性？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94142)
--  作者：ajie5211
--  发布时间：2016/12/16 16:42:00
--  [求助]临时表的行是不是没有RowState属性？
如题，临时表的行是不是没有RowState属性？
--  作者：有点色
--  发布时间：2016/12/16 17:01:00
--  

 嗯嗯，差不多那样子。你可以用数据表嘛。

 

Dim Builder As New ADOXBuilder
Builder.Open()
If DataTables.Contains("订单") Then
    With Builder
        .DeleteTable("订单")
    End With
    DataTables.Unload("订单")
End If

Dim tbl As ADOXTable
tbl = Builder.NewTable("订单") \'创建表
With tbl
    .AddColumn("日期" ,ADOXType.DateTime)
    .AddColumn("产品" ,ADOXType.String, 12)
    .AddColumn("客户" ,ADOXType.String, 20)
    .AddColumn("数量" ,ADOXType.Integer)
    .AddColumn("备注" ,ADOXType.Text)
End With
Builder.AddTable(tbl) \'增加表
Builder.Close()

DataTables.Load("订单")