以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  DataColChanged代码没有其作用  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129726)
--  作者：蓝蚂蚁
--  发布时间：2019/1/4 17:04:00
--  DataColChanged代码没有其作用

登记表中的DataColChanged代码：

Select Case e.DataCol.Name
    Case “编号"
        Dim zh As DataRow =DataTables("基础数据库").Find("挂网单位转换_中标号= \'" & e.DataRow("编号") & "\'")
        If zh IsNot Nothing Then
            e.DataRow("挂网单位")=zh("挂网单位转换_单位")            
        Else
            e.DataRow("挂网单位")=  e.DataRow("单位")          
        End If
End Select


窗口1代码：
    Dim Cols1() As String = {..........，“编号”}
    Dim Cols2() As String = {..........，“编号”}
    For Each dr1 As DataRow In DataTables("临时表").Select("","公司 DESC,企业 DESC" )
        Dim dr2 As DataRow = DataTables("登记表").AddNew()
        For i As Integer = 0 To Cols1.Length -1
            dr2(Cols2(i)) = dr1(Cols1(i))
        Next
    Next
为什么点击窗口1按钮时，没有触发DataColChanged中的代码？
[此贴子已经被作者于2019/1/4 17:05:39编辑过]
--  作者：有点甜
--  发布时间：2019/1/4 17:36:00
--  
代码改成
 
msgbox(e.datacol.name)
Select Case e.DataCol.Name
    Case "编号"
msgbox(123)
        Dim zh As DataRow =DataTables("基础数据库").Find("挂网单位转换_中标号= \'" & e.DataRow("编号") & "\'")
        If zh IsNot Nothing Then
            e.DataRow("挂网单位")=zh("挂网单位转换_单位")            
        Else
            e.DataRow("挂网单位")=  e.DataRow("单位")          
        End If
End Select
 
-------------------------------
 
msgbox(1)
    Dim Cols1() As String = {..........，“编号”}
    Dim Cols2() As String = {..........，“编号”}
    For Each dr1 As DataRow In DataTables("临时表").Select("","公司 DESC,企业 DESC" )
msgbox(2)
        Dim dr2 As DataRow = DataTables("登记表").AddNew()
        For i As Integer = 0 To Cols1.Length -1
            dr2(Cols2(i)) = dr1(Cols1(i))
        Next
    Next