2

これが可能かどうか疑問に思っています。パブリック構造 (ELEM_DATA) からの情報を入力しようとしているのと同じフォームにリスト テーブル (lstTable) があります。同じスコープ内にある場合、ネストされた with ステートメントが機能することは理解していますが、以下の例 2 でこれを行うにはどうすればよいですか。

例 1:

With me.lstTable.Items(RECORD)
     .SubItems(1).text = ELEM_DATA(RECORD).name
     .SubItems(2).text = ELEM_DATA(RECORD).number
end with

例 2:

With me.lstTable.Items(RECORD)
     With ELEM_DATA(RECORD)
     .SubItems(1).text = .name
     .SubItems(2).text = .number
     end with
end with

それが可能かどうか、または (.name) を別のものに変更するのと同じくらい簡単かどうかはわかりませんでした。

4

2 に答える 2

2

ネストされた With ステートメントは機能します (競合に関するコメントを参照してください)。残念ながら、内側の内側の外側のメンバーを使用することはできません。ただし、外側の WITH は参照型であるため、コメントで提案したように、ローカル変数を使用して「エイリアス」にすることができます。

Dim l = me.lstTable.Items(RECORD) ' requires 2008 and option infer
With ELEM_DATA(RECORD)
   l.SubItems(1).text = .name
End With

ネストされた WITH ステートメントを使用する方法を示すリンクを次に示します。

http://ideone.com/agjne

于 2011-07-12T00:02:04.900 に答える