没有认真看帮助，代码放到DataColChanged，不是DataColChanging
导入代码也不正确，基本都没有理解帮助的代码逻辑
Dim nma() As String = {"编号", "型号", "规格", "数量", "日期"} '
Dim nmb() As String = {"编号", "型号", "规格", "数量", "日期"} '
For Each r As Row In Tables("导入窗口_表A").GetCheckedRows '
-----------------------
表达式中的日期用符号#括起来，数值则不需要任何符号括起来，这些和代码中的格式是一样的，唯一不同的是字符串用单引号括起来。
例如：
Tables("订单").Filter = "[产品] = 'PD01'" '字符用单引号括起来
Tables("订单").Filter = "[日期] = #3/17/1999#" '日期用#括起来
Tables("订单").Filter = "[折扣] = 0.1" '数值直接使用
-----------------------
If DataTables("表B").Find("编号 = '" & r("编号") & "' And 数量 = " & r("数量") & " And 日期 = #" & r("日期") & "#") Is Nothing Then
Dim dr As Row = Tables("表B").AddNew '
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = r(nma(i))
Next
End If
Next
加好友 
发短信
Post By：2023/6/21 13:32:00 [显示全部帖子]
