分太少了,让人很伤心啊,知识越来越不值钱了吗? 看看下面的代码吧,是用DBGrid1_RowColChange来对第一个字段赋值的: Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) Dim intOldCol As Integer intOldCol = DBGrid1.Col DBGrid1.Col = 0 If DBGrid1.Text <> userNameCN Then DBGrid1.Text = userNameCN End If DBGrid1.Col = intOldCol End Sub
看看下面的代码吧,是用DBGrid1_RowColChange来对第一个字段赋值的:
Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Dim intOldCol As Integer
intOldCol = DBGrid1.Col
DBGrid1.Col = 0
If DBGrid1.Text <> userNameCN Then
DBGrid1.Text = userNameCN
End If
DBGrid1.Col = intOldCol
End Sub