Foxtable(狐表)用户栏目专家坐堂 → DataTableBuilder异步的时候如何动态增加数据


  共有2288人关注过本帖树形打印复制链接

主题:DataTableBuilder异步的时候如何动态增加数据

帅哥哟,离线,有人找我吗?
zhenghangbo
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:451 积分:4286 威望:0 精华:0 注册:2018/2/7 14:30:00
DataTableBuilder异步的时候如何动态增加数据  发帖心情 Post By:2021/9/16 10:11: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

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。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

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

 回到顶部