主题：跨表引用奇怪的问题

在订单表的datacolchanged:

If e.DataCol.Name = "客户编号" Then
Dim nms() As String = {"备注1","备注2","备注3","备注4"，"备注5"}
If e.NewValue Is Nothing Then
For Each nm As String In nms
e.DataRow(nm) = Nothing
Next
Else
Dim dr As DataRow
dr = DataTables("客户").Find("[客户编号] = '" & e.NewValue & "'")
If dr IsNot Nothing
For Each nm As String In nms
e.DataRow(nm) = dr(nm)
Next
End If
End If
End If

------------------

以上代码,

1.本地access数据库，订单表能显示备注1,2,3，4,5

2.连接到sql server数据库，订单表只能显示备注1,2,3

这是怎么回事？

这个代码不会有问题。

都是同一个程序，只是连接数据库不一样而已，我怀疑是sql server出问题了，因为安装的时候弹出错误

加载出来有数据吗？看数据库里备注4，5是什么类型列？

我重置列或者

晕了，又可以了，刚才按了好多遍重置不行，后来多按几次就可以了

我现在用着没问题了，可以显示了。但是同事的还是不能显示，找天去看看他电脑怎么回事

1、测试代码的时候，在事件里面弹出msgbox各个值，看是否正确。

 

2、find能否找到数据，取决于你数据是否加载出来，没有加载出来的数据，是find不到的。