您当前的位置: 有一个组合框 combo1的int属性的代码如下
thisform.combo1.rowsourcetype=0
thisform.combo1.additem (" ")
thisform.combo1.additem ("魏")
thisform.combo1.additem ("李")
combo1的keypress代码如下
LPARAMETERS nKeyCode, nShiftAltCtrl
if nKeyCode=13
if !empty(this.displayvalue)
this.additem(this.displayvalue)
endif
endif
Rowsource Type 6字段
手工输入到COMBO1的数据无法保存，选择的倒可以，请问怎么解决？
------解决方案--------------------
将以下代码粘到 vfp 的 程序(Prg)中运行看一下效果吧:
- VB code
Public oform1
oform1=Newobject("form1")
oform1.Show
Return
Define Class form1 As Form
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
Add Object combo1 As ComboBox With ;
RowSourceType = 6, ;
RowSource = "t1.name", ;
Height = 24, ;
Left = 252, ;
Top = 36, ;
Width = 100, ;
Name = "Combo1"
Add Object grid1 As Grid With ;
DeleteMark = .F., ;
Height = 200, ;
Left = 24, ;
ReadOnly = .T., ;
Top = 36, ;
Width = 216, ;
Name = "Grid1"
Procedure Load
Create Cursor t1 (Name c(10))
Insert Into t1 Values ('张三')
Insert Into t1 Values ('李四')
Locate
Endproc
Procedure combo1.KeyPress
Lparameters nKeyCode, nShiftAltCtrl
If nKeyCode=13
If Messagebox('确认要将此内容【'+Alltrim(This.DisplayValue)+'】添加到表中吗？',4+32+256,'信息提示')=6
Insert Into t1 Values (Alltrim(This.DisplayValue))
Endif
Endif
Endproc
Enddefine