我写了这样一个代码：想从基础资料中去引用相关的行，为什么单位这个栏目一直无法引用过来？ 详细请看管理项目1的附件

If e.DataCol.Name ="单价" Then \'比较单价列
    Dim dr As DataRow \'定义一个行
    dr = e.DataTable.find (e.OldValue <> e.NewValue ) \'判断新旧值是否相同
    If dr IsNot Nothing Then \'如果不同的话,将相应的行写入库存信息表中
        dr = DataTables("库存信息").AddNew
        dr("产品编号") = e.DataRow("产品编号")
        dr("产品名称") = e.DataRow("产品名称")
        dr("规格型号") = e.DataRow("规格型号")
        dr("所属大类") = e.DataRow("所属大类")
        dr("所属小类") = e.DataRow("所属小类")
        dr("单位") = e.DataRow("单位") \'单位这个栏目,怎么无法引用呢?
        dr("单价") = e.DataRow("单价")
dr("日期") = e.DataRow("建档日期")
    End If
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

我测试单位可以引用啊，其实代码这样就可以了：

If e.DataCol.Name ="单价" Then \'比较单价列
    Dim dr  As DataRow = DataTables("库存信息").AddNew
    dr("产品编号") = e.DataRow("产品编号")
    dr("产品名称") = e.DataRow("产品名称")
    dr("规格型号") = e.DataRow("规格型号")
    dr("所属大类") = e.DataRow("所属大类")
    dr("所属小类") = e.DataRow("所属小类")
    dr("单位") = e.DataRow("单位") \'单位这个栏目,怎么无法引用呢?
    dr("单价") = e.DataRow("单价")
    dr("日期") = e.DataRow("建档日期")
End If

是的，代码2也可以这样写，我也试过了。唯一不能的是，这个单位不管用哪个代码写，都无法引用，搞不好是电脑的问题。我再试试看，谢谢了

又做了一次，在我的电脑中，如果“基础资料”是新增一行，单位是不能引用过来的，只有修改单价后，单位才可以引用过来。很郁闷。。。

再次求助，这个是为什么呢？

你的先输入单位，再输入单价才行。

你可以设置代码，在单位等其他必要的列没有输入完成的情况下，禁止输入单价

收到，按大师的方法，马上可以，在禁止必要列的输入方面，我再用其他代码来规定。

谢谢大师了。。。。