主题：劳驾帮忙优化代码

  代码无法优化。

 

 http://www.foxtable.com/help/topics/0401.htm

 

 

具体多慢，例子发上来测试。

Dim t As Table = Tables("上报资料")
Dim dt As DataTable = DataTables("物料信息")
Dim scs As String = ""
Dim dcs As 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 &= cname & ","
        scs &= c.Name & ","
    End If
Next

Dim f As new Filler
f.SourceTable = DataTables("上报资料") '指定数据来源
f.SourceCols = scs.Trim(",") '指定数据来源列
f.DataTable = DataTables("物料信息") '指定数据接收表
f.DataCols = dcs.Trim(",") '指定数据接收列
f.Filter = "_Identify >= " & t.Rows(2)("_Identify")
f.Fill() '填充数据

数据类型不一样也可以填充啊，不会报错啊。

 几秒啊

 

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