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

    \'在产品表找出该产品

    Dim dr As DataRow

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

    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了后，想后台提取数据，代码不会写。希望老师帮忙改下，谢谢