以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于复选框  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105652)
--  作者：jianjingmaoyi
--  发布时间：2017/8/23 16:47:00
--  关于复选框
我发现一个问题,我利用表的复选框写入数据:

      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


经常会留一行



这个是什么回事?
--  作者：有点蓝
--  发布时间：2017/8/23 17:55:00
--  
For Each r As Row In Tables("物资在途_Table1").GetCheckedRows
    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
Next

ClearCheckedRows之前某一个版本有问题，请更新到最新版本可以解决