サンドボックスソリューションのサンプル

[アーティクル]
04/04/2023

マネージコードを持つ InfoPath フォームを、InfoPath デザインモードから SharePoint セキュリティで保護されたソリューションインフラストラクチャに発行できます。このトピックでは、InfoPath セキュリティで保護されたソリューションでフォームテンプレートを発行する方法として使用できる 2 つのコード例について説明します。

例 1: 注文フォーム内のデータの並べ替え

InfoPath フォームでコードを使用して実行できる便利な作業の例として、繰り返しテーブルでのデータの並べ替えがあります。それには、InfoPath フォームに表示されている基になる XML ドキュメントのノードについて、それらをコードを使用して並べ替えます。このトピックで説明するシナリオでは InfoPath からセキュリティで保護されたソリューションとして直接発行することを目的としていますが、管理者承認用フォームテンプレートとして展開することもできます。

作業を始める前に、次の条件を満たしていることを確認してください。

フォームを発行する SharePoint Server 2010 または SharePoint Foundation 2010 サイトのサイトコレクション管理者であること。
Microsoft SharePoint Foundation Sandboxed Code Service がサーバー上で動作していることを、ファーム管理者とともに確認します。詳細については、「コードを含むフォームを発行する」を参照してください。
フォームテンプレートに対して選択したプログラミング言語が、以前のバージョン名が付いていない C# または Visual Basic のどちらかであること。プログラミング言語とオブジェクトモデルの InfoPath 2007 互換バージョンと InfoPath 2003 互換バージョンでは。サンドボックスソリューションはサポートされていません。プログラミング言語を指定する方法の詳細については、「Visual Studio での開発」を参照してください。

フォームの [繰り返しテーブル] コントロールでデータを並べ替えるフォームテンプレートを作成するには、次の手順を実行します。

フォーム内のデータをプログラムによって並べ替えるフォームテンプレートを作成するには

InfoPath デザインモードで新しいフォームテンプレートを作成し、 繰り返しテーブル コントロールをフォームに追加します。この例のサンプルコードではテーブルの 1 列目を基準として行を並べ替えていますが、任意の列を基準とするように簡単にコードを変更できます。
ボタン コントロールをフォームに追加します。テーブルを並べ替えるためのコードはボタンの Clicked イベントのイベントハンドラーに追加されますが、別のイベントを使用することもできます。
ボタンを選択し、[ プロパティ] タブをクリックし、[ ユーザー設定コード] をクリックします。フォームをまだ保存していない場合は、保存を促すメッセージが表示され、コードエディターが開いてカーソルがボタンのイベントハンドラーに設定されます。

次のコードをボタンのイベントハンドラーに貼り付けます。 1 列目の要素が配列に格納され、配列が並べ替えられた後、その配列を基準として表が並べ替えられます。このコードでは、並べ替えられるデータを文字列データと仮定しています。

 // Put the elements from the first column into an array.
 XPathNavigator root = this.CreateNavigator();

 // Create a node iterator which contains only the values that you want to sort.
 // For this form, the entire table is in "group1", each row is a "group2"
 // and the rows are "field1", "field2" and "field3" respectively.
 XPathNodeIterator nodeIterator = root.Select(
     "/my:myFields/my:group1/my:group2/my:field1", this.NamespaceManager);

 // Create arrays to use for sorting.
 string[] sortArrayWords = new string[nodeIterator.Count + 1];
 int[] sortArrayKeys = new int[nodeIterator.Count + 1];
 int arrayPosition = 1;

 // Populate the arrays for sorting.
 while (nodeIterator.MoveNext()) 
 {
     // Loop until there are no more elements
     sortArrayWords[arrayPosition] = nodeIterator.Current.Value;
     sortArrayKeys[arrayPosition] = arrayPosition;
     arrayPosition += 1;
 }

 // Sort the array.
 Array.Sort(sortArrayWords, sortArrayKeys);
 arrayPosition = 0;

 // Create new XML to update the table.
 string newTableXML = "";
 // Iterate through the sorted array of keys.
 for (int i = 1; i <= sortArrayWords.Length - 1; i++) 
 {
     nodeIterator = root.Select(
         "/my:myFields/my:group1/my:group2", this.NamespaceManager);

     // Go to the right position in the table.
     for (int j = 1; j <= sortArrayKeys[i]; j++) 
     {
         nodeIterator.MoveNext();
     }

     // Add the row to the XML.
     newTableXML += nodeIterator.Current.OuterXml;
 }

 // Set the table to use the new XML.
 root.SelectSingleNode(
     "/my:myFields/my:group1", this.NamespaceManager).InnerXml = newTableXML;

 ' Put the elements from the first column into an array.
 Dim root As XPathNavigator = Me.CreateNavigator
 ' Create a node iterator which contains only the values that you want to sort
 ' For this form, the entire table is in "group1",
 ' each row is a "group2"
 ' and the rows are "field1", "field2" and "field3" respectively.
 Dim nodeIterator As XPathNodeIterator = root.Select( _
     "/my:myFields/my:group1/my:group2/my:field1", Me.NamespaceManager)
 ' Create arrays to use for sorting.
 Dim sortArrayWords(nodeIterator.Count) As String
 Dim sortArrayKeys(nodeIterator.Count) As Integer
 Dim arrayPosition As Integer = 1
 ' Populate the arrays for sorting.
 While nodeIterator.MoveNext() ' Loop until there are no more elements
     sortArrayWords(arrayPosition) = nodeIterator.Current.Value
     sortArrayKeys(arrayPosition) = arrayPosition
     arrayPosition += 1
 End While
 ' Sort the array.
 Array.Sort(sortArrayWords, sortArrayKeys)
 arrayPosition = 0
 ' Create new XML to update the table.
 Dim newTableXML As String = ""
 ' Iterate through the sorted array of keys.
 For i As Integer = 1 To sortArrayWords.Length - 1
     nodeIterator = root.Select( _
         "/my:myFields/my:group1/my:group2", Me.NamespaceManager)
     ' Go to the right position in the table.
     For j As Integer = 1 To sortArrayKeys(i)
     nodeIterator.MoveNext()
     Next
 ' Add the row to the XML.
 newTableXML &amp;= nodeIterator.Current.OuterXml
 Next
 ' Set the table to use the new XML.
 root.SelectSingleNode("/my:myFields/my:group1", _
     Me.NamespaceManager).InnerXml = newTableXML

次の手順を実行してフォームを発行します。
1. Backstage の [発行] タブで [SharePoint Server] をクリックします。
2. 発行先の SharePoint サイトの URL を入力し、[ 次へ] をクリックします。
  
  重要
  
  このフォームテンプレートをセキュリティで保護されたソリューションとして発行するためには、このサイトのサイトコレクション管理者である必要があります。
3. [ フォームライブラリ] をクリックし、[ 次へ] をクリックします。
4. [ 新しいフォームライブラリを作成する] をクリックし、[ 次へ] をクリックします。
5. フォームライブラリの名前と説明を入力し、[ 次へ] をクリックします。
6. [発行] をクリックします。

例 2: SharePoint リストでのベンダーの管理

この例では、Microsoft SharePoint Foundation 2010 オブジェクトモデルに対するプログラミングを行います。これを行うには、SharePoint Server 2010 のライセンス付きコピーでインストールされている Microsoft.SharePoint.dll アセンブリへの参照を確立する必要があります。

Microsoft.SharePoint.Server.dll は、既定で C:\Program Files\Common Files\Microsoft Shared\Web Server Extensions\14\ISAPI にインストールされています。この DLL を、SharePoint オブジェクトモデルに対するプログラミングを行うプロジェクトにインクルードする必要があります。 Visual Studio 2012 プロジェクトの中で Microsoft.SharePoint.dll への参照を設定するには、 コードエディターを開き、[ プロジェクト] メニューの [ 参照の追加] をクリックします。 [ 参照の追加] ダイアログボックスで [ 参照] タブをクリックし、Microsoft.SharePoint.dll ファイルの場所を指定して [ OK] をクリックします。これで、Microsoft.SharePoint.dll がプロジェクトディレクトリにコピーされ、SharePoint Foundation 2010 オブジェクトモデルのメンバーを InfoPath ソリューションの中で使用できるようになります。

フォームのデザインとコードの作成

InfoPath フォームのコードから、SharePoint オブジェクトモデルを使用して参照リスト内にアイテムを作成できます。これは、SharePoint リストからドロップダウンボックスを設定して、別のフォームを作成せずに新しい値を追加する場合に便利です。この例ではコンボボックスを使用して、現在リストにあるすべての値を表示し、まだ値が存在していない場合に値をリストに追加するプログラミングロジックを作成します。

SharePoint リストに基づいてコンボボックスに新しいアイテムを追加できるフォームテンプレートを作成するには

SharePoint Server 2010 のサーバー上に簡単なユーザー設定リストを作成し、それに MyList という名前をつけます。以下の例では、このリストの Title フィールドにバインドされている コンボボックスを使用します。
InfoPath Designer に新しい 空白のフォームを作成し、フォーム上に コンボボックス コントロールを挿入して、コンボボックスにバインドされているフィールドの名前を myCombo に変更します。
次の手順を実行して、コンボボックスへの値の読み込みに使用するデータ接続をリストに追加します。
1. [データ] タブの [外部データの取得] グループで [SharePoint リストから] ボタンをクリックします。
2. リストのあるサイトの URL を入力し、[ 次へ] をクリックします。
3. リストを選択し、[ 次へ] をクリックします。
4. 含めるフィールドを選択します。この例では、[タイトルと ID] を選択します。 Title には、ルックアップの値が含まれています。 [次へ] をクリックします。
5. 次の画面で [ 次へ] をクリックします。
6. データ接続に LookupList という名前を指定し、[完了] をクリックします。
次の手順を実行して、コンボボックス内の値をリストから読み込みます。
1. 手順 1 で作成したコンボボックスを選択します。
2. リボンの [コントロールツール] の [ プロパティ] タブで [ 選択肢の編集] をクリックします。
3. [ 外部データソースから選択肢を取得する] をクリックします。
4. [ データソース] に、手順 2. で作成したデータ接続が設定されていることを確認します。
5. 値と表示名を Title に設定します。
6. [ ブラウザーフォーム] タブで、[ ポストバックの設定] の下の [ 常に送信する] を選択してから、[ OK] をクリックしてプロパティダイアログボックスを閉じます。
コンボボックスが選択されたままであることを確認し、リボンの [ 開発] タブの [ Changed イベント] をクリックします。

フォームをまだ保存していない場合は、保存を促すメッセージが表示されます。次に、コードエディターウィンドウが開き、イベントハンドラーにカーソルが myCombo_Changed 表示されます。
このトピックで前述したように、Microsoft.SharePoint.dll アセンブリへの参照を追加します。 Microsoft.SharePoint アセンブリの参照に関する詳細については、「SharePoint オブジェクトモデルのメンバーを使用する」を参照してください。

次のコードをイベントハンドラーに myCombo_Changed 貼り付けます。

 // Use InfoPath OM's ServerInfo.SharePointSiteUrl property to programmatically
 // specify the site where the form is published.
 using (SPSite FormSite = new SPSite(ServerInfo.SharePointSiteUrl.ToString()))
 {
     using (SPWeb FormWeb = FormSite.OpenWeb())
     {
         // Get the SharePoint list.
         SPList LookupList = FormWeb.Lists["MyList"];
         // Query for the item.
         SPQuery MyQuery = new SPQuery();
         // "Title" is the field (column) to search in the SharePoint list.
         // /my:myFields/my:myCombo is the xpath to the field bound to the Combo Box in the form.
         MyQuery.Query = "<Where><Eq><FieldRef Name='Title' /><Value Type='Text'>" + 
             GetDomValue("/my:myFields/my:myCombo") + "</Value></Eq></Where>";
         SPListItemCollection ReturnedItems = LookupList.GetItems(MyQuery);
         // Add the item to the SharePoint list if no items were returned in the query.
         if (ReturnedItems.Count == 0)
         {
             SPListItem NewItem = LookupList.Items.Add();
             // Set the value of the Title field in the list to the value in Combo Box on the form.
             NewItem["Title"] = GetDomValue("/my:myFields/my:myCombo");
             // Set AllowUnsafeUpdates to 'true' to temporarily allow updates to the database.
             FormWeb.AllowUnsafeUpdates = true;
             NewItem.Update();
             // Set AllowUnsafeUpdates back to 'false' to prevent further updates to the database.
             FormWeb.AllowUnsafeUpdates = false;
         }
     }
 }

 ' Use InfoPath OM's ServerInfo.SharePointSiteUrl property to specify the site where the form is published.
 Using FormSite As New SPSite(ServerInfo.SharePointSiteUrl.ToString())
     Using FormWeb As SPWeb = FormSite.OpenWeb()
         ' Get the SharePoint list.
         Dim LookupList As SPList = FormWeb.Lists("MyList")
         ' Query for the item.
         Dim MyQuery As New SPQuery()
         ' "Title" is the field (column) to search in the SharePoint list.
         ' my:myFields/my:myCombo is the xpath to the field bound to the Combo Box in the form.
         MyQuery.Query = "<Where><Eq><FieldRef Name='Title' /><Value Type='Text'>" &amp; _
             GetDomValue("/my:myFields/my:myCombo") &amp; "</Value></Eq></Where>"
         Dim ReturnedItems As SPListItemCollection = LookupList.GetItems(MyQuery)
         ' Add the item to the lookup list if no items were returned in the query.
         If ReturnedItems.Count = 0 Then
             Dim NewItem As SPListItem = LookupList.Items.Add()
             ' Set the value of the Title field in the list to the value in Combo Box on the form.
             NewItem("Title") = GetDomValue("/my:myFields/my:myCombo")
             ' Set AllowUnsafeUpdates to 'true' to temporarily allow updates to the database.
             FormWeb.AllowUnsafeUpdates = True
             NewItem.Update()
             ' Set AllowUnsafeUpdates back to 'false' to prevent further updates to the database.
             FormWeb.AllowUnsafeUpdates = False
         End If
     End Using
 End Using

上記のコード例は、 GetDomValue ヘルパー関数によって異なります。ヘルパー関数の次のコードを GetDomValue イベントハンドラー関数の下に myCombo_Changed 貼り付けます。

 private string GetDomValue(string XpathToGet)
 {
     return this.CreateNavigator().SelectSingleNode(XpathToGet, this.NamespaceManager).Value;
 }

 Private Function GetDomValue(XpathToGet As String) As String
     Return Me.CreateNavigator().SelectSingleNode(XpathToGet, Me.NamespaceManager).Value
 End Function

次の手順を実行してフォームを発行します。
1. Backstage の [発行] タブで [SharePoint Server] をクリックします。
2. 発行先の SharePoint サイトの URL を入力し、[ 次へ] をクリックします。
  
  重要
  
  このフォームテンプレートをセキュリティで保護されたソリューションとして発行するためには、このサイトのサイトコレクション管理者である必要があります。
3. [ フォームライブラリ] をクリックし、[ 次へ] をクリックします。
4. [ 新しいフォームライブラリを作成する] をクリックし、[ 次へ] をクリックします。
5. フォームライブラリの名前と説明を入力し、[ 次へ] をクリックします。
6. [ 発行] をクリックします。
7. フォームの発行が成功したら、フォームライブラリからフォームを開き、コンボボックスに新しい値を追加して、コードをテストします。 myCombo フィールドを出ると、新しい値は SharePoint リストに書き込まれます。

Share via

サンドボックスソリューションのサンプル

例 1: 注文フォーム内のデータの並べ替え

フォーム内のデータをプログラムによって並べ替えるフォームテンプレートを作成するには

例 2: SharePoint リストでのベンダーの管理

フォームのデザインとコードの作成

SharePoint リストに基づいてコンボボックスに新しいアイテムを追加できるフォームテンプレートを作成するには

その他のリソース

Share via

サンドボックス ソリューションのサンプル

例 1: 注文フォーム内のデータの並べ替え

フォーム内のデータをプログラムによって並べ替えるフォーム テンプレートを作成するには

例 2: SharePoint リストでのベンダーの管理

フォームのデザインとコードの作成

SharePoint リストに基づいてコンボ ボックスに新しいアイテムを追加できるフォーム テンプレートを作成するには

その他のリソース

サンドボックスソリューションのサンプル

フォーム内のデータをプログラムによって並べ替えるフォームテンプレートを作成するには

SharePoint リストに基づいてコンボボックスに新しいアイテムを追加できるフォームテンプレートを作成するには