主题：[求助]填充数据时遇到困难

直接这样可以了吧：
       dim f As New Filler

        f.SourceTable = DataTables("教师安排")     '指定数据来源

        f.SourceCols = "班级," & dc.name             '指定数据来源列

        f.DataTable = DataTables("任课教师分析")   '指定数据接收表

        f.DataCols = "班级,教师" '指定数据接收列

        f.Distinct = false

        f.Fill() '填充数据

你原来代码稍加改进也是可以很快的呀， 至于空值，都要另外删除吧：

Dim s As Date = Date.Now()
DataTables("任课教师分析").DataRows.Clear
Dim n As Integer = Tables("教师安排").rows.count
Dim n1 As Integer = Tables("教师安排").cols.count-1
Tables("任课教师分析").AddNew(n*n1)
For j As Integer = 0 To 6
    For i As Integer = 0 To 17
        Tables("任课教师分析")(i+j*18,"科目") = Tables("教师安排").Cols(j+1).Name
        Tables("任课教师分析")(i+j*18,"班级") = i + 1
        Tables("任课教师分析")(i+j*18,"教师") = Tables("教师安排")(i,j+1)
    Next
Next
DataTables("任课教师分析").DeleteFor("[教师]  Is Null")
Messagebox.Show("处理完毕! 耗时: " & (Date.Now -s).TotalSeconds)   ‘我这里 0.1 秒

------------------------------------------
或者：  加两行代码： 也是飞快的呀：：：：：
-----------------------------------------
Dim s As Date = Date.Now()
Tables("任课教师分析").Redraw = False   
DataTables("任课教师分析").DataRows.Clear
For j As Integer = 0 To 6
    For i As Integer = 0 To 17
        Dim r As Row = Tables("任课教师分析").AddNew
        r("科目") = Tables("教师安排").Cols(j + 1).Name
        r("班级") = i + 1
        r("教师") = Tables("教师安排")(i,j + 1)
    Next
Next
DataTables("任课教师分析").DeleteFor("[教师]  Is Null")
Tables("任课教师分析").Redraw = true   
Messagebox.Show("处理完毕! 耗时: " & (Date.Now -s).TotalSeconds)