- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 插入请假记录 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132092)
-- 发布时间：2019/3/13 17:30:00
-- 插入请假记录
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:插入请假记录.rar |
请参阅附件。我有两个数据表，想将“请假记录”里面的“无薪假天数”通过菜单设计里面新加按钮的click功能插入到“工资计算”里面的“请假天数”里去。代码如下：
If User.Group = "行政" Or User.name = "开发者"
Dim name As String = CurrentTable.name
Dim cnt As Integer = Tables("请假记录").rows.count
For i As Integer = 0 To cnt - 1
Dim dr As Row = Tables("工资计算")
If e.DataRow("姓名") = ""
Else
For Each dr As DataRow In DataTables("工资计算").DataRows
If dr("年月") = e.DataRow("年月") And dr("姓名") = e.DataRow("姓名") And e.DataRow("无薪假天数") > 0
dr("请假天数") = e.DataRow("无薪假天数")
Exit For
Else
Continue For
End If
Next
End If
Next
End If
但是有警告说：类型table的值无法转换为row，错误代码：Dim dr As Row = Tables("工资计算")。除此之外，不知道这段代码是否还有其他错误？谢谢。
-- 发布时间：2019/3/13 18:32:00
--
If User.Group = "行政" Or User.name = "开发者"
For Each r As Row In Tables("请假记录").rows
If r("姓名") = "" Then
Else
For Each dr As DataRow In DataTables("工资计算").DataRows
If dr("年月") = r("年月") And dr("姓名") = r("姓名") And r("无薪假天数") > 0
dr("请假天数") = r("无薪假天数")
Exit For
End If
Next
End If
Next
End If