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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 查询表编号

共有2261人关注过本帖树形打印复制链接主题：查询表编号

Liangcai

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

等级：小狐帖子：300 积分：2541 威望：0 精华：0 注册：2011/9/24 13:30:00

查询表编号

Post By：2015/11/11 8:34:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:自动编号.zip

组合框TextChanged代码

e.Form.Controls("Table1").Table.Fill("Select '' As 序号,产品,客户,雇员 * {表A} Where 产品 = '" & e.Form.Controls("产品").text & "'", True)

窗口1_Table1

DataRowAdding代码

e.DataRow("序号") = e.DataTable.Compute("Max(序号)") + 1 ‘这个代码无效

窗口1_Table1“序号”列自动编号？请指点？谢谢！

[此贴子已经被作者于2015/11/11 8:38:42编辑过]

Hyphen

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

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/11/11 8:54:00 [只看该作者]

组合框TextChanged代码

e.Form.Controls("Table1").Table.Fill("Sele ct '' As 序号,产品,客户,雇员 From {表A} Where 产品 = '" & e.Form.Controls("产品").text & "'", True)

With e.Form.Controls("Table1").Table
    For i As Integer = 0 To .Rows.Count - 1
        .Rows(i)("序号") = i+1
    Next
End With

Liangcai

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

等级：小狐帖子：300 积分：2541 威望：0 精华：0 注册：2011/9/24 13:30:00

Post By：2015/11/11 10:37:00 [只看该作者]

谢谢!

主题：查询表编号