主题：[求助]添加菜单

比如这样

For Each dc As DataCol In dt.DataCols

改成这样

For i As Integer = 0 To dt.DataCols.count-1
    Dim dc As DataCol = dt.datacols(i)
Next

或者这样

For i As Integer = dt.DataCols.count-1 to 0 step -1
    Dim dc As DataCol = dt.datacols(i)
Next