Foxtable(狐表)用户栏目专家坐堂 → IF问题


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

主题:IF问题

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


加好友 发短信
等级:三尾狐 帖子:715 积分:6677 威望:0 精华:0 注册:2016/6/27 17:56:00
IF问题  发帖心情 Post By:2019/4/25 2:52:00 [显示全部帖子]

老师,请问下,如果A列一样,B列不为空,那么C列自动输入“正确”,如果B列有重复,那么默认有重复的行只要输入一次就可以,不会重复输入,其他行为空,这样的代码要怎么写,麻烦老师帮我写下,谢谢!

 

下面是例子,例如A列001一样,但是B列的电视重复了,所以在C列的电视行只要输入一次1次就可以了,不需要重复输入。

 

 

  A列   B列     C列 
   001   冰箱    正确
   001   电视    正确
   001   电视    
   001   洗衣机    正确
   002   冰箱    正确
   002   冰箱    
   002   洗衣机    正确
   002   电视    正确

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


加好友 发短信
等级:三尾狐 帖子:715 积分:6677 威望:0 精华:0 注册:2016/6/27 17:56:00
  发帖心情 Post By:2019/4/25 15:39:00 [显示全部帖子]

老师,代码我修改了下,但是只有有重复的行,C列才会输入1,如果只有单行的,C列都不会自动输入,麻烦老师帮我修改下,谢谢!
Select Case e.DataCol.name
 Case "A列", "B列"
 Dim drs As List(Of DataRow) = e.DataTable.Select("A列 = '" & e.DataRow("A列") & "'", "B列 desc")
 If drs.count > 0 Then
 drs(0)("C列") = 1
 For i As Integer = 1 To drs.count-1
 drs(i)("C列") = Nothing
 Next
 End If
End Select

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


加好友 发短信
等级:三尾狐 帖子:715 积分:6677 威望:0 精华:0 注册:2016/6/27 17:56:00
  发帖心情 Post By:2019/4/25 17:19:00 [显示全部帖子]

老师,发现一个问题,如果C列不小心删除了,再重置A列或者B列时,B列有重复的行,C列不会再自动输入,只有没重复的行才会自动输入。

 回到顶部