ADOTable1与ADOTable2设置了关联,关联字段为ID,为什么有时ADOTable2的ID字段未填上,数据库中显示为<NULL>,代码如下,数据库为SQL Server2000
adoTable1.Append;
Adotable1.FieldValues['mydate']:=DateTimePicker1.Date;
Adotable1.FieldValues['chuan_ID']:=Edit1.Text;
Adotable1.FieldValues['kuan_ID']:=Edit2.Text;
Adotable1.FieldValues['bian_ID']:=Edit3.Text;
Adotable1.FieldValues['ma_ID']:=Edit4.Text;
Adotable1.FieldValues['T_jian']:=StrToint(Edit5.Text);
ADOTable1.Post;
ADOTable1.Refresh;
for k:=1 to stringgrid1.RowCount-2 do
begin
ADOTable2.Append;
ADOTable2.FieldValues['chejianid']:=StringGrid1.Cells[1,k];
ADOTable2.FieldValues['gonghao']:=StringGrid1.Cells[2,k];
ADOTable2.FieldValues['gongxi']:=StringGrid1.Cells[0,k];
ADOTable2.FieldValues['jian']:=strtoint(StringGrid1.Cells[3,k]);
ADOTable2.Post;
end;
ADOTable2.Refresh;
adoTable1.Append;
Adotable1.FieldValues['mydate']:=DateTimePicker1.Date;
Adotable1.FieldValues['chuan_ID']:=Edit1.Text;
Adotable1.FieldValues['kuan_ID']:=Edit2.Text;
Adotable1.FieldValues['bian_ID']:=Edit3.Text;
Adotable1.FieldValues['ma_ID']:=Edit4.Text;
Adotable1.FieldValues['T_jian']:=StrToint(Edit5.Text);
ADOTable1.Post;
ADOTable1.Refresh;
for k:=1 to stringgrid1.RowCount-2 do
begin
ADOTable2.Append;
ADOTable2.FieldValues['chejianid']:=StringGrid1.Cells[1,k];
ADOTable2.FieldValues['gonghao']:=StringGrid1.Cells[2,k];
ADOTable2.FieldValues['gongxi']:=StringGrid1.Cells[0,k];
ADOTable2.FieldValues['jian']:=strtoint(StringGrid1.Cells[3,k]);
ADOTable2.Post;
end;
ADOTable2.Refresh;
解决方案 »
- 神经病人思维广,弱智儿童欢乐多。前尘往事不堪记,古来圣贤皆寂寞
- VCLBDE50.BPL是个什么文件?谁能帮忙发一个给我?
- 如何判断EXCEL文件已打开
- 各位老大帮忙!!!!
- "转让控制权,以便让操作系统处理其它的事件"的涵数什么?怎么用呀?
- 有谁用过Help & Manual做帮助文件,怎么做中文帮助时有那么多乱码?
- 请问:
- 关于类型的问题??
- 请问在treeview控件中,怎样才能记住哪些treenode节点已展开过?
- 急急急急。出现了“connection is busy with result for another hstmt"
- 工作四年的人能在北京找到工作吗?
- 不规则表格的制作???
表1
ID d dd ddd
表2
ID1 ID a aa aaa现用ADOTable1连接表1,ADOTable2连接表2,并设置主从关系,关联字段为ID,用上述代码插入操作,绝大部分情况正常,但有时表2的ID字段未能正确插入值,显示为<NULL>,不知为何?