Dim eagi,eagj,tabi,tabj,eagint,i,j,ci,li,mstr,mchan As Integer
Dim eagbooks As new List (of String)
Dim eagstring,eagstr,wstr,ename,echan As String
'Dim antilwgs(j) As Integer
If e.DataCol.name = "xuhao" Then
eagi=0
For Each eagbook As DataTable In DataTables
eagstring = right(eagbook.name,2)
If eagstring = "gc" Then
eagbooks.Insert(eagi,eagbook.name)
eagi = eagi+1
End If
Next
eagj = eagbooks.count
End If
For Each ww As String In eagbooks
output.show(ww)
Next
'以下代码,将各项工程最高计量次数存入变量j中
For i=0 To eagj-1 Step 1
li=1
For Each eagcol As DataCol In DataTables(eagbooks(i)).DataCols
If eagcol.name.Contains("mtrNo") Then
eagstr = right(eagcol.name,2)
ename = "mtrlwgNo"
mstr = "mtrNo"
echan = ename & cstr(0) & cstr(1)
mchan = mstr & cstr(0) & cstr(1)
output.show("echan=" & echan)
Integer.TryParse(eagstr,eagint)
If j < eagint Then
j = eagint
End If
li=li+1
End If
Dim antilwgs(j+1) As Double
antilwgs(1) = DataTables(eagbooks(1)).Compute("Sum(mtrlwgNo01)", echan & " = '" & e.DataRow("mtrNo") & "'" )
' t & " = '" & Vars("产品") & "'")
'Compute("Sum(mtrlwgNo01)", aa & " = '" & e.DataRow("mtrNo") & "'")
e.DataRow("antilwg") = antilwgs(i)
Next
output.show("i=" & i)
Next
output.show("eagint=" & eagint)
此主题相关图片如下：qq截图201910103.png
加好友 
发短信
Post By：2019/10/9 20:05:00 [只看该作者]
