主题：[求助]关于表间数据传递

 Dim nr As Row = Tables("表B").AddNew

 Dim r As Row = Tables("表A").Current

 nr("第一列") = r("第一列")

 nr("第二列") = r("第二列")

 DataRowAdded事件

Dim d As Date = Date.Today
Dim bh As String = "SJ" & Format(d,"yyyyMMdd") '生成编号的前缀
Dim max As String
Dim idx As Integer
Dim flt As String
flt = "事件流水 like '" & bh & "%'"
max = e.DataTable.Compute("Max(事件流水)",flt) '取得该月的相同工程代码的最大单据编号
If max > "" Then '如果存在最大单据编号
    idx = CInt(max.Substring(bh.length)) + 1 '获得最大单据编号的后四位顺序号,并加1
Else
    idx = 1 '否则顺序号等于1
End If
e.DataRow("事件流水") = bh & Format(idx,"0000")

 你的代码没问题，看看是否你 datacolchanging或datacolchanged 事件影响了。

试试，改成

因为你数据库设置了某些字段不能重复、不能为空，所以新增一行，必须填入值，才行，不然会报错，而且只能用datatables("").AddNew

如果你等级到达【六尾狐】，就有发短信的权限了。