主题：动态批量设置列标题

老师，我执行了上述代码，没提示，也没结果，请问下是什么原因

For Each dt As DataTable In DataTables
    For Each dc As DataCol In dt.DataCols
        Dim nm As String = dt.name
        For Each dr As DataRow In DataTables("表字段").Select("表名 = '" & nm & "'")
            dt.datacols(dr("字段名称")).Caption = dr("字段标题")
        Next
    Next
    dt.BuildHeader
Next