- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 查询表编号 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77096)
-- 发布时间：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编辑过]
-- 发布时间：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
-- 发布时间：2015/11/11 10:37:00
--
谢谢!