2011年2月20日日曜日

HashTableカンマキー

Dim ht As New Hashtable




ht.Add("", "1")

ht.Add("BBB,222", "2")

ht.Add("CCC,333", "3")

ht.Add("DDD,444", "4")



'キーが含まれているか確認

If ht.ContainsKey("DDD,444") Then

'数値インクリメント

'値の数値判定

If IsNumeric(ht("DDD,444")) Then

Dim index As Integer = CInt(ht("DDD,444")) + 1

ht("DDD,444") = index

End If

Else

'含まれていなければ追加

ht.Add("DDD,444", "1")

End If



'キーの数だけループ

Dim strKeysVal() As String

For Each strKey As String In ht.Keys

'コンマで分割

strKeysVal = strKey.Split(",")

'キーの配列長さ判定

If strKeysVal.Length > 1 Then

'値の数値判定

If IsNumeric(ht(strKey)) Then

Dim index As Integer = CInt(ht(strKey))



End If

End If

Next

2011年2月5日土曜日

マルチグリッドサンプル

http://www.4shared.com/file/cmyWDrnq/DataGridMultiHead.html

Word.Applicationが使用できない 使用方法

Office PIAs の 参照の場所が間違っていると考えられます。
例)
C:\Program Files\Microsoft Visual Studio 9.0\Visual Studio Tools for Office\PIA\Office12\Office.dll