Dim ks As Date = e.Form.Controls("ksshijian").value \'开始时间
Dim js As Date = e.Form.Controls("jsshijian").value \'结束时间
Dim t As TimeSpan = js - ks
Dim wj As DataRow
For i As Integer = 0 To cint(t.days)  
        Dim cc As Date = e.Form.Controls("ksshijian").value.Adddays(+i)      
        Dim lmg1 As String = "广" & cstr(cc.Month) & cstr(cc.day)       
        DataTables("进出库统计表").datacols.Add(lmg1,Gettype(Integer),45)
        Dim lmh2 As String = "黑" & cstr(cc.Month) & cstr(cc.day)
        DataTables("进出库统计表").datacols.Add(lmh2,Gettype(Integer),45)       
        For Each xzbg As DataRow In DataTables("一区出库表").DataRows
            If xzbg("日期") = cc Then
                wj = DataTables("进出库统计表").Find("客户  = \'" & xzbg("客户") & "\'")
                If wj Is Nothing Then
                    Dim rg As Row = Tables("进出库统计表").AddNew()
                    rg("客户") = xzbg("客户")
                    rg(lmg1)= rg(lmg1) + xzbg("当次重量")
                    rg("总量") = rg("总量") + xzbg("总量")
                Else
                    wj(lmg1)= wj(lmg1) + xzbg("当期得分")
                    wj("总量") = wj("总量") + xzbg("当次重量")
                End If
            End If
        Next
        For Each xzbh As DataRow In DataTables("二区出库表").DataRows
            If xzbh("日期") = cc Then
                wj=DataTables("进出库统计表").Find("客户  = \'" & xzbh("客户") & "\'")
                If wj Is Nothing Then
                    Dim rh As Row = Tables("进出库统计表").AddNew()
                    rh("客户") = xzbh("客户")
                    rh(lmh2)= rh(lmh2) + xzbh("当次重量")
                    rh("总量") = rh("总量") + xzbh("当次重量")
                Else
                    wj(lmh2)= wj(lmh2) + xzbh("当次重量")
                    wj("总量") = wj("总量") + xzbh("当次重量")
                End If
            End If
       Next
Next

建了个窗口，绑定“进出库统计表”，初表存在“客户”列和“总重量”列，其它列是每次点统计按钮按选择的时间删除和增加的，增加列的代码是按以上的代码来的

我的初步设想是在增加列之前先把除了客户和总重量的其它列删除。但我查找帮助文件，因为增加的列名是按条件建立的，删除列的代码不知道怎么写。试了下delete ，但还是弄不出来。

请老师帮下忙或介绍下帮助文件哪个地方学习下。感谢

删除列，参考

Dim dt As DataTable = DataTables("表A")
dt.DataCols.add("aaaa", Gettype(String))
msgbox(1)
dt.DataCols.Delete("aaaa")