此主题相关图片如下：qq图片20220110061512.png
Dim fzdx As String = “A;B;C”
DIM _fxtj_dt as datatable = datatables("表A")
DIM _fxtj_dt1 as datatable = datatables("表B")
Dim fzdxs() As String = fzdx.split(";")
Dim zd As New Dictionary(Of String, Double)
Dim Arys As List(Of String()) = _fxtj_dt.GetValues(fzdx.Replace(";","|"))
'--------------------------------------------------------------------------------------------------------------------------------------
For Each Ary As String() In Arys
Dim xh As String = ""
For i As Integer = 0 To fzdxs.Length - 1
If xh > "" Then
xh = xh & "|"
End If
xh = xh & Ary(i)
Next
For Each dc As DataCol In _fxtj_dt1.DataCols
Dim j As String = xh & "*" & dc.name
zd.Add(j,0)
Next
Next
加好友 
发短信
Post By：2022/1/10 6:16:00 [显示全部帖子]
