表A为数据接收表,表B为数据输出表。
要求,当表A输入"姓名"后,在表B中查找"姓名"相同,"表A日期"和"表B时期"为同年同月时,将表B的"输出1","输出2","输出3"列的内容,填充到表A的"接收1","接收2","接收3"列。
请问在DataColChanged事件中,表达式应该如何书写。
Select Case e.DataCol.Name Case "姓名" If e.NewValue IsNot Nothing Then Dim dr As DataRow
dr = DataTables("表B").Find("姓名 = '" & e.DataRow("姓名") & "'")'(这行不会写)
If dr IsNot Nothing Then e.DataRow("接收1") = dr("输出1") e.DataRow("接收2") = dr("输出2") e.DataRow("接收3") = dr("输出3") End If End IfEnd Select