主题：datacolchanged

If  e.DataCol.name = "是否异常" AndAlso e.DataRow("是否异常") = "异常" Then
Select Case e.DataCol.name
   Case "生产调度令号"
       Dim dr As DataRow = DataTables("电装顾客财产异常处理").Find("生产调度令号 = '" & e.NewValue & "'")

         If dr Is Nothing Then
             dr = DataTables("电装顾客财产异常处理").AddNew()  
             dr("生产调度令号") = e.DataRow("生产调度令号")
             dr("客户单位") = e.DataRow("客户单位") 
             dr("姓名") = e.DataRow("姓名")
             dr("类别") = e.DataRow("类别")
             dr("财产名称") = e.DataRow("财产名称")
             dr("型号规格") = e.DataRow("型号规格")
             dr("单位") = e.DataRow("单位")
         Else
             dr("生产调度令号") = e.DataRow("生产调度令号")            
            
        End If
      
     Case "客户单位","姓名","类别","财产名称","型号规格","单位"
         Dim dr As DataRow = DataTables("电装顾客财产异常处理").Find("生产调度令号 = '" & e.DataRow("生产调度令号") & "'")
         If dr IsNot Nothing Then
         dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
         End If 
    
 End Select
End If

 

 

 

 

 

想实现表A的“是否异常”列为“异常”时，执行代码，否则不执行，应该怎么写？

这个试过了，不行啊

当表 电装顾客财产登记 的是否异常列为 异常 时  ，顾客财产异常处理列同步更新 生产调度令号等同名列的内容

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:例程1.foxdb

我的数据肯定是要反复录入的呀，不可能只录入一次的

狐爸爸，我也发现了这个问题，我修改了原来的行，他也会新增一行的，我是不是应该放在别的事件里面编程呢

这样可以同步修改吗？

如果没有那个异常不异常的选择呢

还有加入顾客财产登记表中有一列叫 客户单位  ，咋异常登记中有一列叫单位，但需要财产登记中的客户单位 同步到 异常登记中的单位，如何写 

狐爸爸，真的不是我不想思考，我也看懂了你的代码，从思维上来讲，代码是可行的，可是去掉

 

If e.DataRow("是否异常") = "异常" Then
 

 

 

end if

 

 

是实现不了的

 

还有一个问题就是如果在 顾客财产登记表 里输入两行相同的生产调度令号的时候，顾客财产异常表 里只会出现一行，而且是新的那一行，同时，这种代码只能给后面一个表使用，如果我还有一个表，在顾客财产登记表的datacolchanged中写入类似的代码时，对第二个表的操作是不执行的

 

 

请求帮忙