[ InfoPath应用场景：库存管理 ] 在InfoPath Form Service利用WSS Web Service技术,通过VSTA代码把复杂表单写入SharePoint列表数据库 (二)
上一篇摘要：http://www.cnblogs.com/dosboy/archive/2007/11/30/977535.html
上一篇主要内容：
讨论了InfoPath如何利用VSTA来把表单数据按行写入数据库，这个数据库作者为了方便，以列表库代替。
接上篇: 要点4: 如何在InfoPath的VSTA下编写代码,
"工具"->"提交选项"->"使用代码自定义操作"->"编辑代码",
在提交选项中插入以下自定义提交代码:
public void FormEvents_Submit(object sender, SubmitEventArgs e)
{
this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:ErrInfo", this.NamespaceManager).SetValue(""); FormSave(); if (this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:SaveError", this.NamespaceManager).Value == "true")
{
e.CancelableArgs.Message = "提交过程有失败，请查看错误信息"; e.CancelableArgs.Cancel = true;
} else { e.CancelableArgs.Cancel = false; } 
}代码中使用了一个方法,FormSave(),这是一个自定的方法,其作用就是:
1 把表单提交进入表单库,
如果是新建表单,使用不允许覆盖的提交方式.
如果是更新以前的表单,使用可以覆盖的提交方式.
2 把表单的记录更新进入列表库,
代码通过遍历表单中重复表的每一行数据,如果该行数据在"列表"中可以找到,即有相同的单号\名称\规格,那就采用Update方法,如果找不到,那就采用新建New.
然后代码继续遍历"列表"中入库单号等于该入库单的项,如果列表中的项,新提交的表单中没有,说明使用者在使用InfoPath的时候把它删除了,那么就从"列表"中删除它!
3 错误处理,
private void FormSave() { // 在此处编写代码。 string strResult = ""; this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:SaveError", this.NamespaceManager).SetValue("false"); try { //进行表单的保存操作，如果保存没有办法进行，就不进行记录的更新 if (this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:isNew", this.NamespaceManager).Value == "true") { //如果是新建表单，不允许覆盖库中的记录 ((FileSubmitConnection)this.DataConnections["新建提交"]).Execute(); this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:isNew", this.NamespaceManager).SetValue("false"); } else //如果不是新建表单，而是更新以前的表就，使用可以覆盖的提交 ((FileSubmitConnection)this.DataConnections["主提交"]).Execute(); strResult += "入库单保存成功！\r\n"; //读取列表的记录 SPSite site = new SPSite("http://f2003-server/"); SPList list = site.OpenWeb("/project").Lists["物资出入库记录"]; //初始化WebService 物资入库.myws.Lists listService = new 物资入库.myws.Lists(); //获得Lists对象 listService.Credentials = System.Net.CredentialCache.DefaultCredentials; //设置验证票 listService.Url = "http://f2003-server/project/_vti_bin/Lists.asmx"; //非常重要，指定了下面所有的操作都是针对project这个子网站 //遍历重复表group1中的每一项 XPathNavigator NodeIter = this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:group1", this.NamespaceManager); //定义操作字串 string strBatch = ""; foreach (XPathNavigator myf in NodeIter.SelectChildren(XPathNodeType.Element)) { //对于重复表中的每一行，到列表去查找，如果找到就使用Update，找不到就使用New SPQuery myQ = new SPQuery(); string QueryText = "<Where><And><And><Eq><FieldRef Name='" + list.Fields["入库单编号"].InternalName + "'/><Value Type='Text'>" + MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:入库单编号", this.NamespaceManager).Value + "</Value></Eq><Eq><FieldRef Name='" + list.Fields["物资名称"].InternalName + "'/><Value Type='Text'>" + myf.SelectSingleNode("my:物资名称", NamespaceManager).Value + "</Value></Eq></And>" + "<Eq><FieldRef Name='" + list.Fields["规格型号"].InternalName + "'/><Value Type='Text'>" + myf.SelectSingleNode("my:规格型号", NamespaceManager).Value + "</Value></Eq>" + "</And></Where>"; myQ.Query = QueryText; SPListItemCollection items = list.GetItems(myQ); if (items.Count == 0) { //如果没有找到就新增 strBatch += "<Method ID='" + myf.SelectSingleNode("my:序号", NamespaceManager).Value + "' Cmd='New'><Field Name='ID'>New</Field>"; } else { //如果找到了就更新 strBatch += "<Method ID='" + myf.SelectSingleNode("my:序号", NamespaceManager).Value + "' Cmd='Update'><Field Name='ID'>" + items[0].ID.ToString() + "</Field>"; } //扁历所有列表的字段，如果与表单的字段名称相同，就更新该字段 foreach (SPField field in list.Fields) { //重复表内的字段 foreach (XPathNavigator myfield in myf.SelectChildren(XPathNodeType.Element)) //比较相同 if (field.Title == myfield.Name.Substring(myfield.Name.IndexOf(":") + 1)) { strBatch += "<Field Name='" + field.InternalName + "'>" + myfield.Value + "</Field>"; } //重复表外的，单号、收货人、日期等等字段 foreach (XPathNavigator myfield in this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields", this.NamespaceManager).SelectChildren(XPathNodeType.Element)) if (field.Title == myfield.Name.Substring(myfield.Name.IndexOf(":") + 1)) { strBatch += "<Field Name='" + field.InternalName + "'>" + myfield.Value + "</Field>"; } } strBatch += "</Method>"; } //下面检查，此次表单编辑，是否删除了记录 SPQuery myQ2 = new SPQuery(); string QueryText2 = "<Where><Eq><FieldRef Name='" + list.Fields["入库单编号"].InternalName + "'/><Value Type='Text'>" + MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:入库单编号", this.NamespaceManager).Value + "</Value></Eq></Where>"; myQ2.Query = QueryText2; int MethodId = NodeIter.SelectChildren(XPathNodeType.Element).Count + 1; SPListItemCollection allItems = list.GetItems(myQ2); foreach (SPListItem item in allItems) { bool stillExist = false; //原来记录中的项，在新的表单中还存在？ foreach (XPathNavigator myf in NodeIter.SelectChildren(XPathNodeType.Element)) { if (item["物资名称"].ToString() == myf.SelectSingleNode("my:物资名称", this.NamespaceManager).Value) { //物资名称相同，规格型号都为空 if (item["规格型号"] == null && (myf.SelectSingleNode("my:规格型号", this.NamespaceManager).Value == null || myf.SelectSingleNode("my:规格型号", this.NamespaceManager).Value == "")) stillExist = true; else { if (item["规格型号"] != null) if (item["规格型号"].ToString() == myf.SelectSingleNode("my:规格型号", this.NamespaceManager).Value) stillExist = true; } } } if (!stillExist) {//如果老项已经在新的编辑过程中删除了，那么就执行删除Method strBatch += "<Method ID='" + MethodId.ToString() + "' Cmd='Delete'><Field Name='ID'>" + item.ID.ToString() + "</Field></Method>"; } } XmlDocument xmlDoc = new System.Xml.XmlDocument(); System.Xml.XmlElement elBatch = xmlDoc.CreateElement("Batch"); elBatch.SetAttribute("OnError", "Continue"); elBatch.InnerXml = strBatch; XmlNode ndReturn = listService.UpdateListItems("676CFD44-76D0-4161-966D-DA1B55CB6CD3", elBatch); foreach (XmlNode ndResult in ndReturn.ChildNodes) { if (Convert.ToInt32(ndResult.FirstChild.Value) == 0) strResult += "序号：" + ndResult.Attributes["ID"].Value.ToString().Replace("New", "新建").Replace("Update", "更新").Replace("Delete", "删除") + "成功！"; else { strResult += "序号：" + ndResult.Attributes["ID"].Value.ToString().Replace("New", "新建").Replace("Update", "更新").Replace("Delete", "删除") + "失败！(代码" + Convert.ToInt32(ndResult.FirstChild.Value) + ")"; this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:SaveError", this.NamespaceManager).SetValue("true"); } } this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:ErrInfo", this.NamespaceManager).SetValue(strResult); } catch (Exception ex) { this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:SaveError", this.NamespaceManager).SetValue("true"); this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:ErrInfo", this.NamespaceManager).SetValue(ex.Message); } }
在表单的启动事件，用来设置IsNew变量的状态。
public void FormEvents_Loading(object sender, LoadingEventArgs e) { // 在此处编写代码。 if(!this.New) this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:isNew", this.NamespaceManager).SetValue("false"); else this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:isNew", this.NamespaceManager).SetValue("true"); }
代码事项:使用了三个表单字段来进行状态维护,IsNew,SaveError,ErrInfo,
1 isNew,用来判断这个表单操作,是不是新建.平时当然可以使用表单的this.New来判断,但是由于是没有使用"保存",而使用了了提交到表单库的操作,你提交进去表单库后,this.New不会变成False.
2 SaveError,判断整个操作是否成功,如果有一个记录没有成功更新,也为True;
3 ErrInfo,如果失败,就显示失败信息,这个在表单中有一个文本框与之帮定.
要点5:事件处理程序：处理删除表单表单操作
表单内部中的更新(插入、删除、更新）都可以反应在“列表”中，那么使用者如果删除表单文件呢？
大家可以自己思考哦。
