主题：[求助]小白鼠求教“技项目总体优化，及易表转狐表语句！谢谢

Find("[地区三字码] = '" & e.NewValue & "'")  说明地区三字码  有ABC  如果没有,请做个例子文件发上来看看

1楼有整个项目！您可下载！ 把涉及下面这段替换刚才if循环语句！ Select Case e.DataCol.name Case "原始地","原始地转标地" If e.DataRow.IsNull("原始地") Then e.DataRow("原始地币种能力") = Nothing ………………… select end 不出”无效地址“结果 If e.DataCol.Name = "原始地转标地" Then If e.NewValue Is Nothing And e.DataRow("原始地") = Nothing Then e.DataRow("原始地币种能力") = Nothing ElseIf e.NewValue <> Nothing Then Dim lz As DataRow lz = DataTables("地区货币能力表").Find("[地区三字码] = '" & e.NewValue & "'") If lz IsNot Nothing Then e.DataRow("原始地币种能力") = lz("货币能力表") ElseIf e.DataCol.Name = "原始地" Then If e.NewValue IsNot Nothing OrElse e.OldValue IsNot Nothing Then Dim mz As DataRow mz = DataTables("地区货币能力表").Find("[地区三字码] = '" & e.NewValue & "'") If mz IsNot Nothing Then e.DataRow("原始地币种能力") = mz("货币能力表") Else e.DataRow("原始地币种能力") = "无效地址" End If End If End If End If