主题：关联同步

表“货品类别”中的类别变动时，货品资料中的类别如何设置才能同步?

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

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

在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

 

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

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

       文具

       五金

       化工

如何刷新数据，等同于重新打开软件？

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

采用“列表项目-数据表”+“关联表”，效果还可以。