| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54495) |
| -- 作者：lesliecheung912 -- 发布时间：2014/7/29 16:04:00 -- [求助] 对于表A有一列为“编号”，现在想要在窗口中选中表Ａ编号列的其中一项时，然后点击Button，效果是：让表Ａ根据所选择的编号重新加载 那么ｂｕｔｔｏｎ中的代码该如何写？
|
| -- 作者：有点甜 -- 发布时间：2014/7/29 16:06:00 -- 根据当前行的编号加载表A的数据？ |
| -- 作者：有点甜 -- 发布时间：2014/7/29 16:08:00 -- Dim r As Row = Tables("表A").Current DataTables("表A").LoadFilter = "编号 = \'" & r("编号") & "\'" DataTables("表A").Load |
| -- 作者：lesliecheung912 -- 发布时间：2014/7/29 16:09:00 -- 还不是，只有当选中编号列的某一项时才根据编号重新加载表Ａ，若是选择的其他列则不加载 |
| -- 作者：有点甜 -- 发布时间：2014/7/29 16:12:00 -- 不理解你4楼的意思，某一项又是什么意思，看3楼代码。 |
| -- 作者：lesliecheung912 -- 发布时间：2014/7/29 16:16:00 -- 我的意思是只有光标在编号那一列时才进行重新加载，若是在别的列则不加载 |
| -- 作者：有点甜 -- 发布时间：2014/7/29 16:20:00 -- If Tables("表A").Cols(Tables("表A").ColSel).Name = "编号" Then Dim r As Row = Tables("表A").Current DataTables("表A").LoadFilter = "编号 = \'" & r("编号") & "\'" DataTables("表A").Load End If |
| -- 作者：lesliecheung912 -- 发布时间：2014/7/29 16:24:00 -- 谢谢甜姐 |