主题：劳驾帮忙优化代码

来问题了，请问接受列与来源列的数据类型不一样，怎么办？

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

就报错

如果接受列的某列与来源列的数据类型不一样，就不能填充？

 几秒啊

 

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