摘要：
XH：序号字段，计算性质的字段。procedure TfrmTingTaiInfo.ADOQitemXHGetText(Sender: TField; var Text: string; DisplayText: Boolean);begin inherited; Text := IntToStr(Sender.DataSet.RecNo);end; 阅读全文
摘要：
在进销存系统中，经常会将商品信息放在一个数据表中，把销售明细（采购明细）放在另一个表中，两个表通过商品的编号相联，于是经常会遇到要在销售明细（采购明细表中显示商品名称、规格等信息，就在DBGrid中采用Lookup的方法显示。但是当新插入数据时就提示“发生未知错误”的信息。解决办法： 例：一个ADOQuery1，包含了“商品编号”，“数量”等字段，然后再新建立“商品名称”，“规格”等几个临时Lookup字段，以“商品编号”为索引字段，从另一个ADOQuery2中取值。之后，用一个DBGrid连接ADOQuery1。 程序运行时，在DBGrid中修改，删除数据都没有问题。但添加记录时出现“发生. 阅读全文