【结贴】动态设置日期显示格式，修改时报错的问题！**

alvenz · 发表于 2008-7-29 17:34:18

我的数据集是通过动态sql产生的，如下：
TSQLDataSet(dsbTBSJ.DataSet).Close;
TSQLDataSet(dsbTBSJ.DataSet).SQL.Text := 'select * from ' + FBusinessTableName + ' where ' + FBusinessTableKey + ' = ' + SysUtils.QuotedStr(FBusinessID);
TSQLDataSet(dsbTBSJ.DataSet).Open;

当数据集Open的后，我对其中的一个字段如：'TFRQ'进行时间格式的设置，
TSQLDataSet(DataSet).FindBizField('TFRQ').DisplayFormat := 'yyyy-mm-dd';

界面显示为下图：

alvenz · 发表于 2008-7-29 17:37:57

但是当我修改的时候，为什么控件后面后出现小时与分钟的横线？

alvenz · 发表于 2008-7-29 17:38:59

当我手工输入的时候，又会报如下错误！如果用控件自带的选择按钮又不会？

错误如下：

zfang · 发表于 2008-7-29 17:55:13

楼主，我照着你说的做了下测试，没有出现你的问题啊。
另外，告知一下平台版本

alvenz · 发表于 2008-7-30 11:19:35

上你们论坛要上一个早上哦！嘻嘻！
版本是2936的，
对了，在表定义的时候，TFRQ显示格式是yyyy-mm-dd hh:nn?
不知道我用代码改动的话，会不会影响？
楼上的，能不能把你的代码贴出来给我瞅瞅？谢谢！

zfang · 发表于 2008-7-30 11:30:04

哦，实在不好意思，论坛服务器有问题，刚弄好！

我就是使用你1楼的代码阿。
procedure TMAINFORM.Button2Click(Sender: TObject);
begin
  TSQLDataSet(DataSetBroker1.DataSet).Close;
  TSQLDataSet(DataSetBroker1.DataSet).SQL.Text := 'select * from b where spbh=''22'' ';
  TSQLDataSet(DataSetBroker1.DataSet).Open;
  TSQLDataSet(DataSetBroker1.DataSet).First;

  TSQLDataSet(DataSetBroker1.DataSet).FindBizField('RQ').DisplayFormat := 'yyyy-mm-dd';
  TSQLDataSet(DataSetBroker1.DataSet).Refresh;
end;

我也照你说的做了下
TFRQ显示格式是yyyy-mm-dd hh:nn
也没有出现你说的情况。
我的版本3002。

alvenz · 发表于 2008-7-30 11:33:08

那你能在2936底下测试一下吗？

zfang · 发表于 2008-7-30 11:33:49

图

alvenz · 发表于 2008-7-30 11:50:50

我在2936上重新开了一个窗体测试，一样的问题！
点完按钮后，显示OK，但是一把光标点进编辑框，就会出现小时分钟的横线？

zfang · 发表于 2008-7-30 13:25:29

我在2936上测试也没有你描述的问题出现。

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