以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  再请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62972)
--  作者：hbhb
--  发布时间：2015/1/11 12:04:00
--  再请教
大师：填充器填充时，来源列与接收列的数据类型不一致如何解决，是否可以判断？
--  作者：有点甜
--  发布时间：2015/1/11 12:45:00
--  
 不匹配也是可以填充的啊，但是如果你数据有问题，肯定填充不进去的。比如 字符abc不能赋值给数字列。
--  作者：hbhb
--  发布时间：2015/1/11 13:12:00
--  
谢谢！也就是说，如果接受列设置为数值类型，那么接收时不管来源列的类型，只要是数字就行，如果混有字符就不行了，是吗？那能否判断检查？也就是检查一下单元格是否是数字，如何判断是否为数字？帮助中没有找到。只找到判断是否为数值列。
--  作者：有点甜
--  发布时间：2015/1/11 15:40:00
--  

 不要直接填充，用select一行一行判断和填充。

 

 比如

 

Dim dt As DataTable
Dim sCols() As String = {"列名1", "列名2", "列名3"}
Dim dCols() As String = {"列名A", "列名B", "列名C"}
dt = DataTables("表A")
For Each dr As DataRow In dt.Select("")
    Dim nr As DataRow = DataTables("表B").AddNew()
    For i As Integer =0 To sCols.Length -1
        nr(dCols(i)) = dr(sCols(i))
    Next
Next


 
--  作者：hbhb
--  发布时间：2015/1/11 16:43:00
--  
原来就是这样做的，由于这样5000行数据太慢了，才想用填充器，于是就问以上问题的？
--  作者：有点甜
--  发布时间：2015/1/11 16:44:00
--  
以下是引用hbhb在2015-1-11 16:43:00的发言：
原来就是这样做的，由于这样5000行数据太慢了，才想用填充器，于是就问以上问题的？

 

用select填充也一样很快啊。

 

加上停止绘制即可啊 http://www.foxtable.com/help/topics/0401.htm

 
--  作者：有点甜
--  发布时间：2015/1/11 16:45:00
--  
 先得出列，再填充，不要在填充的过程中判断列。
--  作者：hbhb
--  发布时间：2015/1/11 16:50:00
--  
也试过了，就是您说的填充器最快！，如果以增加行的方法，表有50列的5000行数据，慢的很！
--  作者：有点甜
--  发布时间：2015/1/11 17:34:00
--  
以下是引用hbhb在2015-1-11 16:50:00的发言：
也试过了，就是您说的填充器最快！，如果以增加行的方法，表有50列的5000行数据，慢的很！

 

新增行，填充行，也不会很慢。

 

Dim t As Table = Tables("上报资料")
Dim dt As DataTable = DataTables("物料信息")
Dim scs As new List(Of String)
Dim dcs As new List(Of String)

For Each c As Col In t.Cols
    Dim cname As String = t.Rows(1)(c.Name)
    If dt.DataCols.Contains(cname) Then
        dcs.Add(cname)
        scs.add(c.name)
    End If
Next
dt.StopRedraw
For Each dr As DataRow In t.DataTable.Select("_Identify >= " & t.Rows(2)("_Identify"))
    Dim ndr As DataRow = dt.AddNew
    For i As Integer = 0 To scs.Count - 1
        ndr(dcs(i)) = dr(scs(i))
    Next
Next
dt.ResumeRedraw