[问题]自增区域在非首位数据点新增报错

bsit

资源包，用的平台自带的 业务系统,客户关系管理

bsit

rar文件怎么传不上来？

bsit

rar文件我传不上来，我把数据集的代码给你
object DataSetZDTCYCSJJ: TSQLDataSet
  Relation.DeleteRule = krNoAction
  Relation.UpdateRule = krNoAction
  ID = 'ZDTCYCSJJ'
  DisplayName = #33258#21160#22635#20805#24322#24120#25968#25454#38598
  Database.Reference = 'Biz:\OPERATION\OPERATIONDB.DATABASE'
  CheckConstraints = <>
  Params = <>
  SQL.Expressions = <
    item
      Name = '[Default]'
      Expression.Text =
        'SELECT CRM_PRODUCT.PRODUCTID, CRM_PRODUCT.CLIENTACCOUNT, CRM_PRO' +
        'DUCT.PRODUCTNAME, CRM_PRODUCT.PRODUCTTYPE, CRM_PRODUCT.FNUMBER'#13#10 +
        '  FROM CRM_PRODUCT'#13#10'  WHERE CRM_PRODUCT.PRODUCTNAME = '#39#39#39'test'#39#39#39
    end>
  SQL.Text =
    'SELECT CRM_PRODUCT.PRODUCTID, CRM_PRODUCT.CLIENTACCOUNT, CRM_PRO' +
    'DUCT.PRODUCTNAME, CRM_PRODUCT.PRODUCTTYPE, CRM_PRODUCT.FNUMBER'#13#10 +
    '  FROM CRM_PRODUCT'#13#10'  WHERE CRM_PRODUCT.PRODUCTNAME = '#39#39#39'test'#39#39#39
  Left = 146
  Top = 106
  object FIELD_ZDTCYCSJJ_PRODUCTNAME: TUserDataField
    ID = 'PRODUCTNAME'
    DisplayName = #20135#21697#21517#31216
    AutoFillDef.Enabled = True
    AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
    AutoFillDef.Options = [foFillReadOnly, foNullFieldOnly]
    AutoFillDef.Expression.Text = #39'test'#39
    ModifiedProps = (
      'AutoFillDef')
  end
  object FIELD_ZDTCYCSJJ_PRODUCTTYPE: TUserDataField
    ID = 'PRODUCTTYPE'
    DisplayName = #35268#26684#22411#21495
    LookupDef.Kind = lkDataValues
    LookupDef.ValidateKind = vkAutoAdd
    LookupDef.DataBase.Reference = 'Biz:\OPERATION\OPERATIONDB.DATABASE'
    LookupDef.SQL.Strings = (
      'SELECT TOP 1 CRM_PRODUCT.PRODUCTTYPE'
      '  FROM CRM_PRODUCT'
      '  WHERE CRM_PRODUCT.PRODUCTNAME = '#39#39#39'test'#39#39#39)
    LookupDef.DisplayField = 'PRODUCTTYPE'
    LookupDef.KeyField = 'PRODUCTTYPE'
    LookupDef.ViewID = 'GridView'
    LookupDef.ViewProperties.Strings = (
      'object TGridViewDesigner'
      '  VisibleColumns.Strings = ('
      '    '#39'PRODUCTTYPE'#39')'
      '  Options = [goShowQuickCodeField]'
      'end')
    LookupDef.Options = [loAutoRefresh, loDropDownButton]
    LookupDef.InnerSQLList.Expressions = <
      item
        Name = '[Default]'
        Expression.Text =
          'SELECT TOP 1 CRM_PRODUCT.PRODUCTTYPE'#13#10'  FROM CRM_PRODUCT'#13#10'  WHER' +
          'E CRM_PRODUCT.PRODUCTNAME = '#39#39#39'test'#39#39#39
      end>
    LookupDef.InnerSQLList.Text =
      'SELECT TOP 1 CRM_PRODUCT.PRODUCTTYPE'#13#10'  FROM CRM_PRODUCT'#13#10'  WHER' +
      'E CRM_PRODUCT.PRODUCTNAME = '#39#39#39'test'#39#39#39
    ModifiedProps = (
      'LookupDef')
  end
  object FIELD_ZDTCYCSJJ_FNUMBER: TUserDataField
    ID = 'FNUMBER'
    DisplayName = #25968#37327
    Attributes.ReadOnly.Text = 'IIf(IfNull(PRODUCTTYPE,'#39#39') = '#39'A'#39',False,True)'
    AutoFillDef.Enabled = True
    AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
    AutoFillDef.Options = [foFillReadOnly, foFillNullValue]
    AutoFillDef.Expression.Text = 'IIf(IfNull(PRODUCTTYPE,'#39#39') = '#39'A'#39',FNUMBER,1)'
    ModifiedProps = (
      'Attributes'
      'AutoFillDef')
  end
end

bsit

表单的设置

bsit

老大们在处理没？

atiger

rar 也是可以传的，只要超过1M就不行了，需要压缩的时候分为1M一个的。

bsit

我压了之后3.4兆，就不用传了吧，你们看上面我发的那个数据集的代码就应该明白了三

bsit

包1

bsit

包2

bsit

包3