主题：自动填充

此主题相关图片如下：8y315.png

在A表中 新增一行 车8Y315 表 中出现这样

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

点击浏览该文件:管理项目3.table

无语，看楼上啊。

上楼没看到 不好意思啊！

 

1..在表A中按顺序输入这三个车号数据时，车表填充的内容行应该在原有数据的下方，不应该间隔这么大的距离。

此主题相关图片如下：表a.png

填充的内容应该在原有的数据基础上按左侧编号往下排

此主题相关图片如下：8y315.png

此主题相关图片如下：7h127.png

 

 

2..我说的编号是最左侧的行号并不是另外在车表中添加编号列

 

此主题相关图片如下：行号.png

老师能不能在帮我看下!谢谢了！

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

点击浏览该文件:管理项目4.table

 

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

点击浏览该文件:管理项目4 (2).table

谢谢！

在车8Y315表中DataColChanged事件加入Tables("车8Y315").Sort = "日期"排序

此主题相关图片如下：315.png

 

在项目保存关闭后再从新打开 该表中日期列又不排序了

 

此主题相关图片如下：316.png

想达到数据填充时日期列就自动排序，代码错了还是加的位置不对？

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

点击浏览该文件:管理项目.table

afterOpenProject事件加入代码即可

 

Tables("车8Y315").Sort = "日期"

 

Select Case e.DataCol.name
    Case "车号","起点", "日期", "货物", "承运单位"
       
        If e.DataRow.IsNull("车号") = False Then
            Dim tname As String = "车" & e.DataRow("车号")
            If DataTables.contains(tname) Then
                Dim dr As DataRow = DataTables(tname).Find("编号 = '" & e.DataRow("_Identify") & "'")
                If dr Is Nothing Then
                    dr =  DataTables(tname).Find("编号 is null and 车号 is null")
                    If dr Is Nothing Then dr = DataTables(tname).Addnew
                    dr("编号") = e.DataRow("_Identify")
                End If
                dr("车号") = e.DataRow("车号")
                dr("起点") = e.DataRow("起点")
                dr("日期") = e.DataRow("日期")
                dr("货物") = e.DataRow("货物")
            End If
        End If
End Select