Dim t As Table = CurrentTable
If t.cols(t.ColSel).Name = "短转_总件数" Or t.cols(t.ColSel).Name = "短转_总体积m3" Or t.cols(t.ColSel).Name = "短转_总重量T" Or t.cols(t.ColSel).Name = "短转_运费" Or t.cols(t.ColSel).Name = "短转_装车费" Or t.cols(t.ColSel).Name = "短转_卸车费" Or t.cols(t.ColSel).Name = "托运_总体积m3" Or t.cols(t.ColSel).Name = "托运_总重量T" Or t.cols(t.ColSel).Name = "托运_运费" Or t.cols(t.ColSel).Name = "托运_接货费" Or t.cols(t.ColSel).Name = "托运_送货费" Or t.cols(t.ColSel).Name = "托运_其它费" Or t.cols(t.ColSel).Name = "托运_预付金额元" Then
Else
For i As Integer = CurrentTable.LeftCol To CurrentTable.RightCol
For j As Integer = CurrentTable.TopRow + 1 To CurrentTable.BottomRow
CurrentTable.Rows(j)(i) = CurrentTable.Rows(CurrentTable.TopRow)(i)
Next
Next
End If
加好友 
发短信
Post By：2017/1/3 15:45:00 [显示全部帖子]
