主题：[求助]表复制中字段转换

表A字段 物资 400*20*9  复制到表B 的三个字段 转换 材质 400  规格 20  长度  9

请求帮助写下代码，在此感谢! 

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

点击浏览该文件:管理项目1.foxdb

dim dr as datarow = datatables("表B").addnew

dim dr as datarow = datatables("表B").addnew

是的

Dim dr As DataRow = DataTables("表B").addnew
Dim r As Row = Tables("表A").current
Dim strs As String() = r("物资").split("*")
dr("材质")=strs(0)
dr("规格")=strs(1)
dr("长度")=strs(2)    
      
    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

请问别的字段一起复制这样写代码可以吗？

当表新增N行，输入数值保存A表，B表同时增加N行，只要增加当前输入数值的行。请问代码如何写，谢谢！

新增就一行一行的来，

新增的行，必须填写数据，否则就提示，而且不允许再新增行。

代码容易写，而且操作出错概率小。

一次增加多行，代码啰嗦不说，有什么意义？

新增的行，必须填写数据，否则就提示，而且不允许再新增行，想想代码，写不好再请教。

学习下，谢谢分享

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

 

当规格是5*5*5 5/5/5 时可以转换，如果是 5*5  5/5就提示错。可以把 5*5  转成 规格 5 材质 5 长度没字符转换就为空可以吗？