注入程序进程后,获取到了DBGRID code: vWinControl := FindControl(g_hWin);
for I := 0 to vWinControl.ComponentCount - 1 do
begin
if SameText(vWinControl.Components[I].ClassName, 'TDBGridE') then
begin
DBGRID := TDBGrid(vWinControl.Components[I]);
Break;
end;
end;
后面 DataSet := DBGRID.DataSource.DataSet;
for i:=1 to 10 do
begin
DataSet.Insert;
dataset.Fields[7].AsString:=ExcelApp.Cells[ih,1].Value;
dataset.Fields[8].AsString:=ExcelApp.Cells[ih,2].Value;
dataset.Fields[9].AsString:=ExcelApp.Cells[ih,3].Value;
dataset.Fields[10].AsString:=ExcelApp.Cells[ih,4].Value;
dataset.Fields[11].AsString:=ExcelApp.Cells[ih,5].Value;
dataset.Fields[12].AsString:=ExcelApp.Cells[ih,6].Value;
dataset.Fields[4].AsString:=ExcelApp.Cells[ih,7].Value;
DataSet.Post;
end;第一条导入OK,第二条导入后发现DBGRID里2条数据内容一模一样
不管加不加dataset.next;showmessage(inttostr(dataset.recordcount));内容=1最后一个难关了。研究了N天了。就差这个了。求HELP
dataset的字段有18个。我用程序自己添加数据,然后获取这18个字段的数值跟导入一条获取的数据,18个字段是一样的。
问题会出在哪里呢。。
for I := 0 to vWinControl.ComponentCount - 1 do
begin
if SameText(vWinControl.Components[I].ClassName, 'TDBGridE') then
begin
DBGRID := TDBGrid(vWinControl.Components[I]);
Break;
end;
end;
后面 DataSet := DBGRID.DataSource.DataSet;
for i:=1 to 10 do
begin
DataSet.Insert;
dataset.Fields[7].AsString:=ExcelApp.Cells[ih,1].Value;
dataset.Fields[8].AsString:=ExcelApp.Cells[ih,2].Value;
dataset.Fields[9].AsString:=ExcelApp.Cells[ih,3].Value;
dataset.Fields[10].AsString:=ExcelApp.Cells[ih,4].Value;
dataset.Fields[11].AsString:=ExcelApp.Cells[ih,5].Value;
dataset.Fields[12].AsString:=ExcelApp.Cells[ih,6].Value;
dataset.Fields[4].AsString:=ExcelApp.Cells[ih,7].Value;
DataSet.Post;
end;第一条导入OK,第二条导入后发现DBGRID里2条数据内容一模一样
不管加不加dataset.next;showmessage(inttostr(dataset.recordcount));内容=1最后一个难关了。研究了N天了。就差这个了。求HELP
dataset的字段有18个。我用程序自己添加数据,然后获取这18个字段的数值跟导入一条获取的数据,18个字段是一样的。
问题会出在哪里呢。。
解决方案 »
- delphi query 取字段名
- delphi新手一年感言
- 如何在 tWebBrowser中模拟选中一个区域, 这个区域的起点和终点已知
- 请大侠帮忙解释一下这段代码的作用!
- 请教高手一个问题。。。急呀!!!!!!
- 如何从当前Active的web页面中获取其文本框中的信息?
- SQLServe中的SubString()功能,在Access中要用什么来表达。
- 请高手帮我 中间层采用dbexpress 在用 DATASETPROVIDER1.ApplyUpdates(SAVE1,0,TT)不能更新数据
- 关于ADO提交的问题
- 很多软件有华丽的外表(比较糊人),是什么样的控件?
- DELPHI7里的USE里面引用了INIFILES后找不到到INIFILES.DCU文件
- 求个SPCOMM发送和接受的思路,老是冲突啊!
不好意思,这个ih是我打错。实际上这是没问题的。
不是这个原因。代码里是ih。这里的没修改
begin
DataSet.Insert;
dataset.Fields[7].AsString:=inttostr(i);
DataSet.Post;
end;
是TDBGRIDE,应该是DBGRID强化版吧。不过dataset应该没区别是不是我DATASET用的不对