以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  for  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=67705)
--  作者：cjl333333333
--  发布时间：2015/4/29 14:59:00
--  for
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 = \'这后面要怎么写？
--  作者：Bin
--  发布时间：2015/4/29 15:00:00
--  
没看懂你的意思
--  作者：cjl333333333
--  发布时间：2015/4/29 15:28:00
--  

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

？？？？？？？？？ For I As Integer =        这一句后面不是少了值吗，我不懂写，所以问这个要怎么写？？？？？？
--  作者：Bin
--  发布时间：2015/4/29 15:29:00
--  
没有人知道要怎么写,因为没有人知道你想干什么.   代码并不是固定的写法. 而是不同的需求,不同的情况有不同的写法.