主题：表间关联

DataColchanged事件

If e.DataCol.name = "项目名称" Then
    If e.DataRow.IsNull("开始日期") Then
        Dim fdr As DataRow = DataTables("项目表").Find("项目名称 = '" & e.DataRow("项目名称") & "'")
        If fdr IsNot Nothing Then
            e.DataRow("开始日期") = fdr("开始日期")
        End If
    End If
End If

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