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