我在Private Sub Form_Resize()中指定了ListView1的列宽，但是刷新后就变了（不是原指定的列宽），应如何设置呢？
Private Sub Form_Resize()
ListView2.ColumnHeaders.Item(1).Width = 1100       '设置第一列的宽
ListView2.ColumnHeaders.Item(2).Width = 1500       '设置第二列的宽
listView2.ColumnHeaders.Item(3).Width = 1100
ListView2.ColumnHeaders.Item(4).Width = 3000
ListView2.ColumnHeaders.Item(5).Width = 700
listView2.ColumnHeaders.Item(6).Width = 900
ListView2.ColumnHeaders.Item(7).Width = 900
ListView2.ColumnHeaders.Item(8).Width = 2500
点了刷新键后就不是指定的列宽。

你再在你刷新的代碼里面調用一下這個事件就可以了

如何调用？

call Form_Resize()

再你刷新完最后面的代碼寫，不要寫在前面不然就沒有效果了
CALL Form_Resize()

没用的，早试了，没用

那你就將這些代碼再打一次記住放在刷新代碼的后面
ListView2.ColumnHeaders.Item(1).Width = 1100       '设置第一列的宽
ListView2.ColumnHeaders.Item(2).Width = 1500       '设置第二列的宽
listView2.ColumnHeaders.Item(3).Width = 1100
ListView2.ColumnHeaders.Item(4).Width = 3000
ListView2.ColumnHeaders.Item(5).Width = 700
listView2.ColumnHeaders.Item(6).Width = 900
ListView2.ColumnHeaders.Item(7).Width = 900
ListView2.ColumnHeaders.Item(8).Width = 2500

谢了，是我没有放对位置，但有个新的问题，就是在Form_Resize()中设置列宽，前提是在打开窗体时就查询数据，这样一来就影响到打开的速度，我想在打开窗体时不显示出查询的数据，但出现实时错误35600，索引超出边界的提示.ColumnHeaders.Item(1).Width = 1100       '设置第一列的宽，不知说清楚了吗？只要我点刷新时才出现数据和指定的列宽。

這個一般是你沒有這麼多個行，你先要確定你有新增資料行，有多少個資料行就打幾個

是的，是因为ListView2在打开窗体时没有数据，只是有刷新后才有数据，而ListView2在有数据时设置列宽才行，没有数据时报错，Form_Resize()是在启动时设置的列宽，也就是说在没有行时如何设置好列宽与列名？