主题：[求助]字段转换名称

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:cs.rar

 

A表车号    件数   吨位  复制B表 车号=车皮号 件数= 厂发数量   吨位=厂发重量

 

请帮助写写代码？谢谢! 

你是复制一个表. 然后更改列名?

A表车号    件数   吨位  复制行数据到B表 a表车号的数据=b表车皮号的数据 a表件的件数的数据= b表厂发数量    a表吨位的数据=b表厂发重量

把循环列,改为为指定列赋值即可.

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

保存后厂发货数量表输入的行,到厂家发货通知表增加一行  ,请帮看看，谢谢！

http://www.foxtable.com/help/topics/2292.htm

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

r("车号")=dr("车皮号")
r("件数")=dr("厂发数量")
r("吨位")=dr("厂发重量")

又有新问题 当规格中的不一样的数据有不同的符号要分隔如 400*9*9   300/8  试了很久没写成功 要怎样写代码？

 

用Contains判断一下有哪个字符就用那个分割