If e.DataCol.Name = "未回数量" Then '如果是已结帐列的内容变动
If e.NewValue = 0 Then '而且变动后的值是True(已勾选)
Dim dr1 As DataRow
dr1 = DataTables("供应商订货总表").Find("未回数量 = '" & Tables("供应商订货总表").Current("未回数量") & "'")
If dr1("piao号")=e.DataRow("piao号")
dr1("核销") = True
End If
End If
End If
有一个订单表,一个发货表 订单表有 未回数量 核销 这两列 我要当订单表的未回数量等于0时,让核销字段自动变为true,可是现在这段代码却是一旦保存订单表示,且显示 未回数量不是0,核销已经 变为了 true 怎么回事呀 ,这个是在订单表 DataColChanged 中写的代码