[求助]调用java 的webservices接口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

还是给你做一个吧，参考

下载信息 [文件大小：下载次数： ]
点击浏览该文件:soap测试.zip

现在弹出正确的返回值。

现在的问题是，如何把返回的string，按照格式写入到计划表2呢?

计划表2的列名有工单号，工单行号，工单号_工单行号，订单号，订单行号，订单号_订单行号，客户物料编码，客户物料名称，博达物料编码，博达物料名称，排产数量，类别名称，生产部门名称，开工日期，完工日期，两化表编号，备注，软件版本，

返回string的格式为

{u8OrderNo:H21611019,u8LineNo:1,productNo:XKPON-CAR0042A,productType:AOCM-60-16PON-8GE-SFP-G2,bdMaterialNo:CBPON-CAR0009A,bdMaterialName:LS85-16PON-8GE-SFP-V3,productionQuantity:1,typeDscr:null,depName:制造中心-装配部-高端,startDate:2016-11-17 00:00:00.0,endDate:2016-11-18 00:00:00.0,activeOSNo:oeout8464e00101,remark:null,swVersion:03088_2016}

对应关系如下

订单号----u8OrderNo

订单行号---u8LineNo

订单号_订单行号-----u8OrderNo-u8LineNo

客户物料编码----productNo

客户物料名称----productType

博达物料编码----bdMaterialNo

博达物料名称----bdMaterialName

排产数量-----productionQuantity

类别名称----typeDscr

生产部门名称---depName

开工日期----startDate

完工日期----endDate

两化表编号---activeOSNo

备注----remark

软件版本---swVersion

怎么完善keydown代码:

If e.KeyCode = keys.enter Then

If gdhhh.text.Contains("-") Then

Dim id As Integer = gdhhh.text.IndexOf("-")

Dim str1 As String = gdhhh.text.SubString(0,id)

Dim str2 As String = gdhhh.text.SubString(id + 1)

Dim dl As new ClassLibrary1.Class1()

MessageBox.Show(dl.getScheduleByWorkOrder(str1,str2))

Dim r As Row = Tables("计划表2").AddNew

r("工单号") = str1

r("工单行号") = str2

...

end if

If e.KeyCode = keys.enter Then

If gdhhh.text.Contains("-") Then

Dim id As Integer = gdhhh.text.IndexOf("-")

Dim str1 As String = gdhhh.text.SubString(0,id)

Dim str2 As String = gdhhh.text.SubString(id + 1)

Dim dl As new ClassLibrary1.Class1()

Dim Multi As String =dl.getScheduleByWorkOrder(str1,str2)

Dim Values() As String------返回的有{}，这个{}怎么去掉。

Values = Multi.split(",")

For Index As Integer = 0 To Values.Length - 1

MessageBox.Show(Values(Index))-----数组元素变为了A:B，那么怎么判断对应关系，然后把冒号后面的值写到对应的列呢。

Dim r As Row = Tables("计划表2").AddNew

r("工单号") = str1

r("工单行号") = str2

1、http://www.foxtable.com/webhelp/scr/0241.htm

Multi = Multi.Replace("{","").Replace("}","")

2、http://www.foxtable.com/webhelp/scr/1945.htm

Dim zd As New Dictionary(Of String, String)

zd.Add("u8OrderNo","订单号")

zd.Add......

Dim r As Row = Tables("计划表2").AddNew

For Index As Integer = 0 To Values.Length - 1

dim vrr() as string = Values(Index).split(":")

r(zd(vrr(0))) = vrr(1)

[此贴子已经被作者于2016/11/17 11:29:41编辑过]

为什么下载你的测试案例打开报错？

---------------------------

错误

---------------------------

编译错误:未声明名称“soapHelper_test”。

错误代码：msgbox(soapHelper_test.soapHelper.myOmgr.helloWorld("123"))

---------------------------

确定

---------------------------

回复16楼，你要引用dll文件。

主题：[求助]调用java 的webservices接口