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

上周整理好的工价数据损坏都没了，所以想整一个自动收集工价的代码，将路线卡明细里的数据自动转到工价表里。

if "车间"=“普车”then

工序单价记入工价表“普车”

if"车间"=“数控”then

下载信息 [文件大小：下载次数： ]
点击浏览该文件:数据转移.table

工序单价记入工价表“数控”

以下窗口代码报错字符转换无效，帮忙改一下。。

Dim Vals As List(of String())

Vals = DataTables("路线卡明细").GetValues("零部件图号|工序|车间|工序单价")

For i As Integer = 0 To Vals.Count - 1

Dim m As Double = vals(i)(3)

If m > 0 Then

Dim n As String = vals(i)(2)

If n = "数控" Then

Dim dr As DataRow = DataTables("工价表").AddNew()

dr("零部件图号") = Vals(i)(0)

dr("工序") = Vals(i)(1)

dr("数控") = Vals(i)(3)

Else

Dim dr As DataRow = DataTables("工价表").AddNew()

dr("零部件图号") = Vals(i)(0)

dr("工序") = Vals(i)(1)

dr("单价") = Vals(i)(3)

End If

[此贴子已经被作者于2014-5-13 12:57:39编辑过]

大神你们在哪里

下载信息 [文件大小：下载次数： ]
点击浏览该文件:数据转移.table

Dim Vals As List(of String())

Vals = DataTables("路线卡明细").GetValues("零部件图号|工序|车间|工序单价")

For i As Integer = 0 To Vals.Count - 1

Dim m As Double

If Vals(i)(3) <> "" Then

m= vals(i)(3)

End If

If m > 0 Then

Dim n As String = vals(i)(2)

If n = "数控" Then

Dim dr As DataRow = DataTables("工价表").AddNew()

dr("零部件图号") = Vals(i)(0)

dr("工序") = Vals(i)(1)

dr("数控") = Vals(i)(3)

Else

Dim dr As DataRow = DataTables("工价表").AddNew()

dr("零部件图号") = Vals(i)(0)

dr("工序") = Vals(i)(1)

If Vals(i)(3) <> "" Then

dr("单价") = Val(Vals(i)(3))

End If

主题：[求助]帮忙查一下错。。