以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  查找是否已存在相同值，并替换值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150137)
--  作者：北狐
--  发布时间：2020/5/21 19:26:00
--  查找是否已存在相同值，并替换值

DataColChanged表事件，加入以下代码


Dim dr As DataRow = e.DataRow
查询  Case e.DataCol.Name
    Case "工费单号"
        Dim dr2 As DataRow
        \'否则在产品表查找同名的工费单号行,将找到的行赋值给变量dr
        dr2 = DataTables("应付对账单初表").Find("工费单号 = \'" & e.NewValue & "\'")
        If dr2 IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
            
            e.DataRow("实工费") = 0
        End If
End 查询
想实现填充数据时，如果本表工费单号列已存在与现在要填充的工费单号相同的行，则本行的实工费变更为0，但以上代码执行后无效，求老师帮忙看下是什么问题？但在表中手动修改工费单号列，实工费就能实现此功能
数据是通过以下类似代码实现

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
cmd.CommandText = "查询 * From {表A} Where 条件语句"
dt = cmd.ExecuteReader()
For Each dr1 As DataRow In dt.DataRows
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next

[此贴子已经被作者于2020/5/21 19:27:26编辑过]
--  作者：有点蓝
--  发布时间：2020/5/21 20:32:00
--  
dr2 = DataTables("应付对账单初表").Find("工费单号 = \'" & e.NewValue & "\' and _Identify <>" & dr("_Identify"))