主题：再请教

 不匹配也是可以填充的啊，但是如果你数据有问题，肯定填充不进去的。比如 字符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

 

 

用select填充也一样很快啊。

 

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

 

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

 

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

 

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