Dim nms() As String = E.DataRow("参加任务人员").Split(",")
For I As Integer =
For Each nm As String In nms
Dim dt As DataRow = DataTables("员工薪资明细").FIND(" 姓名= '" & nm & "'")
If DT IsNot Nothing Then
DT("任务时间") = Tables("印刷生产单").Current("实际执行任务时间")
End If
Dim YG As DataRow = DataTables("员工资料").Find("姓名 = '" & nm & "'")
Dim XZ As DataRow = DataTables("员工薪资明细").Find("姓名 ='" & YG("姓名") & "' And 薪资类型 = '" & YG("薪资类型") & "'")
Dim SUM As Double = DataTables("员工薪资明细").Compute("SUM(任务薪资)","姓名 ='" & YG("姓名") & "' And 薪资类型 = '" & YG("薪资类型") & "'")
Next
SUM =SUM + I
Next
单色 2015/4/29 14:39:07
那FOR I AS INTEGER = '这后面要怎么写?