XML多次循环查找并给表赋值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这是对方的XML

<?xml version="1.0" encoding="utf-8"?>

<ufinterface efdebug="0" efserverid="321" eftype="EFSQL" ddate="2016-10-08" sqlstr="s elect * from Rdrecord32 where dnmaketime > '2017-04-26' and dnmaketime < '2017-04-27' " proc="Query" succeed="1" dsc="EFSQL处理成功">

<head>

<z:row xmlns:z="#RowsetSchema" AutoID="1003699447" ID="1000729735" cInvCode="CBNNN-JHJ0005A" iQuantity="10.0000000000" iFlag="0" cDefine23="2017-04-26T00:00:00" cDefine25="同博达" iDLsID="1000341212" iNQuantity="10.0000000000" strC strCode="030702CBNNN-JHJ0005A" bLPUseFree="False" iRSRowNO="0" iOriTrackID="0" bCosting="True" bVMIUsed="False" cbdlcode="KJ1704C87" corufts="" strC iExpiratDateCalcu="0" iorderdid="1000161766" iordertype="1" iordercode="0117040E4" iorderseq="1" ipesodid="1000161766" ipesotype="1" cpesocode="0117040E4" ipesoseq="1" isotype="0" irowno="1" rowufts="0000000281bd4607" />

</head>

</voucher>

</ufinterface>

我有2个时间控件。想通过选择起始时间start和截止时间ed。dnmaketime > '2017-04-26' and dnmaketime < '2017-04-27'。

Dim start As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")

Dim Ed As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")

然后解析XML。对应的值填写到销售出库单。sqlstr应该是查2个表rdrecord32和rdrecords32.当在rdrecord32查到id和rdrecords32的id相等。如附件图。

那么销售出库单就需要新增加1行，csocode,cInvCode,ccusinvname,iQuantity从rdrecords32获取值。

对应关系

字段名	值	表
cMaker	制单人	rdrecord32
cWhCode	仓库编码	rdrecord32
	仓库
csocode	销售订单号	rdrecords32
cBusCode	发货单号	rdrecord32
dDate	出库日期	rdrecord32
cCode	出库单号	rdrecord32
	出库类别
cDefine2	销售部门	rdrecord32
	业务员
cDefine10	客户名称	rdrecord32
cMemo	备注	rdrecord32
cInvCode	存货编码	rdrecords32
ccusinvname	存货名称	rdrecords32
	主计量单位
iQuantity	数量	rdrecords32
cDefine12	货运单号	rdrecord32
cShipAddress	发货地址	rdrecord32

这个怎么做呢？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:xml2017.rar

此主题相关图片如下：qq1.png

[此贴子已经被作者于2017/6/27 18:13:50编辑过]

之前告诉过你怎么操作xml，请自行补充知识

https://www.baidu.com/baidu?wd=xmldocument&tn=monline_dg&ie=utf-8

单独解析一个XML没有问题----这个之前告诉我了。

现在是有2个问题困扰我。

1.起始start和截止ed控件的值如何传递到sqlstr里？

sqlstr="s elect * from Rdrecord32 where dnmaketime > '2017-04-26' and dnmaketime < '2017-04-27' "

dnmaketime > '2017-04-26' 为dnmaketime > start.value

dnmaketime < '2017-04-27' 为dnmaketime < ed.value。

2.在Rdrecord32表解析出ID，还要在Rdrecords32在查询一次。这个怎么做？

1、

Dim xmlDoc As New System.Xml.XmlDocument
xmlDoc.LoadXml("<?xml version=""1.0"" encoding=""utf-8""?><iDLabelInfo> <ProductName>LUNAR FLYKNIT 3 iD</ProductName> <Sizes> <sz SizeCode=""12.5"" SizeType=""us"" /> <sz SizeCode=""11"" SizeType=""uk"" /> </Sizes> <MainColorway>Black Heather/Volt/white</MainColorway> <DesignedBy>Hiroyuki Sugiyama</DesignedBy> <ImageURL>ttp://origin-nikeid.nike.com//services/imgredirect/mtr-802081658/bgc-na/wid-574/vw-9</ImageURL> <WorkOrderNumber>W00001</WorkOrderNumber></iDLabelInfo>")

Dim ndList = xmlDoc.GetElementsByTagName("sz")

For i As Integer = 0 To ndList.count - 1
    If ndlist(i).Attributes IsNot Nothing Then
        For Each xa As Xml.XmlAttribute In ndlist(i).Attributes
            Output.Show(xa.Name & "=" & xa.Value)
        Next
    End If
Next

2、没看懂你什么问题，如何查询Rdrecords32？

解析出id后，你想怎么查就怎么查啊。

老师，我没看懂4楼代码，哪里和时间时间控件有关系。还有XML是我提供的那个吗？

附件是我根据之前的帖子，有2个按钮，1查询，2解析。请帮忙看看怎么改。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:xml1.rar

如果是查找，你要传递什么参数过去查找？对方的文档如何说明？

如果是获取值，参考

Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Load("d:\test.xml")
Dim ndList = xmlDoc.GetElementsByTagName("ufinterface")
For i As Integer = 0 To ndList.count - 1
msgbox(ndlist(i).Attributes("sqlstr").value)
Next

<?xml version="1.0" encoding="utf-8"?>

<ufinterface efdebug="0" efserverid="321" eftype="EFSQL" ddate="2016-10-08" sqlstr="se lect * from Rdrecord32 where dnmaketime > '2017-04-26' and dnmaketime < '2017-04-27' " proc="Query" succeed="1" dsc="EFSQL处理成功">

</ufinterface>

xml就是上面这个。dnmaketime大于起始时间小于截止时间。

把xml的内容复制到context里面。点击调用就返回了结果。

此主题相关图片如下：222.png

那你就不能合成字符串？合成字符串之后查询？

Dim msg As String = "context=" & 这里写你合成的字符串
output.show(msg)
Dim req = System.Net.WebRequest.Create("http://192.168.1.83/EFWebS/EFWebService.asmx/U8WebXML")

[此贴子已经被作者于2017/6/28 16:26:24编辑过]

主题：XML多次循环查找并给表赋值