VFP 愛用者社區

[Batman]

想在Column下Container內Textbox的 Controlsource 顯示合併欄,如Field1+Field2,Column的Controlsource是可以, 但改至Column內Container的Textbox的ControlSource便不成功, 用變數如Col=Field1+Field2,Column.Container1.Textbox.ControlSource=Col, 卻祗是顯示Cursor的第一行, 又是不成功, 希望狐友幫幫忙解決.
(非必要不想再Select 多一次來建立合併欄位的Cursor)

[perry]

若僅是顯示用試試下面這個方法
col='field1+field2'
Column.Container1.Textbox.ControlSource=&Col

[Batman]

之前也試了, 是不行的, 出現語法錯誤

[perry]

在表單中僅建立 Grid 物件,其他均在 Grid 的 Init Event 中設定!!
以下是個人Grid 部份的簡單設定,沒大大您那麼複雜!!

[oldbb]

** Test.prg
CREATE CURSOR dd (ff I, f1 I, f2 I)
FOR i = 1 TO 100
INSERT INTO dd VALUES (0, i,i*2)
ENDFOR
GO TOP

of = CREATEOBJECT("_Form")
of.Show(1)

DEFINE CLASS _Form as Form
ADD OBJECT Grid1 AS _Grid
ENDDEFINE

DEFINE CLASS _Grid as Grid
Visible = .T.

PROCEDURE Init
this.Column1.RemoveObject("Text1")
this.Column1.AddObject("Container1", "_Container")
this.Column1.Sparse = .F.
this.Column1.Container1.Width = this.Column1.Width
this.Column1.Container1.Height = this.RowHeight
this.Column1.Container1.Text1.Width = this.Column1.Width
this.Column1.Container1.Text1.Height = this.RowHeight
ENDPROC
ENDDEFINE

DEFINE CLASS _Container as Container
Visible = .T.
BorderStyle = 0
ADD OBJECT Text1 as _TextBox
ENDDEFINE

DEFINE CLASS _TextBox as TextBox
Visible = .T.
BorderStyle = 0
ControlSource = "dd.f1 + dd.f2"
ENDDEFINE

[Batman]

謝謝兩位狐友幫助, 立即研究, 參看2位的程式碼, 相信問題會解決