datagrid 的怪问题

Private Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
Dim vcode   As String
If OutRst.RecordCount < 1 Then OutRst.AddNew
If ColIndex = 0 Then
        cnf10_type = "014"
        vcode = GetCnf10Code(cnf10_type)
        If vcode <> "" Then        
            Me.DataGrid1.SetFocus
            Me.DataGrid1.Columns(0).TEXT = vcode
         End If
 End If
'Me.DataGrid1.Refresh
End Sub
 
在调试的状态下 DataGrid1.Columns(0) 可以获得值,,但在正常运行下  Me.DataGrid1.Columns(0).TEXT  总是空白..郁闷的很


http://www.vbgood.com/thread-54950-1-1.html 我不是做下拉的,是Button开启另外一个窗口,GetCnf10Code(cnf10_type), 再另外一个窗口返回一个值vcode给 Me.DataGrid1.Columns(0) 那么有些代码应该写在另一个窗口的某个事件里，不是全写在一起

引用 2 楼 allenfu 的回复:

我不是做下拉的,是Button开启另外一个窗口,GetCnf10Code(cnf10_type), 再另外一个窗口返回一个值vcode给 Me.DataGrid1.Columns(0)

建议用 FlexGrid 做这样的事情。

补充：VB ,  数据库(包含打印，安装，报表)