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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于固定格式表填充数据

共有4003人关注过本帖树形打印复制链接主题：关于固定格式表填充数据

lgj716330

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

等级：六尾狐帖子：1301 积分：10056 威望：0 精华：0 注册：2013/11/8 15:27:00

Post By：2016/3/5 17:17:00 [只看该作者]

搞定了

Dim txt As String = Forms("库存查询").Controls("da2").Value

For Each nm As String In DataTables("进销存").GetValues("货号","日期 <= '" & txt & "'")

Dim dr As DataRow = DataTables("库存报表").AddNew()

dr("货号") = nm

Dim dr1 As DataRow

dr1 = DataTables("进销存").find("[货号] = '" & dr("货号") & "' and [日期] <= '" & txt & "'","日期 Desc")

总数 41 上一页 1 2 3 4 5

主题：关于固定格式表填充数据