主题：再请教

大师：填充器填充时，来源列与接收列的数据类型不一致如何解决，是否可以判断？

 不匹配也是可以填充的啊，但是如果你数据有问题，肯定填充不进去的。比如 字符abc不能赋值给数字列。

谢谢！也就是说，如果接受列设置为数值类型，那么接收时不管来源列的类型，只要是数字就行，如果混有字符就不行了，是吗？那能否判断检查？也就是检查一下单元格是否是数字，如何判断是否为数字？帮助中没有找到。只找到判断是否为数值列。

 不要直接填充，用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

 

原来就是这样做的，由于这样5000行数据太慢了，才想用填充器，于是就问以上问题的？

 

用select填充也一样很快啊。

 

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

 

 先得出列，再填充，不要在填充的过程中判断列。

也试过了，就是您说的填充器最快！，如果以增加行的方法，表有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