主题：请教列标题

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

 xhs5 = DataTables("dtpzzb").sqlSelect("pzzb12 not in (" & xstrw5 & ")" & "and pzzb5 = '" & dr5 & "'" & "and (pzzb34 <> 0 or pzzb34 is not null)" & "and pzzb1 = '" & ztzz & "'and pzzb2 = '" & ztnd & "'and pzzb3 = '" & ztyf & "'and pzzb4 = '" & ztmc & "'")