systemready = False If e.DataCol.name = "客户" AndAlso e.NewValue > "" Then Dim fdr As DataRow = DataTables("客户表").find("客户 = '" & e.DataRow("客户") & "'") If fdr Is Nothing Then fdr = DataTables("客户表").AddNew fdr("客户") = e.DataRow("客户") End If End If systemready = True