vb.net2008
پنج شنبه 23 تیر 1390, 12:17 عصر
سلام
من یه DBCtrlGrid در زمان اجرا درست می کنم. اما کنترل ها رو فقط توی یه سطر تکرار می کنه. یعنی اطلاعت
ات رو که از جدول می خونه فقط تو یه سطر نشون میده کدمو گذاشتم. میشه مشکلشو بگم.
frmMain.Group2:=TGroupBox.Create(self);
frmMain.Group2.Parent:=frmMain;
frmMain.Group2.Left:=180;
frmMain.Group2.Top:=240;
frmMain.Group2.Width:=650;
frmMain.Group2.Height:=430;
frmMain.DBGrid1:=TDBCtrlGrid.Create(self);
frmMain.DBGrid1.Parent:=frmMain.Group2;
frmMain.DBGrid1.Left:=1;
frmMain.DBGrid1.Top:=10;
frmMain.DBGrid1.Width:=645;
frmMain.DBGrid1.DataSource:=DM.Q1DS ;
frmMain.DBGrid1.PanelHeight:=72;
//frmMain.DBGrid1.PanelBorder:=gbNone;
frmMain.DBGrid1.RowCount:=5;
frmMain.Group:=TGroupBox.Create(self);
frmMain.Group.Parent:=frmMain.d;
frmMain.Group.Left:=5;
frmMain.Group.Top:=6;
frmMain.Group.Width:=620;
frmMain.Group.Height:=50;
frmMain.Lab1:=TLabel.Create(self);
frmMain.Lab1.Parent:=frmMain.Group;
frmMain.Lab1.Left:=580;
frmMain.Lab1.Top:=10;
frmMain.Lab1.Width:=574;
frmMain.Lab1.Height:=10;
frmMain .Lab1.Caption :=':ÚäæÇä';
frmMain.DBTxt1:=TDBText.Create(self);
frmMain.DBTxt1.Parent:=frmMain.Group;
frmMain.DBTxt1.Left:=205;
frmMain.DBTxt1.Top:=10;
frmMain.DBTxt1.Width:=369;
frmMain.DBTxt1.Height:=17;
frmMain.DBTxt1.DataField:='JobName';
frmMain.DBTxt1.DataSource:=DM.Q1DS;
frmMain.DBTxt1.Alignment:=taRightJustify;
من یه DBCtrlGrid در زمان اجرا درست می کنم. اما کنترل ها رو فقط توی یه سطر تکرار می کنه. یعنی اطلاعت
ات رو که از جدول می خونه فقط تو یه سطر نشون میده کدمو گذاشتم. میشه مشکلشو بگم.
frmMain.Group2:=TGroupBox.Create(self);
frmMain.Group2.Parent:=frmMain;
frmMain.Group2.Left:=180;
frmMain.Group2.Top:=240;
frmMain.Group2.Width:=650;
frmMain.Group2.Height:=430;
frmMain.DBGrid1:=TDBCtrlGrid.Create(self);
frmMain.DBGrid1.Parent:=frmMain.Group2;
frmMain.DBGrid1.Left:=1;
frmMain.DBGrid1.Top:=10;
frmMain.DBGrid1.Width:=645;
frmMain.DBGrid1.DataSource:=DM.Q1DS ;
frmMain.DBGrid1.PanelHeight:=72;
//frmMain.DBGrid1.PanelBorder:=gbNone;
frmMain.DBGrid1.RowCount:=5;
frmMain.Group:=TGroupBox.Create(self);
frmMain.Group.Parent:=frmMain.d;
frmMain.Group.Left:=5;
frmMain.Group.Top:=6;
frmMain.Group.Width:=620;
frmMain.Group.Height:=50;
frmMain.Lab1:=TLabel.Create(self);
frmMain.Lab1.Parent:=frmMain.Group;
frmMain.Lab1.Left:=580;
frmMain.Lab1.Top:=10;
frmMain.Lab1.Width:=574;
frmMain.Lab1.Height:=10;
frmMain .Lab1.Caption :=':ÚäæÇä';
frmMain.DBTxt1:=TDBText.Create(self);
frmMain.DBTxt1.Parent:=frmMain.Group;
frmMain.DBTxt1.Left:=205;
frmMain.DBTxt1.Top:=10;
frmMain.DBTxt1.Width:=369;
frmMain.DBTxt1.Height:=17;
frmMain.DBTxt1.DataField:='JobName';
frmMain.DBTxt1.DataSource:=DM.Q1DS;
frmMain.DBTxt1.Alignment:=taRightJustify;