以文本方式查看主题

-  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=71418)
--  作者：ZDG
--  发布时间：2015/7/10 19:42:00
--  [求助]副本表与数据表同步问题
如何设置副本表双击事件为双击副本表当前行，同步选定数据表相同的行
--  作者：supwork
--  发布时间：2015/7/10 20:09:00
--  
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
--  作者：ZDG
--  发布时间：2015/7/10 20:23:00
--  

谢谢，再追问个问题，如何在上面代码的后面给其他窗口的textbox赋值，如textbox1=“”
--  作者：supwork
--  发布时间：2015/7/10 20:27:00
--  

本窗口内写法

将窗口名称引用部份改成其它窗口的名称就行
--  作者：ZDG
--  发布时间：2015/7/10 20:33:00
--  
我不会带窗口的控件命名，能不能写个例子看看，谢谢
--  作者：ZDG
--  发布时间：2015/7/10 20:40:00
--  
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
--  作者：ZDG
--  发布时间：2015/7/10 20:40:00
--  
这样行吗