可能是lvwContent.SortKey = CLNG( ColumnHeader.Index - 1 )有问题,因为sortkey应该是一个integter型的。
将上面的代码改为lvwContent.SortKey = val( ColumnHeader.Index - 1 )试一下。