自动填充数据问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

意思是A表输入商品的时候，自动给其它表新增行？到datacolchanged事件处理

if e.datacol.name = "商品" andalso e.newvalue > "" then

dim r as row = tables("xx子表").addnew

r("第一列") = xxx

r("第二列") = xxx

end if

如果可以改商品名称，您希望怎么做？

如果还有另外一个表，重复复制中间三行代码使用即可。

分隔符是什么意思，每个名称一行数据？还是指多值字段？

If e.DataCol.name = "商品_名称" AndAlso e.newvalue > "" Then

dim s1() as string = {"手工绕线" , "焊接1","装配1","粘合","包装1"}

dim s2() as string ={"2","1","1","1","1"}

for i as integer = 0 to s1.length - 1

Dim r As Row = Tables("成品记录.组装工序").addnew
r("工序_名称") = s1（i）
r("工序_数量") = s2（i）

End If

Dim s3() As String = {"111","222","333"}

Dim s4() As String ={"2","2","1"}

For i As Integer = 0 To s3.length - 1（这句是什么意思？试了下，这个只能设置3以上，不然会出现超出范围的提示）

Dim r As Row = Tables("成品记录.组装单").addnew

r("子件_名称") = s3(i)

r("子件_数量") = s4(i)

按10楼方法改呀

请上传实例说明

下面这段代码的原因，首先选择"商品_名称"会触发一次事件，成品记录.组装工序新增了一次数据，然而在第6行又重新给"商品_名称"列赋了新的值，这时又会触发一次事件，导致成品记录.组装工序又新增了一次数据

If e.DataCol.Name = "商品_名称" Then '发生变化的是产品编号吗?

'在产品表找出该产品

Dim dr As DataRow

dr = DataTables("成品资料").Find("商品编号 = '" & e.DataRow("商品_名称") & "'" )

If dr IsNot Nothing '如果找到, 则设置各列内容

e.DataRow("商品_名称")= dr("商品名称") & " " & dr("一次电流") & "/" & dr("二次电流") & " " & dr("等级容量匝数")

e.DataRow("商品_图片")= dr("图片")

e.DataRow("商品_备注")= dr("备注")

End If

改为

If e.DataCol.Name = "商品_名称" Then '发生变化的是产品编号吗?

'在产品表找出该产品

Dim dr As DataRow

dr = DataTables("成品资料").Find("商品编号 = '" & e.DataRow("商品_名称") & "'" )

If dr IsNot Nothing '如果找到, 则设置各列内容

e.DataRow("商品_名称")= dr("商品名称") & " " & dr("一次电流") & "/" & dr("二次电流") & " " & dr("等级容量匝数")

e.DataRow("商品_图片")= dr("图片")

e.DataRow("商品_备注")= dr("备注")

Dim s1() As String = {"手工绕线" , "焊接1","装配1","粘合","包装1"}

Dim s2() As String ={"2","2","1","1","1"}

For i As Integer = 0 To s1.length - 1

Dim r As Row = Tables("成品记录.组装工序").addnew

r("工序_名称") = s1(i)

r("工序_数量") = s2(i)

End If

主题：自动填充数据问题