【结贴】为什么为0[请求]**

etqxq · 发表于 2007-8-13 13:02:21

DataSetBZSJJ1.open;
lFilterFields := DataSetBZSJJ1.FilterFields ;
if lFilterFields.Count> 0 then

为什么lFilterFields.Count＝0 》？？？

etqxq · 发表于 2007-8-13 13:03:02

弄了好久换了好多表，都是0？？？？？哪还要设置嘛？？？

etqxq · 发表于 2007-8-13 13:15:52

有人嘛？

atiger · 发表于 2007-8-13 13:33:16

请问你要做啥？找DataSetBZSJJ1 这个数据集的字段个数，还是记录数？还是...

etqxq · 发表于 2007-8-13 13:33:59

字段个数

etqxq · 发表于 2007-8-13 13:34:43

最好是列出每个字段，我需要查看字段的数据类型

etqxq · 发表于 2007-8-13 13:36:04

DataSetBZSJJ1.Open;
lFilterFields := DataSetBZSJJ1.FilterFields ;
if lFilterFields.Count > 0 then
begin
   for i := 0 to lFilterFields.Count - 1 do
   begin
      lBizField := DataSetBZSJJ1.BizFieldByName(lFilterFields.Strings);
      lField := DataSetBZSJJ1.FieldByName(lFilterFields.Strings);
      Dialogs.ShowMessage(lField.DisplayName);
      { 获得物理数据库的字段类型 }
      case lField.DataType of
      TFieldType.ftString: FieldTypeName := '字符';
      TFieldType.ftInteger: FieldTypeName := '整数';
      TFieldType.ftFloat: FieldTypeName := '浮点数';
      end;
      Dialogs.ShowMessage(FieldTypeName);
      { 获得studio中设计的字段类型即数据类型 }
      case lBizField.DataType of
      TDataType.dtString: FieldTypeName := '字符';
      TDataType.dtInteger: FieldTypeName := '整数';
      TDataType.dtFloat: FieldTypeName := '浮点数';
      TDataType.dtNumber: FieldTypeName := '数字';
      TDataType.dtDateTime: FieldTypeName := '日期时间';
      TDataType.dtBlob: FieldTypeName := '文本';
      TDataType.dtUnknown: FieldTypeName := '未知';
      end;
      Dialogs.ShowMessage(FieldTypeName);
   end;

这段代码没的结果

etqxq · 发表于 2007-8-13 13:48:53

OK了上面代码给的是错误的

lixy · 发表于 2007-8-13 13:49:17

FilterFields 过滤字段？？

atiger · 发表于 2007-8-13 14:10:37

ok，把正确的代码共享出来

		自动登录	找回密码
密码			立即注册