Foxtable(狐表)用户栏目专家坐堂 → [求助]新增字典 报错


  共有2912人关注过本帖平板打印复制链接

主题:[求助]新增字典 报错

帅哥哟,离线,有人找我吗?
km007
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:445 积分:5361 威望:0 精华:0 注册:2016/1/28 2:59:00
[求助]新增字典 报错  发帖心情 Post By:2022/1/10 6:16:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下: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

 回到顶部