主题：列标题设置

Dim bms As List(Of String) = DataTables("条目表").GetValues("pbc_tnam","pbc_tnam Is Not Null")
For Each bm As String In bms
    Dim drs As List(Of DataRow) = DataTables("条目表").Select("pbc_tnam = '" & bm & "'")
    For Each dr As DataRow In drs
        DataTables(bm).DataCols(dr("pbc_cnam")).Caption = dr("pbc_label")
    Next
Next

没有例子，没经过测试。