此主题相关图片如下:捕获.png
发生的过程如下:
有两个表,一个是业务表,一个是收费表,业务表中有piao据号码等字段,收费表中有文号 等字段
在业务表的
DataColChanged事件中,设置如下代码,达到,如果在收费表中有同文号的行,就把该行的piao据号码自动录入到业务表同文号行的piao据号码字段
If e.DataCol.Name="基准日期" Then
Dim dr As DataRow = DataTables("收费").Find("[文号]=" & e.DataRow("文号") )
If dr Isnot Nothing Then
e.DataRow("piao据号码")=dr("piao据号码")
e.DataRow("收费金额")=dr("收费金额")
End If
End If
呵呵,没有看出啥问题,用一个简单的表格实例来说明比较好。
应是Dim dr As DataRow = DataTables("收费").Find("[文号]=
'" & e.DataRow("文号")
& "' ")