主题：控件绑定

positionChanged事件

 

Dim tbl As Table = Tables("计划表窗口_Table4")
If tbl.Position <> e.Table.Position Then
    tbl.Position = e.Table.Position
End If '甘特图代码十二分之一

 

给窗口文本框赋值，参考

 

Dim r As Row  = Tables("计划表窗口_Table4").Rows(Tables("计划表窗口_Table4").Position)
msgbox(r("办理人") & " " & r("备注"))

 

http://www.foxtable.com/webhelp/scr/1634.htm

 

 你窗口的控件，不要设置绑定表列。

 不绑定，代码就不会有问题，请认真测试。

跨表查询

 

    Dim t As Table = Tables("计划表窗口_Table9")

    Dim dt As Date = t.Cols(t.colsel).Name.Replace("年","-").Replace("月_","-")

    Dim r As Row  = Tables("计划表窗口_Table4").Rows(t.Position)

    Dim fdr As DataRow = DataTables("事件记录").find("事件日期=#" & dt & "# and 项目名称='" & r("项目名称") & "' and 项目流程='" & r("项目流程") & "'")
    If fdr IsNot Nothing Then
        msgbox(fdr("办理人") & " " & fdr("备注"))
    End If

看10楼代码。