- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 代码编写加条件求助？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=69179)
-- 发布时间：2015/6/1 10:05:00
-- 代码编写加条件求助？
Dim Result As DialogResult
Result = MessageBox.Show("确定导出?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question,MessageBoxDefaultButton.Button2)
Dim Cols1() As String = {"工作单位","县公司","姓名","性别","身份证号码","文化程度","鉴定等级","申报鉴定工种","鉴定批次","申报性质","备注","照片","是否合格","资格审核"}
Dim Cols2() As String = {"工作单位","县公司","姓名","性别","身份证号码","文化程度","鉴定等级","申报鉴定工种","鉴定批次","申报性质","备注","照片","是否合格","资格审核"}
For Each dr1 As DataRow In DataTables("报名登记表").Select("[资格审核] = True ")
Dim dr2 As DataRow = DataTables("审核合格表").Find("身份证号码 = \'" & dr1("身份证号码") & "\'")
If dr2 Is Nothing Then
dr2 = DataTables("审核合格表").AddNew
End If
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
上述是从“报名登记表”将资格审核合格人员导出到“审核合格表”的按钮代码，因为存在同1员工在上次审核不合格的情况下这次又来报名，只是“鉴定批次”不同，那么就要在“身份证号码”的基础上再加“鉴定批次”查找，这样不同批次的同1人在报名审核的信息上都完整，现求助版主，这个条件加上去代码应该如何写？谢谢先！！！！！！
-- 发布时间：2015/6/1 10:07:00
--
Find("身份证号码 = \'" & dr1("身份证号码") & "\' And 鉴定批次 = \'" & dr1("鉴定批次") & "\'")
-- 发布时间：2015/6/1 10:12:00
--
谢谢“大红袍”！！！！！！，我错在单双引号没用正确，这没有学过编程语言的就是差些。
-- 发布时间：2015/6/1 10:42:00
--
再次求助！如果在“报名登记表”中对某批次的员工A（合格改为不合格）进行资格审核修改后，点按钮再将数据导入到“审核合格表”中，员工A还是作为合格人员留在“审核合格表”中，这个问题如何解决？
-- 发布时间：2015/6/1 10:44:00
--
同样也是加条件啊
For Each dr1 As DataRow In DataTables("报名登记表").Select("[资格审核] = True")
-- 发布时间：2015/6/1 10:56:00
--
这句代码原来就有，但好象没起作用！
-- 发布时间：2015/6/1 10:58:00
--
代码不可能有问题，有问题，就是你数据有问题。
-- 发布时间：2015/6/1 11:00:00
--
有可能，我再看看，谢谢！！！！！！