在表的datacolchanged 事件加入代码：
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
DataTables("设计项目进度").save
这样可以实现初步同步数据 ，但是必须是 设计项目进度 表有加载到相同的项目编号，才会生效， 如果设计项目进度表不加载数据过来，无法生效。
于是，我就改用SQL：
Case "业务", "客户代号", "项目号", "产品图片", "设计负责人", "模具编号"
Dim dr As DataRow = DataTables("设计项目进度").SQLFind("项目编号 = '" & e.DataRow("项目编号") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
DataTables("设计项目进度").save
但是没有用？？？
加好友 
发短信
Post By：2022/10/18 8:21:00 [显示全部帖子]
