请参阅附件。我有两个数据表，想将“请假记录”里面的“无薪假天数”通过菜单设计里面新加按钮的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("工资计算")。除此之外，不知道这段代码是否还有其他错误？谢谢。
加好友 
发短信
Post By：2019/3/13 17:30:00 [显示全部帖子]
