- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]指定写入内容 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=144952)
-- 发布时间：2020/1/3 17:55:00
-- [求助]指定写入内容
老师， 请帮忙一下。
要在窗口表B中，先点选一条记录，当选中后其余记录就不能再选了，变成灰色。再到表A 中指定一条记录后，把表B中选中记录的项目名称和出货日期相应写入到表A中选中的记录，如果表A中没有选记录 ，就提示先选记录。
有点难，谢谢。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:分配.foxdb |
-- 发布时间：2020/1/3 20:18:00
--
表B，datacolchanged事件
If e.DataCol.Name = "是" AndAlso e.DataRow("是") Then
e.DataTable.ReplaceFor("是",False,"是=true and _Identify<>" & e.DataRow("_Identify"))
End If
按钮事件
Dim r As Row = Tables("表A").Current
Dim dr As DataRow = DataTables("表B").Find("是=true")
If r Is Nothing OrElse dr Is Nothing Then
Return
End If
r("项目名称") = dr("项目名称")
-- 发布时间：2020/1/3 20:34:00
--
谢谢老师，还要劳烦老师一下，只要在表A中重新选其它记录，表B中的勾选就全部去除
-- 发布时间：2020/1/3 20:42:00
--
表A，currentchanged事件
DataTables("表B").ReplaceFor("是",False，"是=true"）
[此贴子已经被作者于2020/1/3 20:42:21编辑过]