Foxtable(狐表)用户栏目专家坐堂 → [求助]如何比较不同列的相同数据,自动补齐缺少的数据,并以显著的特殊颜色或字体标出来?


  共有530人关注过本帖树形打印复制链接

主题:[求助]如何比较不同列的相同数据,自动补齐缺少的数据,并以显著的特殊颜色或字体标出来?

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


加好友 发短信
等级:幼狐 帖子:137 积分:1210 威望:0 精华:0 注册:2011/3/22 22:52:00
[求助]如何比较不同列的相同数据,自动补齐缺少的数据,并以显著的特殊颜色或字体标出来?  发帖心情 Post By:2018/2/13 21:35:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:0.jpg
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:20859 积分:106405 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/13 22:16:00 [只看该作者]

Dim min As Integer = 180123110
Dim max As Integer = 180123116
Dim cnt As Integer = Tables("表A").Rows.Count
Dim ct2 As Integer = cnt
Tables("表A").AddNew(20)
Dim str() As String = {"第一列","第二列","第三列","第四列"}
For i As Integer = 0 To str.Length - 1
    ct2 = cnt
    Dim lst As List(Of String) = DataTables("表A").GetValues(str(i),str(i) & " Is not null")
    For j As Integer = min To max
        If lst.Contains(cstr(j)) = False
            Tables("表A").Rows(ct2)(str(i)) = j
            ct2 += 1
        End If
    Next
Next

 回到顶部