- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]字段转换名称 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44972)
-- 发布时间：2014/1/13 10:43:00
-- [求助]字段转换名称
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:cs.rar |
A表车号 件数 吨位 复制B表 车号=车皮号 件数= 厂发数量 吨位=厂发重量
请帮助写写代码？谢谢!
-- 发布时间：2014/1/13 10:49:00
--
你是复制一个表. 然后更改列名?
还是把 "厂发货数量" 的数据,复制到 "厂家发货通知" 表里面对应的列?
-- 发布时间：2014/1/13 12:04:00
--
A表车号 件数 吨位 复制行数据到B表 a表车号的数据=b表车皮号的数据 a表件的件数的数据= b表厂发数量 a表吨位的数据=b表厂发重量
-- 发布时间：2014/1/13 12:08:00
--
把循环列,改为为指定列赋值即可.
例如 r("车号")=dr("车皮号")
r("件数")=dr("厂发数量")
-- 发布时间：2014/1/13 14:23:00
--
Dim dr As DataRow = DataTables("厂家发货通知").addnew
Dim r As Row = Tables("厂发货数量").current
Dim strs As String() = r("规格").split("*")
dr("材质")=strs(0)
dr("规格")=strs(1)
dr("长度")=strs(2)
r("车号")=dr("车皮号")
r("件数")=dr("厂发数量")
r("吨位")=dr("厂发重量")
Dim nma() As String = {"到站"} \'A表数据来源列
Dim nmb() As String = {"到站"} \'B表数据接收列
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
保存后厂发货数量表输入的行,到厂家发货通知表增加一行 ,请帮看看，谢谢！
-- 发布时间：2014/1/13 14:45:00
--
http://www.foxtable.com/help/topics/2292.htm
-- 发布时间：2014/1/13 15:05:00
--
Dim dr As DataRow = DataTables("厂家发货通知").addnew
Dim r As Row = Tables("厂发货数量").current
Dim strs As String() = r("规格").split("*")
dr("材质")=strs(0)
dr("规格")=strs(1)
dr("长度")=strs(2)
r("车号")=dr("车皮号")
r("件数")=dr("厂发数量")
r("吨位")=dr("厂发重量")
Dim nma() As String = {"到站","车号","件数","吨位"}
Dim nmb() As String = {"到站","车皮号","厂发数量","厂发重量"}
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
-- 发布时间：2014/1/13 15:47:00
--
r("车号")=dr("车皮号")
r("件数")=dr("厂发数量")
r("吨位")=dr("厂发重量")
搞反了吧
dr("车皮号")=r("车号")
dr("厂发数量")=r("件数")
dr("厂发重量")=r("吨位")
dr("厂发数量")=r("件数")
dr("厂发重量")=r("吨位")
-- 发布时间：2014/1/13 16:14:00
--
又有新问题 当规格中的不一样的数据有不同的符号要分隔如 400*9*9 300/8 试了很久没写成功 要怎样写代码？
[此贴子已经被作者于2014-1-13 16:15:16编辑过]
-- 发布时间：2014/1/13 16:16:00
--
用Contains判断一下有哪个字符就用那个分割
if s.Contains("*") then
end if
if s.Contains("/") then
end if