请教grid有关问题
我做了一个小程序,碰到了几个问题,请高手指点:
1、在表单的init中初始代码如下:
Flag=This.Caption
Select tab_drug
Select 药品名称,药品类别,生产厂家,最高零售价,剂型,单位,药品编号 From tab_drug Into Cursor Temp_Drug
Thisform.Grid1.RecordSource="Temp_Drug"
运行本表单,可以显示,但从主页进入到本页时,却没显示。为什么?
2、我在这个表单中做了一个查询功能,在Text中的interactivechange的代码如下:
If !Used("tab_drug")
Use Database\tab_drug
Else
Select tab_drug
Endif
MyValue="'%"+Alltrim(This.Value)+"%'"
Select 药品名称,药品类别,生产厂家,最高零售价,剂型,单位,药品编号 Where 药品名称 Like &MyValue.From tab_drug Into Cursor Temp_Drug
Go Top
Thisform.Grid1.RecordSource="Temp_Drug"
但是查询后显示的表格中每个字段宽度跟原来的不一样?
3、做了一个Grid的点击链接到下一页的AfterRowColChange事件
LPARAMETERS nColIndex
P_YPNO=tab_drug.药品编号
Thisform.Release &&释放表单
Do Form Form\药品信息详细介绍
上面这样写不知对不对?但是我点击Grid旁边的滚动条时,也会触发事件。
问题多多,不好意思,望高手能耐心指教。谢谢!!
[解决办法]
1、看来与主页有关,或者与表单模式有关。就目前描述,找不到原因。
3、是写到 Grid 每列的 Text1 的 Click 事件中。