For i = 1 To 102 配列(i) = CType(Me.親コントロールがあればここに.Controls("ラベルの名前" & i.ToString ), Label) Next 検索してもなかなか見つからんかった

Dim renban As Integer cmd.CommandText = "SELECT MAX(連番振りたい列) As すきな略称 FROM 振りたいとこのテーブルのなまえ" Using SDR As SqlDataReader = cmd.ExecuteReader() While SDR.Read If Not IsNull(SDR.Item("すきな略称")) Then renban = SDR.…

AddHandler sub_no_namae, AddressOf After_Handles RemoveHandler sub_no_namae, AddressOf After_Handles たまにCellValueChangedとかの中で無限ループするのでこれを置いておく 上がもとに戻す時 下がここから先にこの機能オンにしないでねーって時