上周整理好的工价数据损坏都没了，所以想整一个自动收集工价的代码，将路线卡明细里的数据自动转到工价表里。
if "车间"=“普车”then
工序单价记入工价表“普车”
工序单价记入工价表“数控”
以下窗口代码报错字符转换无效，帮忙改一下。。
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
End If
Next
[此贴子已经被作者于2014-5-13 12:57:39编辑过]
加好友 
发短信
Post By：2014/5/13 12:07:00 [显示全部帖子]
Post By：2014/5/13 13:13:00 [显示全部帖子]
