1、???的代码有问题,应该这个样:
For Each dr As DataRow In dt.Select("材料編號 Like 'P*%'") Dim dr2 As DataRow = DataTables("配合比").Find("clmq = '" & dr("材料名稱") & "'") If dr2 IsNot Nothing dr("單位") = dr2("cldw") End IfNext
2、沒""DataTable 的问题已经解决,等下次更新,下次你应该可以装上了。
嗯,是应判断有无的,缺少操练了