我发现一个问题,我利用表的复选框写入数据:
For Each r As Row In Tables("物资在途_Table1").Rows
If r.Checked = True Then
Dim myr As Row = Tables("物资入库_Table1").AddNew
For Each cl As Col In Tables("物资在途_Table1").Cols
Select Case cl.Name
Case "金额", "入库数量", "入库仓库", "供应商名称", "所在分院"
Case Else
myr(cl.Name) = r(cl.Name)
myr("入库单号") = Tables("物资入库").Current("入库单号")
End Select
Next
End If
Next
这样的写法 经常会发现 我勾选了3行 会直接添加4行
采取这样的清除勾选:
Tables("员工").ClearCheckedRows
经常会留一行
这个是什么回事?
加好友 
发短信
Post By：2017/8/23 16:47:00 [显示全部帖子]
