Select e.DataCol.Name
    Case "项目","计划编号"
        If e.DataCol.Name = "项目" OrElse e.DataCol.Name = "计划编号" Then
            Dim dr As DataRow
            Dim Filter As String
            Filter = "[项目] = \'" & e.DataRow("项目") & "\' And [计划编号] = \'" & e.DataRow("计划编号") & "\'"
            dr = DataTables("订单").Find(Filter ) \'在行政区域表查找所输入项目和计划编号的行
            If dr IsNot Nothing Then \'如果找到
                \'将找到行的图号?部件名称?计划数量?单价?客户简称?内容填入到正在输入的行中.
                e.DataRow("图号") = dr("图号")
                e.DataRow("部件名称") = dr("部件名称")
                e.DataRow("计划数量") = dr("计划数量")
                e.DataRow("单价") = dr("单价")
                e.DataRow("客户简称") = dr("客户简称")
            Else
                \'否则清除图号?部件名称?计划数量?单价?客户简称的内容
                e.DataRow("图号") = Nothing
                e.DataRow("部件名称") = Nothing
                e.DataRow("计划数量") = Nothing
                e.DataRow("单价") = Nothing
                e.DataRow("客户简称") = Nothing
            End If
        End If
    Case "同意修改"  \'如果订单修改审批通过
        DataTables("订单").ReplaceFor("计划数量", e.DataRow("修改计划数量"), "[同意修改] = True")
End Select

哪位高手指点一下，倒数第二句是不是有问题？为什么显示找不到“同意修改”列？

我想进行的动作是：当订单修改审批通过，锁定的订单行“计划数量”将变成“修改计划数量”

开始我以为可能不认逻辑列，就删除改为字符列，结果还是不认。所以，如果不是程序写的问题，会不会是有Bug?

 不可能是bug。

 如果你改成了字符列，就这样写 "[同意修改] = \'True\'"

 再不行，你做个例子上传上来

例子已上传。就是修改订单表格，在给修改订单列打勾的时候出错。

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

点击浏览该文件:管理项目12.table