主题：[求助]副本表与数据表同步问题

如何设置副本表双击事件为双击副本表当前行，同步选定数据表相同的行

Dim tb As Table = e.Form.Controls("Table1").Table   '修改控件名称
If tb.Current IsNot Nothing Then
    Dim strTableName As String="员工档案"    '修改表名
    Dim wz As Integer
    Dim dr As DataRow
    dr = DataTables(strTableName).Find("[_Identify] = " & tb.Current("_Identify"))
    If dr IsNot Nothing Then
        wz = Tables(strTableName).FindRow(dr)
        If wz >= 0 Then
            Tables(strTableName).Position = wz
        End If
    End If
End If

谢谢，再追问个问题，如何在上面代码的后面给其他窗口的textbox赋值，如textbox1=“”

本窗口内写法

将窗口名称引用部份改成其它窗口的名称就行

我不会带窗口的控件命名，能不能写个例子看看，谢谢

With Forms("订单查询")
    Dim cr As Row=Tables("订单").current
    e.Form.controls("textbox1").text=cr("订单编号")
    e.Form.controls("textbox2").text=cr("客户")
    e.Form.controls("datetimepicker1").text=cr("下单日期")
    e.Form.controls("combobox1").text=cr("出库仓库")
    If cr("已交数量") >= cr("订单数量") Then
        e.Form.controls("textbox3").text="已完成"
    Else
        e.Form.controls("textbox3").text="未完成"
    End If
End With

这样行吗