60分求解一个古怪问题。

Question

1.text1的Gotfocus与click事件中是否有冲突代码？
2.在模块中加一条语句：public index as integer试试，好像index没有负初值？建议在text1_dbclick中加调试语句msgbox(str(index)）看看。

Answer 1

TO:ruowuruoyou()　
谢谢。
1.我没有用到text1的gotfocus 事件，所以应该不会跟dblclick事件有冲突代码；
2.我在text1的dblclick事件中加了msgbox(str(index))调试语句，程序运行显示
  返回的index值没有错，是正确的。
还有什么建议吗？请指教，拜托了。

Answer 2

这样看看如何：
模块中：Public Sub jbxxcx(st As String)
    Dim FM as new form2
    Dim i, j As Integer
    with FM
    .DG1.Left = 40
    .DG1.Width = 6405
    If st = "单位表" Then
    ......
    .Show 1
    end With    
    unload FM
    set FM=nothing
End Sub
每次调用都重新初始化，应该没问题了

Answer 3

to:xxfeiyu(潇湘飞雨)　
谢谢，我试试。

Answer 4

TO：shaosx()　
请问在哪里有vs6sp5下载？

Answer 5

为什么你的FORM1中的控件都用了数组?
不用数组呢?
为什么你的文本框数组的INDEX要从3开始呢?

Answer 6

谢谢！！！
用数组的话容易节约代码啊，要不像我这种情况的话，FORM1中有13个文本框，假如不用数组的话，那不是至少有13个相同的文本框事件了，用了数组后不是可以将13个事件合为一个事件了。
至于为什么INDEX从3开始，是因为我的INDEX为0，1，2的文本框不需要DBLCLICK事件，只有INDEX为3，4，6，7，8的文本框才需要DBLCLICK事件。

Answer 7

问题在form2中的DG1，因为你用的是绑定方式，所以不是没有数据而是数据没有显示出来，这是用Datagrid的一个通病。如果你用Datagrid了而在开发时改变了Datagrid的一些属性，比如Datagrid的标题或者列宽等（你是为了好看才这样做的），那么Recordset的对应列就绑不上。有两种方法处理些问题。
1、把form2中的Datagrid删掉重新添加，然后除了名称不改动Datagrid的其它任何属性。
2、如果你改动了Datagrid的其它属性（一般都这样做），那么你在Set form2.DG1.DataSource = res前一定要加一些好象FieldName="字段名"之类的语句，实际是不是FieldName这一名称我记不请了，就是把把DataGrid的某一列用语句绑定到某一具体数据库字段上。
    

Answer 8

TO:yeah_521()　
index是文本框的返回的索引值啊！TO：whose()　
应该绑定正确了，如何不正确的话，为什么我赋了初值后又一切正常呢？TO:watt(瓦特)　
我在Set form2.DG1.DataSource = res一句前加了如下代码，可还是不行，不知是不是这样加的？
    For i = 0 To res.RecordCount - 1
        form2.DG1.Columns(i).DataField = res.Fields(i).Name
    Next