- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请教复选框相关代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=8286)
-- 发布时间：2010/9/27 21:56:00
-- 请教复选框相关代码
请问如示范文件表A窗口1，当输入日期，班组，复选框选中一部分姓名，点确定，出勤工时输入数据，求确定代码，要求表A日期和班组列与窗口控件日期和班组相等，窗口控件姓名包含表A姓名的行，表A出勤工时=窗口出勤工时.谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目27.table |
-- 发布时间：2010/9/27 22:51:00
--
Dim s1,s2,s3 As String
s1 = e.Form.Controls("日期").Value
s2 = e.Form.Controls("班组").Value
s3 = e.Form.Controls("姓名").Value
If s3 <> "" And e.Form.Controls("出勤工时").Value <> "" Then
For Each dr As DataRow In DataTables("表A").Select("[日期] = #" & s1 & "# And [班组] = \'" & s2 & "\' And [姓名] In(\'" & s3.Replace(",","\',\'") & "\')")
dr("出勤工时") = e.Form.Controls("出勤工时").Value
Next
End If
-- 发布时间：2010/9/27 22:59:00
--
谢谢C版，我明天试试