自动填充 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动填充

共有4461人关注过本帖树形打印复制链接主题：自动填充

大红袍

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/2/17 14:21:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2 (1).table

大红袍

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/2/17 14:49:00 [显示全部帖子]

无语，看楼上啊。

大红袍

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/2/17 17:11:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目4 (2).table

大红袍

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/2/18 9:32:00 [显示全部帖子]

afterOpenProject事件加入代码即可

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

大红袍

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/2/18 10:31:00 [显示全部帖子]

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

下一主题 >> << 上一主题

总数 16 上一页 1 2

主题：自动填充