- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]请问一下以下代码出错在哪里呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48965)
-- 发布时间：2014/4/9 21:05:00
-- [求助]请问一下以下代码出错在哪里呢？
Dim a As new Dictionary ( of String , String )
For Each c As Row In Tables("表A").Rows
a.Add( c("第一列"), c("第二列" ) )
Next
Tables("表B").Cols("第三列").CodeDictionary = a
此主题相关图片如下：qq图片20140409210620.jpg
-- 发布时间：2014/4/9 21:37:00
--
空值的问题，你改一下代码
Dim a As new Dictionary ( of String , String )
For Each c As Row In Tables("表A").Rows
if c.row.isnull("第一列") = false then
a.Add( c("第一列"), c("第二列" ) )
end if
Next
Tables("表B").Cols("第三列").CodeDictionary = a
-- 发布时间：2014/4/9 21:44:00
--
这样不行吧，师兄，您试试
-- 发布时间：2014/4/9 21:47:00
--
要不就用select
-- 发布时间：2014/4/9 21:48:00
--
呃，写错了
Dim a As new Dictionary ( of String , String )
For Each c As Row In Tables("表A").Rows
if c.isnull("第一列") = false then
a.Add( c("第一列"), c("第二列" ) )
end if
Next
Tables("表B").Cols("第三列").CodeDictionary = a
-- 发布时间：2014/4/9 21:50:00
--
怎么现在要加上判断空值问题了？
以前的版本倒不用？
-- 发布时间：2014/4/9 21:53:00
--
以下是引用cks在2014-4-9 21:50:00的发言：
怎么现在要加上判断空值问题了？
以前的版本倒不用？
因为你有多个空行，也就是添加了多个相同的键值，这个是不允许的。
-- 发布时间：2014/4/9 21:54:00
--
喔喔，多谢师兄