标题：[求助]有没有类似生单的代码?

1楼

ddlzq 发表于：2011/4/21 18:30:00

各位老师:

假如一个表是[业务表一],有[单号][名称][型号][规格]列

单号名称型号规格

A01 圈 D1 30

A01 管 30 30*20*2

A01 垫 2mm 30*20*2

另外一个是SQL的数据表[业务表二].也有[单号][名称][型号][规格]列

做一个生单功能,当输入A01单号后,自动将三行数据新增行,列值自动对应生单?目前我只会抄帮助中代码写一行自动输入

2楼

blackzhu 发表于：2011/4/21 18:53:00

Select Case e.DataCol.Name
    Case "第一列"
        If e.DataRow.GetChildRows("表B").Count = 0 Then
            Dim dr As DataRow = DataTables("表B").AddNew()
            dr("第一列") = e.DataRow("第一列")
            dr("第二列") = e.DataRow("第二列")
            dr("第三列") = e.DataRow("第三列")
        End If
End Select

3楼

blackzhu 发表于：2011/4/21 18:55:00

意思是第一列有变化的话，如果表B是空表，就自动添加行，并且将表A中第一列，第二列，第三列的数据加载到表B同样的这三列中去。

4楼

ddlzq 发表于：2011/4/21 19:38:00

再次谢谢您blackzhu老师,我试试看.

共4 条记录, 每页显示 10 条, 页签: [1]