主题：请教列标题

Dim dt1 As DataTable = DataTables("dtpzzb")

dt1.BuildHeader

Dim cm As String

Dim scs As String = ""

Dim dcs As String = ""

For Each c As Col In t1.Cols

    Dim cname As String = t1.Rows(cr)(c.Name)

    If cname > ""  Then

        For Each dl As DataCol In dt1.DataCols

            MessageBox.Show(dl.caption)

            If dl.Caption = cname Then

                cm = dl.Name

              Exit For

            End If

        Next

        

        If cm > "" Then

            If dt1.DataCols.Contains(cm) Then

                dcs &= cm & ","

                scs &= c.Name & ","

            End If

        End If

    End If

  cm = ""

Next