为什么GIRD不显示(20)

我在stringgrid.cell[1,0] 复值 为什么不显示

是不是设置为自己画单元格了，应该设置为系统默认画单元格。

我第一行必须显示一行正常值

要不远程给我弄一下

代码贴出来看看~~

stringgrid 画表头 怎么画呢? 我设置了 drewCELL 表头出来了但是自己不能画了 郁闷啊

ocedure TForm4.Button1Click(Sender: TObject);var afom : tform5
r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11: string;begin r1:=self.Edit1.Text
r2:=self.Edit2.Text
r3:=self.Edit3.Text
r4:=self.Edit4.Text
r5:=self.Edit5.Text
r6:=self.Edit6.Text
r7:=self.Edit7.Text
r8:=self.Edit8.Text
r9:=self.Edit9.Text
r10:=self.Edit10.Text
r11:=self.Edit11.Text
stringgrid1.Cells[1,1]:=r1
stringgrid1.Cells[1,2]:=r2
stringgrid1.Cells[1,3]:=r3
stringgrid1.Cells[1,4]:=r7
stringgrid1.Cells[1,5]:=r9
stringgrid1.Cells[1,6]:=r8
stringgrid1.Cells[1,7]:=r6
stringgrid1.Cells[1,8]:=r5
stringgrid1.Cells[1,9]:=r4
stringgrid1.Cells[1,10]:=r10
stringgrid1.Cells[1,11]:=r11
self.ADOCommand1.CommandText:='insert into table5(Customername,username,moneyvalue,rate,amount,Bank,arrivedtime,Note,Confirmation,timedata,Salesman) values('''+r1+''','''+r2+''','''+r3+''','''+r7+''','''+r9+''','''+r8+''','''+r6+''','''+r5+''','''+r4+''','''+r10+''','''+r11+''')'
self.ADOCommand1.Execute;end;procedure TForm4.StringGrid1DrawCell(Sender: TObject
ACol, ARow: Integer
Rect: TRect
State: TGridDrawState);begin StringGrid1.Cols[1].Text:='客户名称'
stringgrid1.Cols[2].text:='用户名'
stringgrid1.Cols[3].text:='冲值面值'
stringgrid1.Cols[4].text:='折扣率'
stringgrid1.Cols[5].text:='收款金额'
stringgrid1.Cols[6].text:='银行'
stringgrid1.Cols[7].text:='何时到帐'
stringgrid1.Cols[8].text:='备注'
stringgrid1.Cols[9].text:='财务确认'
stringgrid1.Cols[10].text:='日期'
stringgrid1.Cols[11].text:='业务员';

帮顶，接分

晕 没人知道??在线等待高手

我晕~, 有你这样重绘的吗?~ 自己找代码!!!

不要在DrawCell中设置~~你可以在form.create or form.show中设置stringgrid的表头~这样试一下~~[red]不是楼下的提醒，我还不知道呢?[/red]StringGrid1.Cols[1].Text:='客户名称';改为[red]StringGrid1.Cols[0,1]:='客户名称'[/red]

de410 的答案正确 应在FORM GREATE 事件中添加 谢谢