在dbgrid 控件中我使用了它的oncellclick 事件, 将dbgrid 中的记录赋值给其它记录,但我不想直接赋值,要在赋值 前加一个判断请帮忙写一下代码
解决方案 »
- delphi7连接excel有的机出现‘无效的类别字符串’
- Runtime error 105 这是什么错误?
- 在D7中如何屏蔽word、EXCEL中右上角的 关闭按钮??某一个菜单?
- 请教关于屏幕录像swf的问题
- 不使用数据库,StringGrid1、DrawGrid1、DBGrid1等可以数据输入
- 请小5接分!
- 高手帮忙!!怎么显示隐藏的桌面图标————在线等待!!急急急!!!
- 怎样进行小组开发?
- 升级到Delphi6有问题,Ado控件不支持Null吗? 谁能解决这个问题!
- 关于delphi
- 如何在DBGrid中用不同的颜色显示数据!
- 急急急急!!!求一个好的FTP Client 控件! NMFTP 问题太多!高手指点有高分
if dbgrid1.datasource.dataset.fieldbyname('RECID').AsString := '0001' then
AdoQuery1.FieldByName('CLASSNAME').AsString := dbgrid1.datasource.dataset.fieldbyname('ClassName').AsString;
if application.MessageBox('你确定要把这条记录加入到表中','系统提示',MB_YesNo+MB_ICONInformation)=IDOK then AdoQuery1.FieldByName('CLASSNAME').AsString := dbgrid1.datasource.dataset.fieldbyname('ClassName').AsString;
那么你就这样写
if query1.fieldbyname(字段名).AsString=条件 then
begin
语句;
end;
这样肯定能,我就这样做的.