主题：等于

此主题相关图片如下：qq截图20141008105009.png

当卡号列中某一行出现内容时对应的持卡人 和 分配地点 列 能否自动改成预定的值？

可以啊.在DataColChanged事件中编写代码处理

此主题相关图片如下：油卡明细.png
油卡明细表

 

此主题相关图片如下：油卡预分配.png
油卡预分配表

代码如下
If e.DataCol.Name = "卡号" Then          Dim dr As DataRow
     dr = DataTables("油卡明细").Find("卡号 = '" & e.DataRow("卡号") & "'" )
     If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("持卡人")= dr("持卡人")
         e.DataRow("分配地点")= dr("分配地点")
      End If
 End  If

为什么不按照油卡明细表中的更改呢？

 代码是没有问题的，你可以重新填入卡号，看数据变化。

如果在预分配表中持卡人和分配地点都存在别的内容，能不能把这些内容自动替换掉？

 

你是说，不允许输入额外的内容？你可以控制这两列锁定。

 

或者用代码

 

Select Case e.DataCol.Name
    Case "卡号", "持卡人", "分配地点"
        Dim dr As DataRow
        dr = DataTables("油卡明细").Find("卡号 = '" & e.DataRow("卡号") & "'" )
        If dr IsNot Nothing '如果找到, 则设置各列内容
            e.DataRow("持卡人")= dr("持卡人")
            e.DataRow("分配地点")= dr("分配地点")
        End If
End Select

预分配表中的内容我是直接从别的地方复制过来的，这两列的内容有很多和油卡明细表不一样， 我的意思是复制过来后能不能直接在预分配表就替换成和油卡明细表这两列一样的内容。

看6楼，代码就是