リストボックス

Do While Not rs.EOF
　　'データがある場合
Form2.List1.AddItem rs.Fields("顧客番号") & " " & rs.Fields("得意先名")
rs.MoveNext
Loop

こうしたら、いちらんには

顧客番号　　得意先名

111111111111　　　ああああ
11111111111　　　いいい

と入っていて、得意先名をきちんと”ああああ”にそれえたいのですけどできるでしょうか？
桁数の指定とかできるでしょうか？

No.3 ベストアンサー 回答者： imogasi 回答日時： 2002/01/30 23:08

顧客番号をTrim関数で前後スペースを取り除き、Len関数で長さを知り、一定の文字数との差のスペースをSpc関数で作り、＆で結合してはどうですか。

No.2 回答者： SpeedKing 回答日時： 2002/01/30 21:00

Listboxのカラムを使用する

以下のコード参照してください。ColumnCountでカラム数を指定し、TextColumnでコントロール値を保持します。
こちらの方が、桁を揃えるには適しています。
コードはヘルプ参照してください。

No.1 回答者： todo36 回答日時： 2002/01/30 20:12

>得意先名をきちんと”ああああ”にそれえたいのです

>けどできるでしょうか？

list1.AddItem rs.Fields("顧客番号") & vbTab & rs.Fields("得意先名")

>桁数の指定とかできるでしょうか？

LB_SETTABSTOPSで幅を指定できます。

参考URL：http://www.vbvbvb.com/jp/gtips/0201/gSendMessage …