tdbgrid 锁定行，使改行不可编辑

Question

用tdgrid控件，输入一行信息后，目的使该行信息不可编辑，然后继续输入下一行信息，该如何实现？

Answer 1

可以判断呀。Private Sub TDBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
'----------------判断该列是否可以填写----------------
  If Adodc1.Recordset.RecordCount = 0 Then Exit Sub
  If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then Exit Sub
     Select Case Adodc1.Recordset.Fields("ckmc")
     Case "低值易耗品仓库"
          TDBGrid1.Columns(5).Locked = False
          TDBGrid1.Columns(6).Locked = False
     Case "五金仓库"
       If Adodc1.Recordset.Fields("cllb") = "其他" Then
          TDBGrid1.Columns(5).Locked = False
          TDBGrid1.Columns(6).Locked = False
       Else
          TDBGrid1.Columns(5).Locked = True
          TDBGrid1.Columns(6).Locked = True
       End If
     Case Else
          TDBGrid1.Columns(5).Locked = True
          TDBGrid1.Columns(6).Locked = True
     End Select
End Sub

Answer 2

试试在ColEditAfter事件中写入：if tdbgrid1.columns(colindex).text<>"" then
    tdbgrid1.columns(colindex).locked=false
end if