起步软件技术论坛-X3

 找回密码
 立即注册
搜索
楼主: bsit

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

[复制链接]
 楼主| 发表于 2009-12-17 15:42:59 | 显示全部楼层
资源包,用的平台自带的 业务系统,客户关系管理
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-12-17 15:46:19 | 显示全部楼层
rar文件怎么传不上来?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-12-17 15:49:53 | 显示全部楼层
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
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-12-17 15:53:19 | 显示全部楼层
表单的设置

自动填充异常表单.jpg

133.42 KB, 下载次数: 203

回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-12-17 16:19:53 | 显示全部楼层
老大们在处理没?
回复 支持 反对

使用道具 举报

发表于 2009-12-17 16:37:40 | 显示全部楼层
rar 也是可以传的,只要超过1M就不行了,需要压缩的时候分为1M一个的。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-12-17 16:39:50 | 显示全部楼层
我压了之后3.4兆,就不用传了吧,你们看上面我发的那个数据集的代码就应该明白了三
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-12-17 16:43:46 | 显示全部楼层
包1

自动填充异常.part1.rar

1023.03 KB, 下载次数: 89

回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-12-17 16:45:12 | 显示全部楼层
包2

自动填充异常.part2.rar

1023.03 KB, 下载次数: 96

回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-12-17 16:46:22 | 显示全部楼层
包3

自动填充异常.part3.rar

1023.03 KB, 下载次数: 95

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-10 13:50 , Processed in 0.051455 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表