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

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

点击浏览该文件: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

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

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

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

 

Dim dr As DataRow = DataTables("厂家发货通知").addnew
Dim r As DataRow = e.DataRow
Dim s As String() = r("规格").split("*","/")
If s.Contains("*") Then
End If
If s.Contains("/") Then
End If
dr("材质")=strs(0)
dr("规格")=strs(1)
dr("长度")=strs(2)
dr("车皮号")=r("车号")
dr("厂发数量")=r("件数")
dr("厂发重量")=r("吨位")
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

此主题相关图片如下：qq图片20140113162744.jpg

谢谢！

.NET Framework 版本：2.0.50727.3053
Foxtable 版本：2013.10.14.1
错误所在事件：表，厂发货数量，BeforeSaveDataRow
详细错误信息：
调用的目标发生了异常。
试图用不正确的维数对数组操作。

此主题相关图片如下：qq图片20140113170413111.jpg

此主题相关图片如下：qq图片20140114095224.jpg

Dim dr As DataRow = DataTables("厂家发货通知").addnew
Dim r As DataRow = e.DataRow  '变量r为发生变化的行
Dim strs As String() = r("规格").split("*","/") '变量strs为行规格分割字符串的字符
If  r("规格").Contains("*") Then                 '行规格是*的字符串为真
    strs=r("规格").split("*")               'strs为行规格用*分割字符
End If
If  r("规格").Contains("/") Then      '行规格是一个/的字符串为真
    strs=r("规格").split("/")        'strs为行规格用 / 分割字符
End If
dr("材质")=strs(0)
dr("规格")=strs(1)
dr("长度")=strs(2)
dr("车皮号")=r("车号")
dr("厂发数量")=r("件数")
dr("厂发重量")=r("吨位")
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

 导入数据后保存出错，请帮助看看，谢谢！

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

点击浏览该文件:cs2.rar

小白改了半天没改好，请求帮改下，看到例子学习可少走弯路。谢谢！