在DataColChanged设置：

If e.DataCol.Name  = "货品类别" Then \'类别同步\'
    Dim dr As DataRow
    Dim Filter As String
    dr = DataTables("货品类别").Find("类别名称 = \'" &e.newValue & "\'")
    If dr IsNot Nothing Then \'如果找到的话
        Tables("货品资料").Filter = "货品类别 = \'" & e.NewValue & "\'"
        Dim r As Integer = CurrentTable.Rows.Count-1
              If r > 0 Then
            Return          
        End If
    End If
End If

以上设置要重新打开软件才能更新。

1、你关联设置选择了选项“同步更新关联列”，这样就已经同步了，不需要任何代码。

2、请取消货品资料表货品类别列的数据字典设置，否则显示不正常。

类别能直接选择吗？如出现以下界面：

       文具

       五金

       化工

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:类别.table

参考：

http://help.foxtable.com/topics/0052.htm

兄弟你先看看帮助，从使用指南开始看

假如封装软件发布项目,一般没有“列属性”这些界面的，输入“类别”时，采用“列表项目”中的功能不是很好的选择，货品资料中的类别应该来源于另一个表，用“关联表”功能时，要在“类别”中直接输入，问题在于货品资料录入类别时不希望直接录入，而是选择录入，同时“类别”能同步，用“数据字典+关联表”的方法能达到这种效果，只是“货品类别”表内容变动时要重新登录系统，想找一种更理想的方法，请帮忙处理，谢谢！

从这节开始看：

http://help.foxtable.com/topics/1528.htm