这是对方的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处理成功">
<voucher cardnumber="EFSQL" ccardname="" xmlns:z="EF">
<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>
<body />
</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 |
这个怎么做呢？
此主题相关图片如下：qq1.png
[此贴子已经被作者于2017/6/27 18:13:50编辑过]
加好友 
发短信
Post By：2017/6/27 18:12:00 [显示全部帖子]
