主题：SQL后台提取数据

If e.DataCol.Name = "工piao号" Then '发生变化的是产品编号吗?

    '在产品表找出该产品

    Dim dr As DataRow

    dr = DataTables("投产明细").Find("工piao号= '" & e.DataRow("工piao号") & "'")

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

        e.DataRow("项目名称") = dr("项目名称")

        e.DataRow("材质") = dr("工艺材质")

        e.DataRow("零件图号") = dr("零件图号")

        e.DataRow("尺寸") = dr("尺寸")

        e.DataRow("单重") = dr("单重")

        e.DataRow("数量") = dr("数量")

        e.DataRow("名称") = dr("名称")

     End If

End If

各位老师，我把数据库改为SQL了后，想后台提取数据，代码不会写。希望老师帮忙改下，谢谢

有点蓝老师，更改代码后，我重置编号列，电脑要卡很久.....