Foxtable(狐表)用户栏目专家坐堂 → 选定多行克隆


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

主题:选定多行克隆

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


加好友 发短信
等级:童狐 帖子:223 积分:1738 威望:0 精华:0 注册:2019/10/19 23:00:00
选定多行克隆  发帖心情 Post By:2020/11/17 23:56:00 [只看该作者]

字符串的空行正常,如高精度小数列为空时,克隆时会变为0,怎么做到,所有空行克隆为还是空行,不填为0。
Dim t As Table = CurrentTable
For i As Integer = t.TopRow To t.BottomRow
    Dim dr As DataRow = t.DataTable.Addnew()
    For Each c As Col In t.Cols
       dr(c.Name) = t.Rows(i)(c.Name)
    Next
Next

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


加好友 发短信
等级:超级版主 帖子:106603 积分:542186 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/18 8:38:00 [只看该作者]

比如:

    For Each c As Col In t.Cols
if t.Rows(i).isnull(c.Name) = false then
       dr(c.Name) = t.Rows(i)(c.Name)
end if
    Next

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


加好友 发短信
等级:童狐 帖子:223 积分:1738 威望:0 精华:0 注册:2019/10/19 23:00:00
  发帖心情 Post By:2020/11/18 19:36:00 [只看该作者]

谢谢!

 回到顶部