专家坐堂-DataTableBuilder异步的时候如何动态增加数据Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  DataTableBuilder异步的时候如何动态增加数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=171962)

--  作者：zhenghangbo
--  发布时间：2021/9/16 10:11:00
--  DataTableBuilder异步的时候如何动态增加数据
Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("姓名", Gettype(String), 32)
For Each v As String In DataTables("表A").GetValues("课程")
    dtb.AddDef(v, Gettype(Double))
Next
dtb.Build(ture)

For Each v As String In DataTables("表A").GetValues("姓名")
    Dim dr1 As DataRow = DataTables("表B").AddNew() 此处提示不存在表B的DataTables。
    dr1("姓名") = v
    For Each dr2 As DataRow In DataTables("表A").DataRows
        If dr2("姓名") = v Then
            dr1(dr2("课程")) = dr2("分数")
        End If
    Next
Next

异步函数，设置为true的时候，提示此处提示不存在表B的DataTables。

--  作者：有点蓝
--  发布时间：2021/9/16 10:22:00
--

Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("姓名", Gettype(String), 32)
For Each v As String In DataTables("表A").GetValues("课程")
dtb.AddDef(v, Gettype(Double))
Next
dim dt as DataTable = dtb.Build(ture)

For Each v As String In DataTables("表A").GetValues("姓名")
Dim dr1 As DataRow = dt.AddNew() 此处提示不存在表B的DataTables。
dr1("姓名") = v
For Each dr2 As DataRow In DataTables("表A").DataRows
If dr2("姓名") = v Then
dr1(dr2("课程")) = dr2("分数")
End If
Next
Next

这种用法没有意义，函数结束后，临时表也就不存在了，外部是用不了的