我在写代码的时候本来从数据库里调的是5列数据,我有在datagrid1里有动态的加了三列,然后在程序里把计算得出的值赋给新加的这列里老提示找不到那列代码是这样的rs.Open "select kcglr.ktime as 时间,kcglr.ksl 存取,htzl.h_a as 费率,kcglr.kmc as 客户名称,kcglr.kjbr as 经办人,kcglr.mname as 操作员 From htzl, kcglr where htzl.ubh='" & Trim(Text1.Text) & "' and kcglr.ubh= '" & Trim(Text1.Text) & "'" & "order by 时间" If rs.EOF Then MsgBox "没有这个客户，请检查客户编号是否正确！", vbOKOnly + vbExclamation, "警告" Text2.Text = "" Label4.Caption = "" hh = True Exit Sub Else Text2.Text = rs.Fields("客户名称") Set DataGrid1.DataSource = rs re = rs.RecordCount Label4.Caption = " 有" & re & "条记录" DataGrid1.Columns.Add(6).Caption = "区间" DataGrid1.Columns.Add(7).Caption = "库存" DataGrid1.Columns.Add(8).Caption = "费用" DataGrid1.Columns(0).Width = 1000 DataGrid1.Columns(1).Width = 800 DataGrid1.Columns(2).Width = 600 DataGrid1.Columns(3).Width = 1200 DataGrid1.Columns(4).Width = 800 DataGrid1.Columns(5).Width = 600 DataGrid1.Columns(6).Width = 800 DataGrid1.Columns(7).Width = 800 DataGrid1.Columns(8).Width = 800 DataGrid1.Columns(6).Text = Text3.Text ''就提示这列未找到

从来不给“跪求”的人回答问题。

2楼的那还要小弟怎样求你要是有能力就给解决了