datagrid 的怪问题

Question

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  总是空白..郁闷的很

Answer 1

http://www.vbgood.com/thread-54950-1-1.html

Answer 2

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

Answer 3

建议用 FlexGrid 做这样的事情。