- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 我想如果保密号没有值才跟这个重新编一个保密号，如果是中央或省里已编好了的，就不编，但我加了 红色这句话后就报下面的错。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70285)
-- 发布时间：2015/6/18 13:24:00
-- 我想如果保密号没有值才跟这个重新编一个保密号，如果是中央或省里已编好了的，就不编，但我加了 红色这句话后就报下面的错。
Dim Q7 As Integer = 11111
For Each ary88() As String In DataTables("选课数据表").GetValues("试卷号|教室")
Dim drs88 As List(Of DataRow) = DataTables("选课数据表").Select("试卷号 = \'" & ary88(0) & "\' and 教室 = \'" & ary88(1) & "\'", "试卷号")
If drs88(0)("保密号") Is "" Then
Dim bmh As String
For i As Integer = 0 To drs88.Count - 1
drs88(i)("保密号") = "BXK" & Q7
Next
Q7 = Q7 + 1
End If
Next
我想如果保密号没有值才跟这个重新编一个保密号，如果是中央或省里已编好了的，就不编，但我加了 红色这句话后就报下面的错。
此主题相关图片如下：qq截图20150618132136.png
-- 发布时间：2015/6/18 14:08:00
--
对你无语
-- 发布时间：2015/6/18 14:53:00
--
Dim Q7 As Integer = 11111
For Each ary88() As String In DataTables("选课数据表").GetValues("试卷号|教室")
Dim drs88 As List(Of DataRow) = DataTables("选课数据表").Select("试卷号 = \'" & ary88(0) & "\' and 教室 = \'" & ary88(1) & "\'", "试卷号")
Dim bmh As String = "BXK" & Q7
For i As Integer = 0 To drs88.Count - 1
If drs88(i).Isnull("保密号") = False Then
bmh = drs88(i)("保密号")
Exit For
End If
Next
For i As Integer = 0 To drs88.Count - 1
drs88(i)("保密号") = bmh
Next
Q7 = Q7 + 1
Next