Foxtable(狐表)用户栏目专家坐堂 → [原创]窗口绑定创建的临时表为什么会报错呢?


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

主题:[原创]窗口绑定创建的临时表为什么会报错呢?

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


加好友 发短信
等级:三尾狐 帖子:635 积分:6336 威望:0 精华:0 注册:2011/5/8 13:21:00
[原创]窗口绑定创建的临时表为什么会报错呢?  发帖心情 Post By:2018/5/3 19:19:00 [只看该作者]

Dim dt As DataTable
cmd1.Co mmandText = "Se lect * From {尺码子表} where 尺码表编号 = 1"
dt = cmd1.ExecuteReader()

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("Size", Gettype(String), 16)
Dim prds As List(of String) = dt.GetValues("Size","","[_Identify]")
For Each prd As String In prds
    dtb.AddDef(prd, Gettype(String), 100)
Next
dtb.Build()
For Each nm As String In dt.GetValues("尺寸位置","","[_Identify]")
    Dim dr As DataRow = DataTables("统计").AddNew()
    dr("Size") = nm
    For Each prd As String In prds
        Dim dr1 As DataRow = dt.Find("尺寸位置 = '" & nm & "' And Size = '" & prd & "'")
        dr(prd) = dr1("参数")
    Next
Next
MainTable= Tables("统计")
'Tables("查看尺码表_Table1").DataSource = dtb.BuildDataSource()





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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/3 19:29:00 [只看该作者]

Tables("查看尺码表_Table1").DataSource = dtb.BuildDataSource()

 

改成

 

Tables("查看尺码表_Table1").DataSource = DataTables("统计")

[此贴子已经被作者于2018/5/3 19:29:12编辑过]

 回到顶部