Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口table动态增加的列写入时无法识别报错


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

主题：[求助]窗口table动态增加的列写入时无法识别报错
帅哥哟，离线，有人找我吗？
lyq
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：360 积分：2794 威望：0 精华：0 注册：2010/4/30 18:38:00 		[求助]窗口table动态增加的列写入时无法识别报错  发帖心情 Post By：2014/2/20 19:49:00 [只看该作者]

        Tables("装配级码_table1").DataSource=dt
        For i As Integer=1 To jsmax
            DataTables("装配级码_table1").DataCols.Add("js" & i, Gettype(String),6,"",i & "级")
        Next
        Tables("装配级码_table1").AutoSizeCols
        For Each dc As DataCol In DataTables("装配级码_table1").datacols
            If dc.name.contains("js") Then
                For Each r1 As Row In Tables("装配级码_table1").Rows
                    cmd.commandtext="select distinct 装配级码 from 装配 where 编号='" & r1("编号") & "' and 物料='" & r1("物料") & "' and 级数='" & dc.name.replace("js","") & "'"
                    r1(dc.name)=cmd.executescalar()
                Next
            End If
        Next

 

 


图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：2.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 试试这样



Tables("装配级码_table1").DataSource=dt
        For i As Integer=1 To jsmax
            Tables("装配级码_table1").DataTable.DataCols.Add("js" & i, Gettype(String),6,"",i & "级")
        Next
        Tables("装配级码_table1").AutoSizeCols
        For Each c As Col In Tables("装配级码_table1").Cols
            If c.name.contains("js") Then
                For Each r1 As Row In Tables("装配级码_table1").Rows
                    cmd.commandtext="select distinct 装配级码 from 装配 where 编号='" & r1("编号") & "' and 物料='" & r1("物料") & "' and 级数='" & dc.name.replace("js","") & "'"
                    r1(dc.name)=cmd.executescalar()
                Next
            End If
        Next
 回到顶部
帅哥哟，离线，有人找我吗？
lyq
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：360 积分：2794 威望：0 精华：0 注册：2010/4/30 18:38:00 		  发帖心情 Post By：2014/2/20 20:02:00 [只看该作者]

以下是引用有点甜在2014-2-20 19:56:00的发言：
 试试这样



Tables("装配级码_table1").DataSource=dt
        For i As Integer=1 To jsmax
            Tables("装配级码_table1").DataTable.DataCols.Add("js" & i, Gettype(String),6,"",i & "级")
        Next
        Tables("装配级码_table1").AutoSizeCols
        For Each c As Col In Tables("装配级码_table1").Cols
            If c.name.contains("js") Then
                For Each r1 As Row In Tables("装配级码_table1").Rows
                    cmd.commandtext="select distinct 装配级码 from 装配 where 编号='" & r1("编号") & "' and 物料='" & r1("物料") & "' and 级数='" & dc.name.replace("js","") & "'"
                    r1(dc.name)=cmd.executescalar()
                Next
            End If
        Next

将遍历集中的datacol改为col还是报同样的错误
 回到顶部
帅哥哟，离线，有人找我吗？
lyq
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：360 积分：2794 威望：0 精华：0 注册：2010/4/30 18:38:00 		  发帖心情 Post By：2014/2/20 20:04:00 [只看该作者]

msgbox（dc.name）  '显示正确

r1(dc.name)=cmd.executescalar()     ’运行此代码就会报错，取消此代码后没有报错
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 提示出错，也是xxx列不存在吗？

没理由,你这样试试.

Tables("装配级码_table1").DataSource=dt
For i As Integer=1 To jsmax
    Tables("装配级码_table1").DataTable.DataCols.Add("js" & i, Gettype(String),6,"",i & "级")
Next
Tables("装配级码_table1").AutoSizeCols
For Each dc As DataCol In Tables("装配级码_table1").DataTable.DataCols
    If dc.name.Contains("js") Then
        For Each r1 As Row In Tables("装配级码_table1").Rows
            cmd.commandtext="select distinct 装配级码 from 装配 where 编号='" & r1("编号") & "' and 物料='" & r1("物料") & "' and 级数='" & dc.name.replace("js","") & "'"
            r1(dc.name)=cmd.executescalar()
        Next
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
lyq
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：360 积分：2794 威望：0 精华：0 注册：2010/4/30 18:38:00 		  发帖心情 Post By：2014/2/20 20:46:00 [只看该作者]

以下是引用有点甜在2014-2-20 20:27:00的发言：
 提示出错，也是xxx列不存在吗？

没理由,你这样试试.

Tables("装配级码_table1").DataSource=dt
For i As Integer=1 To jsmax
    Tables("装配级码_table1").DataTable.DataCols.Add("js" & i, Gettype(String),6,"",i & "级")
Next
Tables("装配级码_table1").AutoSizeCols
For Each dc As DataCol In Tables("装配级码_table1").DataTable.DataCols
    If dc.name.Contains("js") Then
        For Each r1 As Row In Tables("装配级码_table1").Rows
            cmd.commandtext="select distinct 装配级码 from 装配 where 编号='" & r1("编号") & "' and 物料='" & r1("物料") & "' and 级数='" & dc.name.replace("js","") & "'"
            r1(dc.name)=cmd.executescalar()
        Next
    End If
Next

报同样的错误，按道理不应该报错呀，郁闷！！！
 回到顶部
帅哥哟，离线，有人找我吗？
lyq
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：360 积分：2794 威望：0 精华：0 注册：2010/4/30 18:38:00 		  发帖心情 Post By：2014/2/20 20:48:00 [只看该作者]

郁闷！！！

狐狸爸爸出来解决下，

是程bug吗
 回到顶部
帅哥哟，离线，有人找我吗？
逛逛
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：1693 积分：12135 威望：0 精华：7 注册：2013/7/11 10:52:00 		  发帖心情 Post By：2014/2/20 20:59:00 [只看该作者]

      试试这样

 

        For i As Integer=1 To jsmax
            dt.DataCols.Add("js" & i, Gettype(String),6,"",i & "级")
        Next

        Tables("装配级码_table1").DataSource=dt
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 不会是这段代码的错，你请检测其他代码，或者做一个例子发上来。

 我测试代码没有错
 回到顶部
帅哥哟，离线，有人找我吗？
逛逛
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：1693 积分：12135 威望：0 精华：7 注册：2013/7/11 10:52:00 		  发帖心情 Post By：2014/2/20 21:03:00 [只看该作者]

以下是引用有点甜在2014-2-20 21:01:00的发言：
 不会是这段代码的错，你请检测其他代码，或者做一个例子发上来。

 我测试代码没有错

他的dt如果是SQL查询得来的，要绑定前增加列。
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询