- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教甜大师 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59831)
-- 发布时间：2014/11/11 22:29:00
-- 请教甜大师
甜大师好：请教一段代码如何写？
要求：
1、根据一数组“您好，他好，都好，大师好，全都好” 判断表a中的某一行（希望此行全部记录完整）
2、如果此行的各列记录包含以上数组的两个以上，则提示此行的记录不符合以上数组内的记录，要进行更改符合
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目31.zip |
-- 发布时间：2014/11/11 22:59:00
--
Dim dr As DataRow = DataTables("表A").DataRows(1)
Dim ary() As String = {"您好","他好","都好","大师好","全都好"}
Dim count As Integer = 0
For Each dc As DataCol In DataTables("表A").DataCols
If array.IndexOf(ary, dr(dc.Name)) > -1 Then
count += 1
End If
If count > 2 Then
msgbox("不符合")
Exit For
End If
Next
-- 发布时间：2014/11/11 23:16:00
--
谢谢！
我的意思是：
1、不知道在表中的哪一行，
2、要列出不符合数组的哪一个字符
-- 发布时间：2014/11/12 9:02:00
--
你就不会变通么
For Each dr As DataRow In DataTables("表A").DataRows
Dim ary() As String = {"您好","他好","都好","大师好","全都好"}
Dim count As Integer = 0
For Each dc As DataCol In DataTables("表A").DataCols
If array.IndexOf(ary, dr(dc.Name)) > -1 Then
count += 1
End If
If count > 2 Then
msgbox(dr("_Identify") & " 不符合")
Exit For
End If
Next
Next