已优化完成，结贴，复选框(多选)改全.rar为优化，
新手上路可对比学习
特别感谢：wanshan 1、请求大侠对【复选框(多选).mdb】进行修改优化程序
2、新手上路也可下载【复选框(多选).mdb】进行参考
谢谢
[attach]40274[/attach]
[attach]40307[/attach]作者: lllll1 时间: 2009-11-5 23:47
自己坐个沙发作者: lllll1 时间: 2009-11-6 11:26
不解决不让沉作者: lllll1 时间: 2009-11-6 12:40
再上作者: wanshan 时间: 2009-11-6 14:33
Private Sub Text0_AfterUpdate()
Me.Child2.Requery '这里没有用到查询，只需要在子窗体的链接主字段和链接子字段中填上相应的字段就会自动筛选
If Child2.Form.Recordset.RecordCount > 0 Then '判断子窗体是否有记录
Dim mubiao
mubiao = Me!Child2!TEXT
For i = 1 To 5
Me("Check" & (i + 4)) = Mid(mubiao, i, 1) * -1
Me("text" & (i + 1)) = Mid(mubiao, i, 1) '技术上这一步可以省略，可直接把值赋予文本框text30
Next
End If
End Sub
Public Function jihe()
For i = 1 To 5
Me("text" & (i + 1)) = Me("Check" & (i + 4)) * -1
Next
End Function作者: lllll1 时间: 2009-11-6 16:39
谢谢作者: guide8 时间: 2010-5-18 10:02
谢谢~~~~作者: yanwei82123300 时间: 2010-5-18 13:25
支持原创作者: WAYEXCEL 时间: 2022-11-7 22:03
