共3 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：请教复选框相关代码
1楼
wqc360 发表于：2010/9/27 21:56:00请问如示范文件表A窗口1，当输入日期，班组，复选框选中一部分姓名，点确定，出勤工时输入数据，求确定代码，要求表A日期和班组列与窗口控件日期和班组相等，窗口控件姓名包含表A姓名的行，表A出勤工时=窗口出勤工时.谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目27.table |
2楼
czy 发表于：2010/9/27 22:51:00Dim 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
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
3楼
wqc360 发表于：2010/9/27 22:59:00谢谢C版，我明天试试
共3 条记录, 每页显示 10 条, 页签:
[1]