- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 新增删除表内容 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52210)
-- 发布时间：2014/6/11 11:46:00
-- 新增删除表内容
表a 中编号和登记日期是自动生成 新增窗体中其他的内容为空时关闭新增窗体，在表a中自动删除新增行
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
-- 发布时间：2014/6/11 11:55:00
--
窗口beforeClose事件，代码
Dim r As Row = Tables("表A").Current
If r.IsNull("姓名") OrElse r.IsNull("性别") OrElse r.IsNull("家庭住址") OrElse r.IsNull("单位地址") Then
r.Delete
End If
-- 发布时间：2014/6/11 12:01:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目2.table |
-- 发布时间：2014/6/11 12:13:00
--
在刚才的项目中我想在编号的前面加个KH前缀
e.DataRow("编号")="kh" & format((e.DataTable.compute("max(编号)","").+1,"00000") 只能加一个 第二提示错误
另外e.DataRow("编号")="kh" & format((e.DataTable.compute("max(编号)","").+1,"00000") ，在+1前加一个su什么参数时（不好意思忘了） 我把表里的数据清空了在新增就提示错误
请教老师怎么弄
-- 发布时间：2014/6/11 12:14:00
--
麻烦各位老师了
-- 发布时间：2014/6/11 14:17:00
--
代码
Dim Max As String = e.DataTable.Compute("Max(编号)")
If max > "" Then
e.DataRow("编号") = "KH" & Format(Cint(max.SubString(2)) + 1, "00000")
Else
e.DataRow("编号") = "KH00001"
End If
-- 发布时间：2014/6/11 16:00:00
--
学习学习啦