- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]帮忙查一下错。。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50774)
-- 发布时间：2014/5/13 12:07:00
-- [求助]帮忙查一下错。。
上周整理好的工价数据损坏都没了，所以想整一个自动收集工价的代码，将路线卡明细里的数据自动转到工价表里。
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
End If
Next
[此贴子已经被作者于2014-5-13 12:57:39编辑过]
-- 发布时间：2014/5/13 13:13:00
--
大神你们在哪里
-- 发布时间：2014/5/13 14:03:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:数据转移.table |
-- 发布时间：2014/5/13 14:08:00
--
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
End If
End If
Next
-- 发布时间：2014/5/13 16:20:00
--
谢啦~~
-- 发布时间：2014/5/13 16:21:00
--
谢谢~~