狐爸及各位朋友:昨天不知是删除了一个字段,还是新增的关系有影响,还是其它什么原因,现在点击自己设定的[新增行]代码后,系统是新增了一行,但该行的左边行号并不显示,_Identify的具体数字也没有,直到我在该空行中输入了一个数据后,行号与_Identify的数字才出来,下面是新增行后,没有行号的图片

此主题相关图片如下：clip_image002.jpg

还出现下面的错误提示,请狐爸指点,大概问题出在什么地方,我再找找,找了大半天了,也没找出原因,谢谢

1.按钮代码贴出来.

2.删除行报错，你的datarowdeleted事件如果引用了e.datarow,估计会提示这个错误

唐兄:您好,现贴代码如下,代码原本是可以运行的,但现在就不行了

Dim r As Row =Tables("CK装货通知单").current
If r IsNot Nothing And r.Isnull("接收人") Then
    Dim Result As DialogResult
    Result = MessageBox.Show("请确定是否确认接收此单,如是请选择Yex,如不是,请选择NO","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        r("接收人") =_nam & "_" & Date.Now
        r.save()
        MainTable =Tables("CK成品出入库表")
        forms("成品出入库主窗口").show()
        forms("成品出入库主窗口").Controls("SplitContainer2").Panel1Collapsed = True
        Dim rr As Row =Tables("CK成品出入库表").addnew()
        rr("订单号") =r("订单号")
        rr("产品名") =r("产品名")
        rr("方向") ="B出库"
        rr("发生日期") =Date.Today
        rr("车柜号码") =r("车柜号码")
        rr("类型") ="销售出库"
        rr.save()
    End If
Else
    messagebox.show("此单已接收,不能重复接收")
    Return
End If

另:我没有在删除事件中设代码,请帮我再看看

看不出有什么问题

不过定义当前行最好先判断再定义

If Tables("CK装货通知单").current IsNot Nothing Then

Dim r As Row =Tables("CK装货通知单").current
if r.Isnull("接收人") Then

狐爸:现在的问题是连续点击新增键两下后,行号与ID号就出来了,等于第一次新增的是一个空行一样,请狐爸帮我看看