在 datacolchanged 事件中:If e.DataCol.Name = "客户信息" Then
Dim dr As DataRow
dr = DataTables("客户数据").Find("综合信息 = '" & e.DataRow("客户信息") & "'" )
If dr IsNot Nothing '如果找到, 则设置各列内容
e.DataRow("时间")= dr("时间")
e.DataRow("支付方式")= dr("支付方式")
e.DataRow("备注")= dr("备注")
e.DataRow("新老客户")= dr("新老客户") / 这句是我增加的,增加了就不能调用 客户数据 表里面的数据了, 帮我看下哦是不是和上面的代码有冲突?
End If
End If
[此贴子已经被作者于2015/3/12 11:25:16编辑过]