If mjc=1 Then
Dim dm As String = Tables("spgl_table1").compute("max(c_spdm)")
Dim dm1 As String = cstr(cint(dm.substring(dm.lastindexof("-")+1))+1).padleft(4,"0")
Dim dm2 As String = dm.remove(dm.lastindexof("-")+1) & dm1
Dim nr As Row = Tables("spgl_table1").addNew
nr("c_spdm")=dm2
Tables("spgl_table1").Filter = iif(Tables("spgl_table1").Filter>"", Tables("spgl_table1").Filter & " or c_spdm = '" & dm2 & "'", "")
Tables("spgl_table1").Position = nr.Index
Else
messagebox.show("只有二级类别下才能增加明细!")
End If
如果还不行,Dim nr As Row = Tables("spgl_table1").addNew
改为:Dim nr As dataRow = Tables("spgl_table1").datatable.addNew