以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135679)

--  作者：Rex1Chen --  发布时间：2019/5/31 20:24:00 --  [求助]  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目1.table 有点甜老师：        你好！      还是原来的附件，我想实现多一个功能 请看问题的描述：     我要在表A从第一列第4行开始向下提取不同的4个不重复的字符，以 , 分开放入第二列第二行。并用这四个值跟第一列的第三行比较，如果有一个相同则显示第一期中，如不同则向上一行比较，如果有一个相同则显示第二期中，如果到 第一行还是没相同则显示未开出。 非常感谢！！！

--  作者：有点蓝 --  发布时间：2019/5/31 20:33:00 --   http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50080

--  作者：有点蓝 --  发布时间：2019/5/31 20:42:00 --   做个按钮，代码 Dim lst As new List(of String) Dim t As Table = Tables("表A") For i As Integer = 3 To 6     lst.Add( t.Rows(i)("第一列")) Next t.Rows(1)("第二列") = Nothing t.Rows(1)("第二列") = String.Join(",",lst.ToArray) If lst.Contains(t.Rows(2)("第一列")) Then     t.Rows(1)("第三列") = "中" Else If lst.Contains(t.Rows(1)("第一列")) Then     t.Rows(1)("第三列") = "第二期中" Else If lst.Contains(t.Rows(0)("第一列")) Then     t.Rows(1)("第三列") = "第三期中" Else If t.Rows(1).IsNull("第二列")     t.Rows(1)("第三列") = "未开出" End If

--  作者：Rex1Chen --  发布时间：2019/5/31 20:57:00 --   好的，我以后会把标题写好，方便以后查找。谢谢！！