For Each c2 As Col In Tables(e.Form.Name & "_table1").cols
If c2.name.startwith("吊牌金额") = True Then
Dim c As Col = Tables(e.Form.Name & "_table1").Cols(c2.name)
Dim s1 As String = c.Caption.SubString(0,27) '这个是为了得到 表头,使得新增的列的标题的列头和其他的一样.
DataTables(e.Form.Name & "_table1").DataCols.Add("销售折扣",Gettype(Double), "销售金额_" & c2.name.Replace("吊牌金额_","") & " / " & c2.name ,s1 & "销售折扣")
End If
Next