主题：新增删除表内容

表a 中编号和登记日期是自动生成 新增窗体中其他的内容为空时关闭新增窗体，在表a中自动删除新增行

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

 窗口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

.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

在刚才的项目中我想在编号的前面加个KH前缀

 

e.DataRow("编号")="kh" & format((e.DataTable.compute("max(编号)","").+1,"00000")  只能加一个 第二提示错误

另外e.DataRow("编号")="kh" & format((e.DataTable.compute("max(编号)","").+1,"00000") ，在+1前加一个su什么参数时（不好意思忘了） 我把表里的数据清空了在新增就提示错误

请教老师怎么弄

麻烦各位老师了

代码

 

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

学习学习啦