主题：请教有点蓝老师

 和你给的帮助文档无关。

 

 看是否触发了合同表的datacolchanged事件。

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=108854&skin=0

 

datacolchanged事件不能写3楼的代码。你把datacolchanged删除再测试。

 

If e.DataCol.name = "商品id" Then
    Dim nms1() As String = {"名称","品牌"}
    Dim dr1 As DataRow
    dr1 = DataTables("商品").Find("[商品ID] = '" & e.DataRow("商品ID") & "'")
    If dr1 IsNot Nothing
        For Each nm1 As String In nms1
            e.DataRow(nm1) = dr1(nm1)
        Next
    End If
End If

 

或者你执行全部修改的时候，不要触发任何事件

 

http://www.foxtable.com/webhelp/scr/2218.htm

 

systemready = False
For Each cdr1 As DataRow In DataTables("合同_包材合同").datarows
    Dim nms1() As String = {"名称","品牌"}
    Dim dr1 As DataRow
    dr1 = DataTables("商品").Find("[商品ID] = '" & cdr1("商品ID") & "'")
    If dr1 IsNot Nothing
        For Each nm1 As String In nms1
            cdr1(nm1) = dr1(nm1)
        Next
       
    End If
Next
systemready = True

 

不会做，请上传具体实例测试。