Foxtable(狐表)用户栏目专家坐堂 → 不存在名称为""的datatable


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

主题:不存在名称为""的datatable

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/27 8:54:00 [显示全部帖子]

我看看,另外下面一行多余:

 

g.Build(True)


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/27 9:26:00 [显示全部帖子]

呵呵,不行,应该做成可行


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/27 10:45:00 [显示全部帖子]

应该是bug,下次更新会处理好的。


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/27 13:55:00 [显示全部帖子]

是的,我也这么认为


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/29 9:40:00 [显示全部帖子]

我用Foxtable自带的示例文件,测试没问题的:

 

 

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "Select * From {订单}"
dt = cmd.ExecuteReader()
Dim b As New CrossTableBuilder("统计表1", dt)
b.HGroups.AddDef("客户")
b.VGroups.AddDef("产品","产品_{0}")
b.Totals.AddDef("数量")
b.Build '生成统计表
MainTable = Tables("统计表1")

应该是列名出错。

[此贴子已经被作者于2011-5-29 9:45:43编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/31 13:44:00 [显示全部帖子]

收到,我测试一下看看。

图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/6/2 16:01:00 [显示全部帖子]

1、???的代码有问题,应该这个样:

 

For Each dr As DataRow In dt.Select("材料編號 Like 'P*%'")
    Dim dr2 As DataRow = DataTables("配合比").Find("clmq = '" & dr("材料名稱") & "'")
    If dr2 IsNot Nothing    
            dr("單位") = dr2("cldw")  
    End If
Next

 

2、沒""DataTable 的问题已经解决,等下次更新,下次你应该可以装上了。


 回到顶部