这个应该是一个缺陷,楼主使用vcs.exe编辑出错表的。table文件然后着多定义查找属性的字段,删除类似于下面黑体的部分
以下是出错的字段定义
object BizFieldDef_CJID: TBizFieldDef
ID = 'CJID'
DisplayName = #21378#23478
DataType = dtString
DataTypeAttribute.Size = 20
EditStyleID = 'String'
Alignment = taLeftJustify
LookupDef.Kind = lkDataValues
LookupDef.ValidateKind = vkAutoAdd
LookupDef.DataBase.Reference = 'XXSJK'
LookupDef.SQL.Strings = (
'SELECT XX_BM_CJ.CJBM, XX_BM_CJ.CJMC'
' FROM XX_BM_CJ'
' ORDER BY XX_BM_CJ.XH')
LookupDef.DisplayField = 'CJMC'
LookupDef.KeyField = 'CJBM'
LookupDef.QuickCodeField = 'CJMC'
LookupDef.ViewID = 'GridView'
LookupDef.ViewProperties.Strings = (
'object _1: TGridViewDesigner'
' VisibleColumns.Strings = ('
' '#39'CJMC'#39')'
' Options = [goShowQuickCodeField]'
'end')
LookupDef.Options = [loDropDownButton]
[B] LookupDef.InnerSQLList.Expressions = <
item
Name = 'ORACLE'
Expression.Text =
'SELECT XX_BM_CJ.CJBM, XX_BM_CJ.CJMC'#13#10' FROM XX_BM_CJ'#13#10' ORDER BY' +
' XX_BM_CJ.XH'#13#10
end
item
Name = '[Default]'
Expression.Text =
'SELECT XX_BM_CJ.CJBM, XX_BM_CJ.CJMC'#13#10' FROM XX_BM_CJ'#13#10' ORDER BY' +
' XX_BM_CJ.CJMC'#13#10
end>[/B] AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
end |